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