To generate the report, first Download Data. This dataset is a cleaned public dataset we can use.

After downloading the dataset, please run the below R code, for example in RStudio. Remember to replace “your output directory” with the path where you want to save the generated report.

library(tidyverse)
library(readstata13)
library(cmfproperty)

df <- read.dta13(“master_armslength_trimmed.dta”)

df <- df %>% mutate(SALE_PRICE = lastsaleamt, SALE_YEAR = saleyear + 1, TAX_YEAR = year, ASSESSED_VALUE = curr_assessed) %>% mutate(TOTAL_AV = ASSESSED_VALUE)

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

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

cmfproperty::make_report(ratios, jurisdiction_name = “Detroit City”, output_dir = “your output directory”) 

Below is a pre-generated example report:

Report