clme1 <- clme()
clme2 <- list( theta=c(1,3,4.5,9) )
is.clme( clme2 )
as.clme(clme2)
clme3 <- list( theta=c(1,3,4.5,9) , ssq=1 , tsq=2 ,
cov.theta=as.matrix( c(1,2,3,4)%*%t(c(1,2,3,4)) ) ,
ts.glb=1 , ts.ind=c(1,2,3) , p.value=0.5 ,
p.value.ind=c(0.2,0.5,0.8) ,
constraints=list( A=matrix(0,nrow=3)))
is.clme( clme3 )
as.clme( clme3 )
Run the code above in your browser using DataLab