## Not run: ------------------------------------
# AUC <- testAUC(testdat,
# transformation = "D:/path/to/modeling/directory/deriveVars/transformations.Rdata",
# model = "D:/path/to/modeling/directory/selectEV/round/model/1.lambdas")
## ---------------------------------------------
sp1pa <- toydata_sp1po
sp1pa$RV[is.na(sp1pa$RV)] <- 0
sp1pa[, 1] <- sample(sp1pa$RV, 40)
auc <- testAUC(sp1pa, toydata_dvs$transformations,
system.file("extdata/sommerfeltia", "1.lambdas", package = "MIAmaxent"))
auc
## Not run: ------------------------------------
# From vignette:
# grasslandAUC <- testAUC(grasslandPA, transformation = grasslandDVs[[2]],
# model = system.file("extdata", "1.lambdas", package = "MIAmaxent"))
# grasslandAUC
## ---------------------------------------------
Run the code above in your browser using DataLab