data(blackcap)
bfit <- corrHLfit(migStatus ~ means+ Matern(1|longitude+latitude),data=blackcap,
HLmethod="ML",
ranFix=list(lambda=0.5537,phi=1.376e-05,rho=0.0544740,nu=0.6286311))
mapMM(bfit,color.palette = function(n){spaMM.colors(n,redshift=1/2)})
## showing add.map
filled.mapMM(bfit,add.map=TRUE,plot.axes={axis(1);axis(2)},
plot.title=title(main="Inferred migration propensity of blackcaps",
xlab="longitude",ylab="latitude"))
## filled.mapMM takes a bit longer
filled.mapMM(bfit,nlevels=30,plot.axes={axis(1);axis(2)},
plot.title=title(main="Inferred migration propensity of blackcaps",
xlab="longitude",ylab="latitude"))
## showing more involved use of add.map
data(Loaloa)
lfit <- corrHLfit(cbind(npos,ntot-npos)~elev1+elev2+elev3+elev4+maxNDVI1+seNDVI
+Matern(1|longitude+latitude),HLmethod="HL(0,1)",data=Loaloa,
family=binomial(),ranFix=list(nu=0.5,rho=2.255197,lambda=1.075))
if(require(maps)) {
mapMM(lfit,add.map=quote(map(,xlim=xrange,ylim=yrange,add=TRUE)))
}
## longer computation requiring interpolation of 197 points
filled.mapMM(lfit,add.map=TRUE,plot.axes={axis(1);axis(2)},
add.points=quote(points(pred[,coordinates],pch=15,cex=0.3)),
plot.title=title(main="Inferred prevalence, North Cameroon",
xlab="longitude",ylab="latitude"))
Run the code above in your browser using DataLab