# NOT RUN {
##sets up site-pair table
load(system.file("./data/gdm.RData", package="gdm"))
sppData <- gdmExpData[, c(1,2,14,13)]
envTab <- gdmExpData[, c(2:ncol(gdmExpData))]
sitePairTab <- formatsitepair(sppData, 2, XColumn="Long", YColumn="Lat", sppColumn="species",
siteColumn="site", predData=envTab)
##create GDM
gdmMod <- gdm(sitePairTab, geo=TRUE)
##summary of GDM
summary(gdmMod)
# }
Run the code above in your browser using DataLab