#################
### building joint trajectories
dn <- data.frame(id=1:3,v1=c(11,14,16),t1=c(1,5,7),v2=c(12,10,13),t2=c(2,5,0),t3=c(3,6,8))
(ld <- longData3d(dn,timeInData=list(Vir=c(2,4,NA),Tes=c(3,5,6))))
### Scaling
scale(ld)
(ld)
### Plotting
plotTraj(ld)
plotTraj3d(ld)
restoreRealData(ld)
Run the code above in your browser using DataLab