Scribd
Cargar
16 vistas2 páginas

Análisis de Rachas y Correlación de Kendall

Cargado por

Yeriley Gonzalez
Derechos de autor
© All Rights Reserved
Nos tomamos en serio los derechos de los contenidos. Si sospechas que se trata de tu contenido, reclámalo aquí.
Formatos disponibles
Descarga como DOCX, PDF, TXT o lee en línea desde Scribd
16 vistas2 páginas

Análisis de Rachas y Correlación de Kendall

Cargado por

Yeriley Gonzalez
Derechos de autor
© All Rights Reserved
Nos tomamos en serio los derechos de los contenidos. Si sospechas que se trata de tu contenido, reclámalo aquí.
Formatos disponibles
Descarga como DOCX, PDF, TXT o lee en línea desde Scribd

PRUEBA DE RACHAS

# Instalar y cargar el paquete

[Link]("tseries")

library(tseries)

datos=c(0,1,0,1,0,0,1,0,0,0,1,0,0,0,0,0,1,0,0,0,1,1,0,1,0,1,0,0,0,0,0) #
1=masculino, 0=femenino

resultado <- [Link]([Link](datos))

print(resultado)

PRUEBA DE ALEATORIEDAD (COEFICIENTE DE KENDALL)

# Cargar las librerías necesarias

library(dplyr)

library(ggplot2)

# Supongamos que tus datos están en dos vectores:

gasto_promedio <- c(150, 200, 200, 120, 120, 120, 0, 75, 150, 220, 250,
140, 300, 200, 190, 50, 100, 200, 250, 250, 100, 100, 200, 200, 250,
100, 200, 160, 110, 250, 150)

semestre <- c(2, 6, 2, 2, 4, 4, 2, 6, 2, 2, 10, 10, 4, 10, 4, 4, 6, 6, 2, 2, 2,


4, 6, 4, 6, 2, 10, 10, 4, 10, 6)

# Crear un data frame

data <- [Link](GastoPromedio = gasto_promedio, Semestre =


semestre)

# Correlación de Kendall

cor_kendall <- [Link](data$GastoPromedio, data$Semestre, method =


"kendall")
print(paste("Kendall Correlation: ", cor_kendall$estimate))

print(paste("p-value: ", cor_kendall$[Link]))

También podría gustarte