# NOT RUN {
#Independence
name.correl(is.comp=FALSE,is.reg=FALSE)
#returns "SC"
#Regulation
beta <- matrix(c(1,10,5,0.1,1,0.5,0.2,2,1),nrow=3)
name.correl(is.comp=FALSE,is.reg=TRUE,beta_fun=beta)
#returns "RegPos"
# }
Run the code above in your browser using DataLab