\[EJERCICIO \ INDE \ 16\]

  1. ¿Qué tan grande fue la muestra en esta encuesta?
n = sum(tabla)
n
## [1] 6448

El tamaño de la muestra es de \(6.448\)

  1. Realice una prueba de hipótesis para determinar si la actitud hacia la construcción de nuevas plantas de energía nuclear es independiente del país. ¿Cuál es su conclusión?

H0: el enfoque es independiente del pais frente al interés por la construcción de nuevas plantas de energía nuclear.

H1: el enfoque no es independiente del pais frente al interés por la construcción de nuevas plantas de energía nuclear.

  1. Utilizando el porcentaje de respuestas “muy a favor” y “más a favor que en contra”, ¿qué país tiene la actitud más favorable hacia la construcción de nuevas plantas de energía nuclear? ¿Cuál tiene la actitud menos favorable?

\[Procedimiento \ de \ manera \ artesanal\]

nf = nrow(tabla2)  
nc = ncol(tabla2)  

alpha =0.05
f = tabla2

perfil.f = rowSums(tabla2) 
perfil.c = colSums(tabla2) 

tabla.f = matrix(data = rep(perfil.f, nc), nrow = nf, ncol = nc, byrow = FALSE)

tabla.c = matrix(data = rep(perfil.c, nf), nrow = nf, ncol = nc, byrow = TRUE)

\(Frecuencias\ esperadas\)

e = tabla.f * tabla.c / n

\(Estadistico \ de\ prueba\)

est.prueba = sum( (f - e)^2 / e )

\(Region\ critica\)

percentil.chi = qchisq(p = alpha, df = (nf-1)*(nc-1), lower.tail = FALSE)

\(valor\ p\)

valor.p = pchisq(q = est.prueba, df = (nf-1)*(nc-1), lower.tail = FALSE)

Existe suficiente evidencia estadistica para rechazar la hipotesis nula y en promedio decir que el enfoque no es independiente del pais frente al interés por la construcción de nuevas plantas de energía nuclear.

\[Otra\ alternativa\]

alpha = 0.05

chisq.test(x = tabla2)
## 
##  Pearson's Chi-squared test
## 
## data:  tabla2
## X-squared = 66.414, df = 5, p-value = 5.703e-13

Existe suficiente evidencia estadistica para rechazar la hipotesis nula y en promedio decir que el enfoque no es independiente del pais frente al interés por la construcción de nuevas plantas de energía nuclear.