powered by
cpo(obj)
## 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