Practical Predictive Analytics

Calculating mean values for the test data

Results for this data set are similar to the training data:

tmp_agg <- SparkR::sql("SELECT prediction, mean(age), mean(triceps), mean(pregnant),mean(pressure),mean(insulin),mean(glucose),mean(pedigree) from fitted_tbl_test group by 1") head(tmp_agg)