Nothing
#' Convert dataframe to matrix
#'
#' @param data dataframe of weight
#'
#' @return A matrix
#' @export
#'
#' @examples
#' weight_mat(data = weight)
weight_mat <- function(data) {
m <- as.matrix(data[, -1, drop = FALSE])
m
}
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.