#' Title
#'
#' @param u
#' @param a
#'
#' @return
#' @export
#'
#' @examples
proj <- function(u,a)
{
p.u <- as.numeric( t(u)%*%a/((t(a)%*%a)) )*a
return(p.u)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.