sp1 <- corRRatio(form = ~ x + y + z)
spatDat <- data.frame(x = (0:4)/4, y = (0:4)/4)
cs1Ratio <- corRRatio(1, form = ~ x + y)
cs1Ratio <- Initialize(cs1Ratio, spatDat)
corMatrix(cs1Ratio)
cs2Ratio <- corRRatio(1, form = ~ x + y, metric = "man")
cs2Ratio <- Initialize(cs2Ratio, spatDat)
corMatrix(cs2Ratio)
cs3Ratio <- corRRatio(c(1, 0.2), form = ~ x + y, nugget = TRUE)
cs3Ratio <- Initialize(cs3Ratio, spatDat)
corMatrix(cs3Ratio)
Run the code above in your browser using DataLab