R/createThompson1990Fig1Sample.R

In ksauby/ACS: Adaptive Cluster Sampling

#' Create the population displayed in Figure 1 from Thompson (1990)
#' 
#' @return The population displayed in Figure 1 from Thompson (1990).
#' @noRd


createThompson1990Fig1Sample <- function() {
	sample = rbind(
			c(6,19),
			c(18,18),
			c(4,17),
			c(4,16),
			c(19,12),
			c(12,11),
			c(11,7),
			c(5,6),
			c(4,2),
			c(16,1)
		) %>%
		as.data.frame
	names(sample) <- c("x", "y")
	return(sample)
}



# INITIAL STAGE OF SAMPLING