Nothing
#' cent
#'
#' @param X vector to be centered
#'
#' @return Returns a centered vector
#' @export
#'
#' @examples X<-c(1:10)
#' cent(X)
cent<-function(X){
X<-X-mean(X)
return(X)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.