#' @rdname getPlot-methods
#' @export
setMethod("getPlot", "AsymmetryCurveList", function(object) {
p <- .getPlot(object)
p <- p + ggtitle("Asymmetry Curve")
p <- p + ylab("")
p <- p + xlab("Alpha")
return(p)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.