##For data without any non-sampled area
data(dataBetaAr1) # Load dataset
dataBetaAr1 = dataBetaAr1[1:25,] #for the example only use part of the dataset
formula = ydi ~ xdi1 + xdi2
area = max(dataBetaAr1[, "area"])
period = max(dataBetaAr1[,"period"])
result <- RaoYuAr1.beta(formula, area, period, data = dataBetaAr1)
result$Est
result$refVar
result$coefficient
result$plot
## For data with non-sampled area use dataBetaAr1Ns
Run the code above in your browser using DataLab