library(cmfproperty)

df <- fread(“/Cook County/joined.csv”))

df <- df %>% mutate(SALE_PRICE = NetConsideration, TAX_YEAR = taxyear, SALE_YEAR = joinyr, ASSESSED_VALUE = bor_CCAO_ass, TOTAL_AV = ASSESSED_VALUE / assessment_percentage)

df <- df[c(‘SALE_PRICE’, ‘SALE_YEAR’, ‘TAX_YEAR’, ASSESSED_VALUE’)]

df <- cmfproperty::example_data

ratios <- cmfproperty::reformat_data(df, sale_col = “SALE_PRICE”, assessment_col = “ASSESSED_VALUE”, sale_year_col = “SALE_YEAR”)

cmfproperty::make_report(ratios, jurisdiction_name = “Cook County”, output_dir = “your output directory”) 

Report