# NOT RUN {
# Load example data
data(ex_sales)
# Create hedonic data
hed_data <- hedCreateTrans(trans_df = ex_sales,
prop_id = 'pinx',
trans_id = 'sale_id',
price = 'sale_price',
date = 'sale_date',
periodicity = 'monthly')
# Estimate Model
rf_model <- rfModel(estimator = structure('pdp', class = 'pdp'),
rf_df = hed_data,
rf_spec = as.formula(log(price) ~ baths + tot_sf),
ntrees = 10,
sim_count = 1)
# }
Run the code above in your browser using DataLab