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)")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.