The R code for analyze the farm survey data of SKEP project