## 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))
# attframe <- read.dbf("shapefile")
# samp <- grts(design=design, DesignID="Test.Site", type.frame="area",
# src.frame="shapefile", in.shape="shapefile", att.frame=attframe,
# stratum="stratum", mdcaty="mdcaty", shapefile=TRUE,
# shapefilename="sample")
# dsgnsum(samp, auxvar=c("ecoregion", "state"))
# ## End(Not run)
Run the code above in your browser using DataLab