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