logratioVariogram(comp,
loc,
maxdist=max(dist(loc))/2,
nbins=20,
dists=seq(0,maxdist,length.out=nbins+1),
bins=cbind(dists[-length(dists)],dists[-1]),
azimuth=0,
azimuth.tol=180
)"logratioVariogram".vgram2lrvgram,
CompLinModCoReg,
vgmFitdata(juraset)
X <- with(juraset,cbind(X,Y))
comp <- acomp(juraset,c("Cd","Cu","Pb","Co","Cr"))
lrv <- logratioVariogram(comp,X,maxdist=1,nbins=10)
plot(lrv)Run the code above in your browser using DataLab