# \donttest{
if (FALSE) {
data("dataCopCont")
c1 <- copulaCorrection(y~X1+X2+P|continuous(P), num.boots=10,
data=dataCopCont)
# returns the fitted values
predict(c1)
# using the data used for fitting also for predicting,
# correctly results in fitted values
all.equal(predict(c1, dataCopCont), fitted(c1)) # TRUE
}# }
Run the code above in your browser using DataLab