rec_data_missing_age <- HES_age_example
rec_data_missing_age$age_diag[1:10000] <- NA
rec_data_imputed <- age_imputation(rec_data_missing_age, method= "mean")
cor(rec_data_imputed$age_diag[1:10000], HES_age_example$age_diag[1:10000])
rec_data_imputed <- age_imputation(rec_data_missing_age, method= "min")
cor(rec_data_imputed$age_diag[1:10000], HES_age_example$age_diag[1:10000])
rec_data_imputed <- age_imputation(rec_data_missing_age, method= "max")
cor(rec_data_imputed$age_diag[1:10000], HES_age_example$age_diag[1:10000])
Run the code above in your browser using DataLab