library(plot3D)
## specify grid of spatial and temporal lags
d <- 31
st <- expand.grid(0:(d - 1),
0:(d - 1))
## get the STCS
g16 <- stcfgneiting16(t = st[, 1],
s = st[, 2],
a = 1/50,
c = 1/10,
alpha = 1,
beta = 1,
nu = 0.5, tau = 1)
## visualize the STCS
g16.m <- matrix(g16,
nrow = d)
persp3D(z = g16.m, x = 1: nrow(g16.m), y = 1:ncol(g16.m),
expand = 1, main = "", scale = TRUE, facets = TRUE,
xlab="Time lag", ylab = "Distance", zlab = "STCF",
colkey = list(side = 4, length = 0.5), phi = 20, theta = 120,
resfac = 5, col= gg2.col(100))
Run the code above in your browser using DataLab