# NOT RUN {
# cost constrained
d1 <- cosa.bcrd3r2(constrain = "cost", cost = 20000,
cn1 = c(5, 3), cn2 = 10, cn3 = 30,
es = .20, rho2 = .20, rho3 = .10, omega3 = .10,
r21 = .20, r22 = .20, r2t3 = .20,
g3 = 1, p = .50, n1 = 25)
summary(d1)
# }
Run the code above in your browser using DataLab