# Chapter 5 Sampling ## 5.1 Introduction

Sampling is a fundamental part of statistics. Samples are collected to achieve an understanding of a population because it is typically not feasible to observe all members of the population. The goal is to collect samples that provide an accurate representation of the population. Constraints on time and money dictate that the sampling effort must be efficient. More samples are needed to characterize the nature of highly variable populations than less variable populations.

Define your purpose: What are you investigating? Examples include soil properties, soil classes, and plant productivity.

How many samples are needed?

Because you are typically interested in using field point data to derive inferences, you need enough samples to be confident that they approximate the target population. In the case of calibrating a laboratory device, you might only need two measurements, each at opposite ends of the measurement scale. This illustrates the point that sample size is closely related to the inherent variability in the data. The number of samples required increases with increasing variability. Also, the more samples you have, the greater the confidence level you can achieve. For example, sampling at an 85 percent confidence level is less intensive than sampling at a 95 percent confidence level.

If you have prior knowledge about the soil attribute being sampled, you can use a t-test to estimate the number (n) of samples needed to detect a significant difference. You can use either the power.t.test() or power.prop.tes() functions. See the following example of differences in clay content.

# Clay example. Test to see the number of samples necessary to detect a 3 percent difference in clay between two horizons.
power.t.test(power = 0.95, sd = 2, delta = 16 - 19) # delta = the difference between the two means
##
##      Two-sample t test power calculation
##
##               n = 12.59872
##           delta = 3
##              sd = 2
##       sig.level = 0.05
##           power = 0.95
##     alternative = two.sided
##
## NOTE: n is number in *each* group
power.t.test(power = 0.95, sd = 3, delta = 16 - 19)
##
##      Two-sample t test power calculation
##
##               n = 26.98922
##           delta = 3
##              sd = 3
##       sig.level = 0.05
##           power = 0.95
##     alternative = two.sided
##
## NOTE: n is number in *each* group
##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max.
##    12.0    15.5    17.5    17.5    19.5    23.0 From the figure above, you can see how difficult it is to separate two overlapping populations (e.g., horizons). Also, a 1-unit increase in the standard deviation doubles the number of samples required. This simplistic example, although enlightening, is hard to implement in practice and serves only as a theoretical exercise.

Some rules of thumb for regression models are as follows:

• Use > 10 observations (n) per predictor (m) (Kutner et al., 2005).
• Use > 20 n per m and n > 104 + m to test regression coefficients (Rossiter, 2015; Franklin and Miller, 2009).
• Never use n < 5*m (Rossiter, 2015).

Soil Survey Applications:

1. Capture range of soil-forming factors
2. Determine map unit composition

## 5.2 Sampling Strategies

### 5.2.1 Simple Random

In simple random sampling, all samples within the region have an equal chance of being selected. A simple random selection of points can be made using either the spsample() function within the sp R package or the Create Random Points tool in ArcGIS.

• Simplicity
• Requires little prior knowledge of the population

• Lower accuracy
• Higher cost
• Lower efficiency
• Samples may be clustered spatially
• Samples may not be representative of the feature attribute(s)
library(sp)

# Create a sixteen square polygon
grd <- GridTopology(c(1, 1), c(1, 1), c(4, 4))
polys <- as.SpatialPolygons.GridTopology(grd)
plot(polys)

# Generate simple random sample
test <- spsample(polys, n = 15, type = "random")
points(test, pch = 19) ### 5.2.2 Systematic

In systematic sampling, a sample is taken according to a regularized pattern. This approach ensures even spatial coverage. Patterns may be rectilinear, triangular, or hexagonal. This sampling strategy can be inaccurate if the variation in the population doesn’t coincide with the regular pattern (e.g., if the population exhibits periodicity).

• Greater efficiency
• Lower cost

• Lower precision
plot(polys, main = "Systematic sample")

# Generate systematic random sample
test <- spsample(polys, n = 15, type = "regular")
points(test, pch = 19) ### 5.2.3 Cluster

In cluster sampling, a cluster or group of points is selected at one or more sites. The transect is an example of this strategy, although other shapes are possible (e.g., square, triangle, or cross shapes). It is common to orient the transect in the direction of greatest variability.

• Greater efficiency
• Lower cost

