R/square_calc.R

In elisabethpigott/pigott.package: Make a community matrix to then use for Hill numbers and non-metric multidimensional scaling.

#' Calculates the area of a square
#' 
#' @param side_length length of a side of the square
#' @return area_of_square
#' 
#' @export
#' 

square_calc <- function(side_length){
  assert_that(is.numeric(side_length))
  area <- side_length ^ 2
  assert_that(sqrt(area) == side_length)
  return(area)
}