print.ProbToData<-function(x, digits=3, ...){
object<-x
rm(x)
if(inherits(object,"ProbToData")){
cat("Missing pattern is monotone and the coeffiecnts are of the regression are:\n")
for(jj in 1:length(object$CoefList)){
if(is.null(object$CoefList[[jj]])){
NULL
} else {
print(round(object$CoefList[[jj]],digits))
}
}
cat("Data:\n")
print(round(head(object),digits))
}
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.