R/dot_product.R

In alexey-larionov/tp2: Test package 2

#' Dot product
#'
#' @author Alexey Larionov
#' @param x scalar, vector or matrix
#' @param y scalar, vector or matrix
#' @return The dot product of x and y
#' @export dot_product

# Should really leave test here

dot_product <- function(x,y){
  zz <- x %*% y # test
  return(zz)

}