n <- 5
P1 <- 5
X1 <- diag(P1) %x% rep(1,n)
X2 <- as.matrix( rep(1,P1) %x% runif(n , 0,2) )
# For simple order, the node does not matter
create.constraints( X1=X1 , constraints=list( order='simple' ,
decreasing=FALSE ))
# See effect of covariates, compare constraints against decreasing=TRUE
create.constraints( X1=X1 , X2=X2 , constraints=list( order='simple' ,
decreasing=TRUE ))
# Umbrella order
create.constraints( X1=X1 , constraints=list( order='umbrella' , node=3
, decreasing=FALSE ))
Run the code above in your browser using DataLab