R/orthogonal_projector.R

#' 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)
}
DavidObst/Probing documentation built on May 6, 2019, 1:54 p.m.