##################
### Building LongData
time=c(1,2,3,4,8,12,16,20)
id2=1:12
f <- function(id,t)((id-1)%%3-1) * t
g <- function(id,t)(id%%2+1)*t
ld1 <- as.longData(array(cbind(outer(id2,time,f),outer(id2,time,g))+rnorm(12*8*2,0,3),dim=c(12,8,2)))
### Scaling
plot(ld1)
scale(ld1)
### Only the y-axe change...
plot(ld1)
Run the code above in your browser using DataLab