library(rcompanion)
library(psych)
library(MASS)
library(nortest)
library(ggplot2)
n <- 1e3
m <- 20:150

te2 <- for(i in m){
  t2err <- 0
  for(j in 1:n){
    x <- rnorm(i, 0, 1)
    if(t.test(x, mu = 0.5)$p.value > 0.05){
      t2err <- t2err + 1
    }
  }
  cat("La tasa de Error Tipo 2 en una muestra de tamaño ", i, " es del
      ", t2err / n * 100, "% n", sep = "")
}