## Not run:
# # starting GRASS session
# initGRASS("/usr/bin/grass-7.0.0", home=tempdir())
# initGRASS("C:/GRASS", home=tempdir())
#
# data(apis.enirg)
#
# # presences table
# lina <- apis.enirg$presences
#
# # loading the environmental information in batch
# predictor.names <- c("tann", "mxtwm", "mntcm", "rfdm", "rfseas")
# predictor.maps <- paste("std_", predictor.names, sep="")
# file.names <- paste(system.file(package = "ENiRG"),
# "/ext/", predictor.names, ".asc", sep="")
#
# import.egvs(file.names, predictor.names)
#
# # standardization
# stdz.maps(predictor.names, predictor.maps)
#
# # performing the Ecologigal Niche Factor Analysis (ENFA)
# enirg(presences.table = lina, qtegv.maps = predictor.maps,
# species.name = "African", nf = 3, scannf = FALSE,
# method = "normal") -> apis.enfa
#
# enirg.predict(apis.enfa, load.map = TRUE, method = "normal") -> apis.hsm
#
# data(cbi.results)
#
# classify.map(map = "African_predicted_hsm",
# suit.classes = cbi.results,
# output.name = "African_hsm_class") -> apis.hsm.class
# ## End(Not run)
Run the code above in your browser using DataLab