model_pass_func: Filters for models that have satisfying threshold
In tinnaing347/bRema: Building Energy Modelling and Analysis Tool in R

This function returns a list which contains models that have satisfying threshold. Defualts threshold: CV-RMSE <= 0.25 and r-squared >= 0.75, and Pass all of shape test, tTest and population test. Suggested Threshold value for fuel is CV-RMSE <= 0.50 and r-squared >= 0.75; for elec, one can use default value.

1	model_pass_func(inter_result, CV_RMSE_n = 0.25, Rsquared_n = 0.75)

`inter_result`	A list containing information about parameters such as slopes, change-points, and stats such as RMSE.
`CV_RMSE_n`	A numeric value. CV-RMSE threshold value. Defaults to 0.25.
`Rsquared_n`	A numeric value. Rsquared threshold value. Defaults to 0.75.

util = subset(unretrofit_utility, unretrofit_utility$bdbid == 'f3acce86'
			& unretrofit_utility$energy_type == 'Elec')
result = run_model(util)
best_result = model_pass_func(result)