library(cmfproperty)

df <- fread(“/Franklin County/full.csv”))

df <- df %>% mutate(SALE_PRICE = as.numeric(PRICE), TAX_YEAR = SALE_YEAR, ASSESSED_VALUE = as.numeric(ASSESSED_VALUE), TOTAL_AV = ASSESSED_VALUE / assessment_percentage)
df <- df %>% filter(between(LAND_CLASS, 510, 530))

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 = “Franklin”, output_dir = “your output directory”) 

Report