#' mysq
#'
#' Squares a given x
#' @param x a number
#'
#' @return
#' @export
#'
#' @examples
#' mysq(3)
mysq <- function(x){
y <- x^2
plot(y ~ x)
list(x = x, y = y, ysum = summary(y))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.