R/squ.R

In SchoenbergA/Gitit:

#' square
#'
#' This function is used to test how depending subfuntions work in my Package
#'
#' @param subx numeric value
#' @return The Square of subx
#'
#'

squ <- function(subx){
  res <-subx * subx
  return(res)
}