Selección de propuesta

1 - Se carga los datos

library(readxl)
Data_control_02 <- read_excel("C:/Users/paolo/Downloads/Data control 02.xlsx")
View(Data_control_02)

Data_control_02
## # A tibble: 30 × 4
##    `Árbol de clasificación` `Redes neuronales` `Métodos de regresión`
##                       <dbl>              <dbl>                  <dbl>
##  1                     23.8               23.2                   16.1
##  2                     22.1               20.1                   17.8
##  3                     22.6               18.0                   18.3
##  4                     21.7               23.3                   15.6
##  5                     23.6               19.2                   17.6
##  6                     22.1               21.2                   16.1
##  7                     18.7               21.5                   17.3
##  8                     21.6               20.6                   16.1
##  9                     20.4               21.1                   16.6
## 10                     20.5               21.3                   15.0
## # ℹ 20 more rows
## # ℹ 1 more variable: `Sistema actual` <dbl>

2 - Se muestra la media y mediana de cada propuesta

summary(Data_control_02)
##  Árbol de clasificación Redes neuronales Métodos de regresión Sistema actual 
##  Min.   :18.08          Min.   :17.34    Min.   :15.03        Min.   :15.77  
##  1st Qu.:19.89          1st Qu.:19.20    1st Qu.:16.05        1st Qu.:18.12  
##  Median :20.64          Median :20.87    Median :16.98        Median :19.13  
##  Mean   :21.03          Mean   :20.76    Mean   :16.89        Mean   :19.10  
##  3rd Qu.:22.14          3rd Qu.:21.84    3rd Qu.:17.73        3rd Qu.:19.80  
##  Max.   :23.93          Max.   :26.47    Max.   :18.47        Max.   :23.39

3 - Determinación de hipotesis nula y nivel de significancia

Ho=0

a= 0.05

4 - Determinación de límites

LS <- qnorm(0.05/2)
LS
## [1] -1.959964
LI <- qnorm(1-0.05/2)
LI
## [1] 1.959964

5 - Prueba estadistica

zo <- (19.10-16.89)/sqrt((2.99/30)+(1.21/30))
zo
## [1] 5.906473

6 - Rechazo o aceptación de la hipotesis

if(zo <= LS & zo>=LI)
  {
    print(paste("No existe evidencia suficiente para rechazar la hipotesis",0))
  } else
  {
    print(paste("Se rechaza la Hipotesis",0))
  }
## [1] "Se rechaza la Hipotesis 0"