## Not run:
# suppressMessages(library(cubfits, quietly = TRUE))
#
# y.scuo <- convert.y.to.scuo(ex.train$y)
# SCUO <- calc_scuo_values(y.scuo)$SCUO
# plotprxy(ex.train$phi.Obs, SCUO, ylab = "SCUO (log10)")
# ## End(Not run)
Run the code above in your browser using DataLab