# Create a random data set with 50 data points and 3 population groups
xy <- matrix(runif(100), ncol = 2)
pop <- matrix(runif(150), ncol = 3)
localenv <- SegLocalEnv(coords = xy, data = pop)
# Generic functions
print(localenv)
summary(localenv)
par(mfrow = c(1, 3))
plot(localenv, xlab = "x", ylab = "y")
par(mfrow = c(1, 2))
plot(localenv, xlab = "x", ylab = "y", which.col = c(1, 3))
as.list(localenv)
Run the code above in your browser using DataLab