sampling survey analysis project in R