library(cmfproperty)

df <- fread(“/Baltimore/Baltimore Data 2015-2019 opendatamaryland.csv”)

df <- df %>% mutate(SALE_YEAR = ASSMT_YEAR, SALE_PRICE = Gross_Sale_Price, ASSESSED_VALUE = TOTALVALUE, TOTAL_AV = ASSESSED_VALUE / assessment_percentage, TAX_YEAR = SALE_YEAR)

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

Report