## Create an spsurvey.analysis object
my.spsurvey <-
spsurvey.analysis(design = coordenadas(my.data),
data.cont = delta(ref.data, my.data),
popcorrect = TRUE, pcfsize = length(my.data$id),
support = rep(1, length(my.data$id)),
wgt = rep(1, length(my.data$id)), vartype = "SRS")
Run the code above in your browser using DataLab