• Lower precision
plot(polys, main = "Clustered (n = 3) random sample")

# Generate cluster random sample
test <- spsample(polys, nclusters = 3, type = "clustered")
points(test, pch = 19) ### 5.2.4 Stratified Random

In stratified random sampling, the sampling region is spatially subset into different strata, and random sampling is applied to each strata. If prior information is available about the study area, it can be used to develop the strata. Strata may be sampled equally or in proportion to area; however, if the target of interest is rare in the population, it may be preferable to sample the strata equally (Franklin and Miller, 2009).

• Higher accuracy
• Lower cost

• The existing knowledge used to construct strata may be flawed.
plot(polys, main = "Stratified random sample")

# Generate a spatially stratified random sample
test <- sapply(slot(polys, 'polygons'), function(x) spsample(x, n = 1, type = "random"))
test <- do.call("rbind", test)
points(test, pch = 19) Note that the spsample() function only stratifies the points spatially. Other more sophisticated designs can be implemented using the spsurvey, spcosa, sharpshootR, or clhs packages.

### 5.2.5 Multistage Stratified Random

In multistage random sampling, the region is separated into different subsets that are randomly selected (i.e., first stage), and then the selected subsets are randomly sampled (i.e., second stage). This is similar to stratified random sampling, except that with stratified random sampling each strata is sampled.

• Greater efficiency
• Lower cost

• Lower precision
• Stronger clustering than simple random sampling
plot(polys, main = "Two-stage random")

# Select 8 samples from each square
s <- sapply(slot(polys, "polygons"), function(x) spsample(x, n = 5, type = "random"))
points(sample(s, 1)[], pch = 19) # randomly select 1 square and plot
points(sample(s, 1)[], pch = 19) # randomly select 1 square and plot #### 5.2.5.1 Conditioned Latin Hypercube (cLHS)

Conditioned Latin hypercube sampling is a multi-staged stratified random sampling technique to obtain representative samples from feature (attribute) space (Minasny and McBratney, 2006). For example, assume you have prior knowledge of a study area and have the time and resources to collect 120 points. You also know the following variables (strata), which are represented as coregistered raster datasets, to be of importance to the soil property or class being investigated:

• Normalized Difference Vegetation Index (NDVI),
• Topographic Wetness Index (a.k.a. Wetness Index, compound topographic index),
• Solar insolation (potential incoming solar radiation), and
• Relative elevation (a.k.a. relative position, normalized slope height).

The cLHS procedure iteratively selects samples from the strata variables such that they replicate the range of values from each stratum. Without a technique such as cLHS, obtaining a sample that is representative of the feature space becomes increasingly difficult as the number of variables (strata) increases.

To perform cLHS using R, you can use the clhs package (Roudier, 2011).

library(clhs)
library(raster)

# import volcano DEM, details at http://geomorphometry.org/content/volcano-maungawhau
data(volcano)
volcano_r <- raster(as.matrix(volcano[87:1, 61:1]),
crs = CRS("+init=epsg:27200"),
xmn = 2667405, xmx = 2667405 + 61 * 10,
ymn = 6478705, ymx = 6478705 + 87 * 10)
names(volcano_r) <- "elev"

# calculate slope from the DEM
slope_r <- terrain(volcano_r, opt = "slope", unit = "degrees")

# Stack Elevation and Slope
rs <- stack(volcano_r, slope_r)

# generate cLHS design
cs <- clhs(rs, size = 20, progress = FALSE, simple = FALSE)

