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
,
vgmFit
data(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