R/lab6.R

In fraclad/math4753: Function from th MATH4753

#' Continuous, Normal Distribution Area
#'
#' @param mu mean
#' @param sigma the standard deviation
#' @param x vector of interest
#'
#' @return graphic showing the area of prescribed configuration of a normal distribution
#' @export
#'
#' @examples myncurvelab6(10,1,7)
myncurvelab6 = function(mu, sigma, x){
  curve(dnorm(x,mean=mu,sd=sigma), xlim = c(mu-3*sigma, mu + 3*sigma))
  lowlim = x - 2000
  xcurve = seq(lowlim,x,length =10000)
  ycurve = dnorm(xcurve, mu,sigma)

  polygon(c(lowlim,xcurve,x), c(0,ycurve,0), col = '#4cbded')

  Area = pnorm(x, mu,sigma)
  Area = round(Area, 4)
  text(x-0.5,0.05, paste0('Area= ', Area))

}