# Plot cLHS Samples
par(mar=c(1,1,1,4))
plot(volcano_r, axes=FALSE)
points(cs$sampled_data) # Summary of clhs object summary(cs$sampled_data)$data ## elev slope ## Min. : 96.0 Min. : 0.000 ## 1st Qu.:108.5 1st Qu.: 7.618 ## Median :124.0 Median :13.915 ## Mean :130.8 Mean :14.565 ## 3rd Qu.:151.0 3rd Qu.:20.591 ## Max. :187.0 Max. :33.426 # Summary of raster objects cbind(summary(volcano_r), summary(slope_r)) ## elev slope ## Min. 94 0.000000 ## 1st Qu. 108 7.054131 ## Median 124 14.103463 ## 3rd Qu. 150 21.665758 ## Max. 195 43.032469 ## NA's 0 292.000000 Although the above example works well on our small volcano dataset, the clhs package is inefficient if you are working with large raster datasets. To overcome this limitation, you can first take a large random sample and then subsample it using cLHS. sub_s <- sampleRandom(volcano_r, size = 200, sp = TRUE) # random sample function from the raster package # s <- clhs(sub_s, size = 20, progress = FALSE, simple = FALSE) ## 5.3 Evaluating a Sampling Strategy To gauge the representativeness of a sampling strategy, you can compare the results it produces to the results for other variables you think might coincide with the soil properties or classes of interest (Hengl, 2009). Examples include slope gradient, slope aspect, and vegetative cover. These other variables may be used to stratify the sampling design or to assess the representativeness of our existing samples (e.g., NASIS pedons). The simple example below demonstrates how to compare several sampling strategies by evaluating how well they replicate the distribution of elevation. # set seed set.seed(1234) # create a polygon from the spatial extent of the volcano dataset test <- as(extent(volcano_r), "SpatialPolygons") # take a large random sample sr400 <- spsample(test, n = 400, type = "random") # take a small random sample sr <- spsample(test, n = 20, type = "random") # take a small stratified random sample str <- spsample(test, n = 23, type = "stratified", iter = 1000)[1:20] # take a cLHS sample # cs <- clhs(rs, size = 20, progress = FALSE, simple = FALSE) # Combind and Extract Samples s <- rbind(data.frame(method = "Simple Random 400", extract(rs, sr400)), data.frame(method = "Simple Random", extract(rs, sr)), data.frame(method = "Stratified Random", extract(rs, str)), data.frame(method = "cLHS", slot(cs$sampled_data, 'data')))

# Summarize the sample values
aggregate(slope ~ method, data = s, function(x) round(summary(x)))
##              method slope.Min. slope.1st Qu. slope.Median slope.Mean slope.3rd Qu. slope.Max.
## 1              cLHS          0             8           14         15            21         33
## 2     Simple Random          0             7           17         15            23         28
## 3 Simple Random 400          0             6           14         15            21         37
## 4 Stratified Random          3             6           15         15            21         35
# Plot overlapping density plots to compare the distributions between the large and small samples
library(ggplot2)
ggplot(s, aes(x = slope, col = method)) +
geom_density(cex = 2) # plot the spatial locations
par(mfrow = c(1, 3), mar=c(1,2,4,5))
plot(volcano_r, main = "Simple random", cex.main = 2, axes=FALSE)
points(sr, pch = 3, cex = 1.2)

plot(volcano_r, main = "Stratified random", cex.main = 2, axes=FALSE)
points(str, pch = 3, cex = 1.2)

plot(volcano_r, main = "cLHS", cex.main = 2, axes=FALSE)
points(cs\$sampled_data, pch = 3, cex = 1.2) The overlapping density plots above illustrate the differences between large and small sets of samples using several sampling designs.

The cLHS approach best duplicates the distribution of elevation (because elevation is explicitly used in the stratification process). The contrast is less severe in the summary metrics, but again cLHS more closely resembles the larger sample. Other comparisons are possible using the approaches in the following chapters.

### 5.3.1 Exercise: Design a Sampling Strategy

• Using the “tahoe_lidar_highesthit.tif” dataset in the gdalUtils package or using your own data set (highly encouraged), compare two or more sampling approaches.

## 5.4 Other Tools for Selecting Random Features

An ArcGIS tool for selecting random features is available from the Job Aids page. This tool randomly selects the specified number of features from a dataset or set of selected features in ArcGIS. It is an ideal tool for the first stage of a two-stage random sample.

### 5.4.1 cLHS Using TEUI

The TEUI toolkit includes a tool for generating cLHS samples on large raster datasets. The tool is based on the clhs R package (Roudier, 2011).

• Relative Elevation (a.k.a. relative position)
• Northwestness
• Normalized Difference Vegetation Difference (a.k.a. NDVI) R GUI image

Open ArcGIS. Add the TEUI Toolkit Toolbar by clicking the Customize tab, pointing to Toolbars, and checking TEUI. R GUI image

The TEUI Toolbar looks like the following. R GUI image

