Scribd Logo
Cargar

¡Te damos la bienvenida a Scribd!

  • 9 vistas

    Script Ex Escrito 3 Pruebas de Correlación

    Cargado por

    Juan Ignacio Rebori Suarez
    rstudio basico

    Copyright:

    © All Rights Reserved
    Descargue como DOCX, PDF, TXT o lea en línea desde Scribd

    Script Ex Escrito 3 Pruebas de Correlación

    Cargado por

    Juan Ignacio Rebori Suarez
    9 vistas2 páginas
    rstudio basico

    Derechos de autor

    © © All Rights Reserved

    Formatos disponibles

    DOCX, PDF, TXT o lea en línea desde Scribd

    ¿Le pareció útil este documento?

    ¿Este contenido es inapropiado?

    rstudio basico

    Copyright:

    © All Rights Reserved
    Descargue como DOCX, PDF, TXT o lea en línea desde Scribd
    Descargar como docx, pdf o txt
    9 vistas2 páginas

    Script Ex Escrito 3 Pruebas de Correlación

    Cargado por

    Juan Ignacio Rebori Suarez
    rstudio basico

    Copyright:

    © All Rights Reserved
    Descargue como DOCX, PDF, TXT o lea en línea desde Scribd
    Descargar como docx, pdf o txt
    Está en la página 1de 2

    #####################################

    #### PRUEBAS DE CORRELACIÓN #########


    ###############################

    #### Cargando archivo de datos


    datos <-read.delim("clipboard")

    #### Verificar el supuesto de normalidad de las series


    library(nortest)
    ad.test(var1)
    ad.test(var2)

    #### Prueba de Correlación de Pearson


    cor.test(var1, var2, alternative = "", method = "p")
    cor.test(objeto$var1, objeto$var2, alternative = "", method = "p")

    #### Prueba de Correlación por rango de Spearman


    cor.test(var1, var2, alternative = "", method = "s")
    cor.test(objeto$var1, objeto$var2, alternative = "", method = "s")

    ### Estadístico de prueba para la correlación de Spearman


    n <-
    rho <-
    tc<-rho*sqrt((n-2)/(1-rho^2)) #### Estadístico de prueba
    tc

    #### Valor critico


    alfa <-
    df <-
    qt(alfa,df,lower.tail = F) ### Cola derecha
    qt(alfa,df,lower.tail = T) ### Cola izquierda
    qt(c(alpha/2, 1-alpha/2), n-2, lower.tail=F)### Dos colas

    CASO I

    Los nuevos representantes de ventas de la empresa R&D S.A., asisten a un breve programa de
    capacitación antes de que se les asigne una oficina regional de ventas. Al final del programa, el
    vicepresidente de ventas calificó a una muestra aleatoria de representantes respecto del
    potencial de ventas futuras. Al término del primer año de ventas, sus calificaciones se
    comparan con sus ventas en el primer año:

    Ventas Anuales
    319 150 175 460 348 300 280 200 190 300
    (miles de $)
    Calificaciones 3 9 6 1 4 10 5 2 7 8

    Con un nivel de significación del 0,05, ¿es posible concluir que hay una asociación positiva
    entre las ventas en el primer año y la calificación en el programa de capacitación?

    Hipótesis a plantear

    Estadístico de la prueba Valor crítico


    Decisión y conclusión:

    CASO II

    El gerente de una industria desea determinar si existe relación lineal entre el número de
    unidades ensambladas por los operadores de una línea de ensamblaje y el tiempo que
    transcurre antes que se presente la primera falla. En base a una muestra aleatoria se obtienen
    los siguientes datos:

    Tiempo
    1 2 2 3 1 4 1 2 4 3 1 4 3 2 3 4
    (hrs.)
    Ensamblada 7 2 3 7
    25 55 65 29 88 63 90 75 91 74 59 87
    s 3 3 1 1

    Construya un diagrama de dispersión, relacionando las dos variables. ¿Cree usted que la
    gráfica sugiere un comportamiento lineal de las variables?

    Con un nivel de significación del 0,07, ¿es posible afirmar si existe relación lineal entre las
    variables como lo afirma el gerente?

    Hipótesis a plantear

    Estadístico de la prueba Valor crítico

    Decisión y conclusión:

    También podría gustarte