powered by
This function computes conditional predictive ordinates for each datapoint.
cpo(obj)
For internal use.
# NOT RUN { ## The function is currently defined as function (obj) { fx <- obj$fx cpo <- 1/apply(1/fx, 1, mean) return(cpo) } # }
Run the code above in your browser using DataLab