R/teste_normal.R

In vprates22/TEST: Trabalho2

#' @title teste hipotese utilizando a distribuição normal
#' @name normalidade
#'
#' @description utilizamos calculos para definir se uma hipotese nula deve ou não ser rejeitada.
#'
#' @param mu media universal
#' @param ma media amostral
#' @param var variancial universal
#' @param conf.level intervalo de confiança
#'
#' @author Victor Prates
#'
#' @seealso \url{https://r-pkgs.org/whole-game.html#whole-game-document}
#'
#' @importFrom stats qnorm
#'
#' @export
normalidade<-function(mu,ma,var,conf.level=0.95){
  z<-(ma-mu)/sqrt(var)
  if((z>=qnorm((1-conf.level)/2))&(z<=qnorm((1-((1-conf.level)/2))))){print("Hipotese nula nao deve ser rejeitada")}
  else{print("Hipotese nula deve ser rejitada")}
}