library(vegan)
library(mgcv)
library(akima)
data(faramea)
Count.model1 <- lm(Faramea.occidentalis ~ Precipitation,
data=faramea, na.action=na.exclude)
surface.1 <- residualssurface(Count.model1, na.omit(faramea),
'UTM.EW', 'UTM.NS', gam=TRUE, plotit=TRUE, bubble=TRUE)
Run the code above in your browser using DataLab