To generate the report, first download the data. This dataset is a raw 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(data.table)

library(readstata13)
library(cmfproperty)

df1 <- read.dta13( “/Philadelphia/Ratio_Analysis_arms_length.dta”))
df2 <- read.dta13( “/Philadelphia/Ratio_Analysis_total.dta”))

df1 <- df1 %>% select(sale_year, year_assessed, assmt_at_sale, sale_price, sale_type_to_use)
df2 <- df2 %>% select(sale_year, year_assessed, assmt_at_sale, sale_price, sale_type_to_use)

df <- rbind(df1, df2)
df <- df %>% mutate(arms_length_transaction = ifelse(sale_type_to_use == “arms length sale confirmed”, 1, 0))

df <- df %>% mutate(SALE_YEAR = sale_year, TAX_YEAR = year_assessed, ASSESSED_VALUE = assmt_at_sale, SALE_PRICE = sale_price, RATIO = ASSESSED_VALUE / SALE_PRICE)

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

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

Below is a pre-generated example report:

Report