R/dot_product.R

#' Title
#'
#' @param x
#' @param y
#'
#' @return
#' @export
#'
#' @examples
dp <- function(x,y)
{

  stopifnot((length(x) == length(y)))

  R <- as.numeric(t(x)%*%y)
  return(R)
}
DavidObst/Probing documentation built on May 6, 2019, 1:54 p.m.