# 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))
samp <- grts(design=design, DesignID="Test.Site", type.frame="area",
src.frame="shapefile", in.shape="shapefile", stratum="stratum",
mdcaty="mdcaty", shapefile=TRUE, out.shape="sample.shp")
dsgnsum(samp, auxvar=c("ecoregion", "state"))
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab