if (FALSE) {
df <- df_b[,grepl("ssid|KIDSCREEN52_D_",colnames(df_b))][,c(1:53)]
k52 <- questionaire(df,id = "ssid",
questions=colnames(df)[grepl("KIDSCREEN",colnames(df))],
scale="Kidscreen-52",
setting="proxy")#'
}
Run the code above in your browser using DataLab