"0","# create a new project characteristics data table, coerce project and contractor column types to character factors, and optionally print a summary"
"0","project_characteristics <- distinct(select(decon_material_weight, c(""project"", ""house_age"", ""house_size"")))"
"0","# summary(project_characteristics)"
"0","# calculate and save mean average of the house age and size statistics"
"0","average_house_age <- round(mean(project_characteristics$house_age))"
"0","average_house_size <- round(mean(project_characteristics$house_size))"
"0","number_of_houses <- round(length(project_characteristics$project))"
