R/square_calc.R

In jailagolden/package: Map organisms in the World map.

#' Calculates the area of a square
#' 
#' @param side_length length of a side of a 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)
}