library(tidyverse) encuesta_politica <- read_csv(“encuesta_politica.csv”)

prueba1 <- t.test(encuesta_politica$Ingreso_Mensual, mu = 3000000, alternative = “greater”, conf.level = 0.95) prueba1

x_si <- sum(encuesta_politica$Participa_Votacion == “Si”) n_total <- nrow(encuesta_politica) prueba2 <- prop.test(x = x_si, n = n_total, p = 0.75, alternative = “greater”, conf.level = 0.95) prueba2

prueba3 <- t.test(Ingreso_Mensual ~ Sexo, data = encuesta_politica, alternative = “two.sided”, conf.level = 0.95) prueba3

izquierda <- encuesta_politica[encuesta_politica\(Ideologia == "Izquierda", ] derecha <- encuesta_politica[encuesta_politica\)Ideologia == “Derecha”, ] x_izq <- sum(izquierda\(Intencion_Voto == "A") x_der <- sum(derecha\)Intencion_Voto == “A”) n_izq <- nrow(izquierda) n_der <- nrow(derecha) prueba4 <- prop.test(x = c(x_izq, x_der), n = c(n_izq, n_der), alternative = “greater”, conf.level = 0.95) prueba4