test

\[H_0:Es~ la~ distribucion\\ H_A: No~ es~ la~ distribucion\]

test <- function(data){
  if(ks.test(data, "pexp",mean(data),sd(data))[2]>0.05)y = print('Es una distribucion exponencial')
  else if (ks.test(data, "pnorm",mean(data),sd(data))[2]>0.05)y = print('Es una distribucion Normal')
  else if (ks.test(data, 'punif' ,min(data),max(data))[2]>0.05)y = print('Es una distribucion Uniforme')
  else if (ks.test(data, "ppois",mean(data),sd(data))[2]>0.05)y = print('Es una distribucion Poisson')
  else if (ks.test(data, "pbinom",mean(data),sd(data))[2]>0.05)y = print('Es una distribucion Binomial')
  else if (ks.test(data, "pchisq",mean(data),sd(data))[2]>0.05)y = print('Es una distribucion Chisquare')
  else if (ks.test(data, "plnorm",mean(data),sd(data))[2]>0.05)y = print('Es una distribucion Log Normal')
  else if (ks.test(data, "pbeta",mean(data),sd(data))[2]>0.05)y = print('Es una distribucion Beta')
}
set.seed(123)
x = rnorm(n = 50 )
hist(x, main = "Histograma de la distribucion", col = "gray")

plot(density(x), main = "Densidad distribucion")

test(x)

## [1] "Es una distribucion Normal"