if (FALSE) {
file <- system.file("external/model.sdm", package="sdm")
m <- read.sdm(file)
m
getModelInfo(m)
m1 <- m[[3:4]]
m1
getModelInfo(m1)
m2 <- m[[3:4,drop=FALSE]]
m2
getModelInfo(m2)
#---- the following is the same as previous:
m2 <- subset(m,3:4,drop=FALSE)
m2
getModelInfo(m2)
}
Run the code above in your browser using DataLab