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