Click the Cube icon to open the Latin Hyper Cube Generator Tool. R GUI image R GUI image

The Tool requires that all raster data be in Imagine format (i.e., have the “img” extension) and share a common projection and resolution.

An exclusion layer is used in this example. An exclusion layer is a binary raster with values of 0 and 1. Using an exclusion layer confines the selection of points to those areas with a raster value of 1.

The output file is a shapefile named “samples.shp.” The Number of Points is 30. The Number of Iterations is increased from the default of 100 to 300. Increasing the number of iterations increases the processing time, but it also increases the likelihood that the samples selected are representative of the selected strata.

Click Generate and let the routine process. This can take from several minutes to several hours, depending on how large the area is in terms of columns and rows and how many layers are used.

The resulting output shows 30 points confined to the watershed of interest. R GUI image

Comparing the frequency distribution of the samples to the population shows a reasonable representation, especially considering the small sample size. R GUI image

### 5.4.2 Two-Stage Stratified Random Sample Design Using ArcGIS

The following example examines a sampling design executed by Wendy Noll, USDA-NRCS, Morgantown, WV and used by NRCS and USFS investigators in the Monongahela National Forest. They were interested in quantifying the depth of organic surface horizons in soils that correlated to the Mandy soil series and formed under red spruce canopy on backslopes in the Upper Greenbrier Watershed (HUC 8 -05050003). This project ultimately led to the development of new soil series and the update of thousands of acres of forest soils in West Virginia.

Stage 1: Sub-watersheds in the study area were randomly selected. R GUI image

Strata: Sampling was based on three stratum.

• Mandy soil map units (MfE, MfF, MfG, and other)
• Red spruce canopy cover (>30% canopy, other)
• Slope (<= 35%, >= 35%)

Data layers: Input layers included coregistered raster data of each stratum, reclassed as follows. R GUI image

The Raster Calculator was used to add data layers together. R GUI image

The resulting raster file had the following combinations. R GUI image

The following guide was used to verify the selection of sample numbers allocated according to the proportionate extent of the strata. R GUI image

The Create Random Points tool was used within each sub-watershed. The tool is in Data Management Tools > Feature Class toolbox. R GUI image

The sub-watershed layer was specified as the Constraining Feature Class. The number of points selected was 50. R GUI image

The resulting point file had 50 points per polygon. R GUI image

The following image was used to check if the sample points adequately represented the proportionate extent of the data made by summarizing the GRIDCODE of the points. R GUI image

The results compared well to the extent of the population. R GUI image

## 5.5 References (Sampling)

Franklin, J., and J.A. Miller. 2009. Mapping species distributions: Spatial inference and prediction. Cambridge: Cambridge University Press. http://www.cambridge.org/us/academic/subjects/life-sciences/ecology-and-conservation/mapping-species-distributions-spatial-inference-and-prediction.

Hengl, T. 2009. A practical guide to geostatistical mapping, 2nd Ed. University of Amsterdam. ISBN 978-90-9024981-0. http://spatial-analyst.net/book/system/files/Hengl_2009_GEOSTATe2c0w.pdf.

Kutner, M.H., C.J. Nachtsheim, J. Neter, and W. Li (Eds.). 2005. Applied linear statistical models, 5th edition. McGraw-Hill.

Roudier, P. 2011. cLHS: A R package for conditioned Latin hypercube sampling. https://cran.r-project.org/web/packages/clhs/index.html.

Rossiter, D. 2015. Spatial modelling and analysis applied to agronomic and environmental systems [Lecture notes]. http://www.css.cornell.edu/faculty/dgr2/teach/CSS6200.html.

Minasny, B., and A.B. McBratney. 2006. A conditioned Latin hypercube method for sampling in the presence of ancillary information. Computers & Geosciences. 32(9):1378-1388. http://www.sciencedirect.com/science/article/pii/S009830040500292X.

Vaughan, R., and K. Megown. 2015. The Terrestrial Ecological Unit Inventory (TEUI) Geospatial Toolkit: User guide v5.2. RSAC-10117-MAN1. Salt Lake City, UT: U.S. Department of Agriculture, Forest Service, Remote Sensing Applications Center. http://www.fs.fed.us/eng/rsac/programs/teui/about.html.