R/triangle.R

In andreamelloncelli/shapes3: Tidy Package

#' Triangle
#'
#' @param base numeric the base of the triangle
#' @param height numeric the height of the triangle
#'
#' @return  numeric value of the area of the triangle
#'
#' @export
#'
#' @example # area_triangle(3, 2)
area_triangle <- function(base, height) {
  base * height / 2
}