resAux <- mdcp(QoL ~ EduLevel + Age + IncQuint + Gender + Health, data = crovData)
plotCMLE(resAux)
myVector <- resAux$estimates
myVectorID <- 10:12
myVector[myVectorID]
# non-monotonic beta_{0r}
myVector[myVectorID] <- seq(0.195,0.185,length.out=3)
confRegCCR(CMLE=resAux$estimates, paramVals=myVector, paramIDs=myVectorID,SignifLevel=0.05, df=3,
matY= resAux$matY, matX= resAux$matX)
# monotonic beta_{0r} and paramVals in CCR
myVector[myVectorID] <- seq(0.048,0.049,length.out=3)
confRegCCR(CMLE=resAux$estimates, paramVals=myVector, paramIDs=myVectorID,SignifLevel=0.05, df=3,
matY= resAux$matY, matX= resAux$matX)
# monotonic beta_{0r} and paramVals out of CCR
myVector[myVectorID] <- seq(0.047,0.048,length.out=3)
confRegCCR(CMLE=resAux$estimates, paramVals=myVector, paramIDs=myVectorID,SignifLevel=0.05, df=3,
matY= resAux$matY, matX= resAux$matX)
Run the code above in your browser using DataLab