R code for Survey about Surveys