R/myncurve.R

In z99jacc/MATH4753ouchavv0029: Math 4753

#' My Normal Curve
#'
#' @param mu
#' @param sigma
#' @param a
#'
#' @return
#' @export
#'
#' @examples
myncurve = function(mu, sigma, a){
  curve(dnorm(x,mean=mu,sd=sigma), xlim = c(mu-3*sigma, mu + 3*sigma))
  xcurve = seq(mu-3*sigma,a,length=1000)
  ycurve = dnorm(xcurve,mean=mu,sd=sigma)
  polygon(c(mu-3*sigma,xcurve,a),c(0,ycurve,0), col="Red")
  prob=pnorm(a,mean=mu,sd=sigma)
  prob=round(prob,4)
  prob
}