# NOT RUN {
B <- 1/c(0.5,0.2,0.3)
correl <- "RegPos"
is.B.accurate(B,3,correl)
beta <- compute.beta.from.B(B)
#Seven enzymes and three groups
n <- 7
p <- 3
B <- c(1.1824, 3.695, -8.593023, 1.3, 13, 6.5, 1)
L_Phi <- list(1:3) #firt three enzymes in first group
L_Phi[[2]] <- 4:6
L_Phi[[3]] <- 7 #last enzyme independent
beta <- compute.beta.from.B(B,L_Phi)
# }
Run the code above in your browser using DataLab