R/addsquare.R

In SchoenbergA/Gitit:

#' addsquare
#'
#' uses the "square" function and requires quickPlot
#'
#' @param x numeric value
#' @param y numeric value
#' @return the square of x+y
#'
#' @export
#' @import quickPlot

Main <- function(x,y){
  result <- x+y
  out <-squ(subx = result)
  print(paste("x+y =",result))
  quickPlot::Plot(result,out)


  return(out)
}