# NOT RUN {
design <- list(Stratum1=list(panel=c(PanelOne=50), seltype="Equal", over=10),
Stratum2=list(panel=c(PanelOne=50, PanelTwo=50), seltype="Unequal",
caty.n=c(CatyOne=25, CatyTwo=25, CatyThree=25, CatyFour=25), over=75))
frame <- read.shp("shapefile")
samp <- grts(design=design, DesignID="Test.Site", type.frame="area",
src.frame="shapefile", in.shape="shapefile", att.frame=frame@data,
stratum="stratum", mdcaty="mdcaty", shapefile=TRUE,
shapefilename="sample")
spbalance(samp, frame, sbc_ind = TRUE)
# }
Run the code above in your browser using DataLab