#' @param x Fitted result object.
#' @param \dots Other parameters to functions.
#' @importFrom graphics points
#' @rdname humpfit
#' @export
`points.humpfit` <-
function(x, ...)
{
points(x$x, x$y, ...)
invisible()
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.