#################
### data.frame
myDataFrame <- data.frame(id=1:10,V1=rnorm(10),C1=rpois(10,1),V2=rnorm(10,1),C1=rpois(10,2),V3=rnorm(10,2),C2=rpois(10,2))
as.cld(myDataFrame,timeDataFrame=list(V1=c(2,4,6),v2=c(3,5,7)))
### Some time can be missing (like V12 in the following):
myDataFrame2 <- data.frame(id=11:12,Va11=c(1,4),Pe11=c(2,5),Pe12=c(3,5),Va13=c(2,3),Pe13=c(1,3))
as.cld(myDataFrame2,time=c(11,12,13),timeDataFrame=list(Va=c(2,NA,5),Pe=c(3,4,6)))
#################
### array
myArray <- array(rnorm(40),dim=c(5,4,2))
as.cld(myArray)
as.cld(myArray,idAll=c("I142","I156","I173","I181a","I181b"),time=c(6,12,24,48),varNames=c("Var1","Var2"),maxNA=0,criterionActif="ray")
#################
### LongData
myLongData <- as.longData(myArray)
as.cld(myLongData)
Run the code above in your browser using DataLab