R/hello.R

In advika18/DATA-598-WI20-week-7:

#' Title
#'
#' @param x
#'
#' @return
#' @export
#'
#' @examples
#' sq_root(4)
#' sq_root(25)
sq_root <- function(x) {

  print(sqrt(x))
}

#' Title
#'
#' @param r
#'
#' @return
#' @export
#'
#' @examples
#' circle_area(3)
circle_area <- function(r){

  a <- pi*r^2
  print(a)

}
#two functions added