if (FALSE) {
#using bparameters directly
btest <- getSavedata_Bparams("model vb1_simpel_b.out")
testBParametersCompoundConstraint(btest,
"(STDYX_STAITOT.ON.CG > STDYX_STAITOT.ON.UCG) & (STDYX_BDIM.ON.CG > STDYX_BDIM.ON.UCG)")
#or using readModels
btest <- readModels("model vb1_simpel_b.out")
testBParametersCompoundConstraint(btest,
"(STDYX_STAITOT.ON.CG > STDYX_STAITOT.ON.UCG) & (STDYX_BDIM.ON.CG > STDYX_BDIM.ON.UCG)")
}
Run the code above in your browser using DataLab