if (FALSE) {
file <- system.file("external/pa_df.csv", package="sdm")
df <- read.csv(file)
head(df)
d <- sdmData(sp ~ b15 + NDVI, train = df)
d
#----
m1 <- sdm(sp ~ b15 + NDVI, data = d, methods = c('glm', 'gbm'))
m1
m2 <- sdm(sp ~ b15 + NDVI, data = d, methods = c('svm'))
m2
m <- m1 + m2
m
}
Run the code above in your browser using DataLab