data(mental)
mental.unbalanced <- to.unbalanced(mental, id.col = 1,
times = c(0,1,2,4,6,8),
Y.col = 2:7,
other.col = c(8,10,11))
names(mental.unbalanced)[3] <- "Y"
vgm <- variogram(indv = mental.unbalanced[, 1],
time = mental.unbalanced[, 2],
Y = mental.unbalanced[, 3])
plot(vgm, ylim = c(0, 500))Run the code above in your browser using DataLab