#' Calculate simple interest
#'
#' @param p numeric
#' @param r numeric
#' @param t numeric
#'
#' @return numeric
#' @export
#'
#' @examples
#' simple_interest(5000,0.08,11/12)
simple_interest <- function(p,r,t){
p*r*t
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.