R/vector_product.R

In espadon: Easy Study of Patient DICOM Data in Oncology

#' Vector product of two vectors
#' @param v1  Vector of x, y, z coordinates
#' @param v2  Vector of x, y, z coordinates
#'
#' @return Returns the x, y, z coordinates of the vector product of v1 and v2

#' @examples
#' vector.product(c (1, 0, 0), c (0, 1, 0))
#'
#' @export
vector.product <- function (v1,v2){
  v1_<- c(v1[2:length(v2)],v1[1])
  v2_<- c(v2[2:length(v2)],v2[1])
  v <-  v1 *v2_ - v2*v1_
  as.numeric(c(v[2:length(v)],v[1]))
}