REPORTE DE INVESTIGACION ESTADÍSTICA II

[pic 2]

REPORTE DE INVESTIGACION

ESTADÍSTICA II

INTEGRANTES:

Cacao Méndez Miguel

Idrovo Zambrano Kristell

León Oñate Jerry

Rivas Palomino Axel

PARALELO 1

PROFESOR:

Ing. Francisco Moreira Villegas

Primer término 2020[pic 3]

1. ESTADÍSTICA DESCRIPTIVA UNIVARIADA

Importar datos de excel desde R

library(readxl)

## Warning: package 'readxl' was built under R version 4.0.2

df_Est2_9 <- read_excel("df_Est2_9.xlsx")

VARIABLES CUALITATIVAS

Variable Estatus

Tabla de frecuencia

Fabs <- table(df_Est2_9$Estatus)
FabsAcumulada <- cumsum(Fabs)
Frel <- prop.table(Fabs)
FrelAcumulada <- cumsum(Frel)
TFrec <- cbind(Fabs,FabsAcumulada,Frel,FrelAcumulada)
TFrec

##    Fabs FabsAcumulada        Frel FrelAcumulada
## No  298           298 0.993333333     0.9933333
## Sí    2           300 0.006666667     1.0000000

Diagrama de barra

barplot(table(df_Est2_9$Estatus), legend.text=TRUE, main="Estatus",col=c("lightblue","red") )

[pic 4]

Gráfica 1 Diagrama de barra para Estatus

Variable Sexo

Tabla de frecuencia

Fabs <- table(df_Est2_9$Sexo)
FabsAcumulada <- cumsum(Fabs)
Frel <- prop.table(Fabs)
FrelAcumulada <- cumsum(Frel)
TFrec <- cbind(Fabs,FabsAcumulada,Frel,FrelAcumulada)
TFrec

##           Fabs FabsAcumulada      Frel FrelAcumulada
## Femenino    95            95 0.3166667     0.3166667
## Masculino  205           300 0.6833333     1.0000000

Diagrama de barra

barplot(table(df_Est2_9$Sexo), legend.text=TRUE, main="Género", col=c("lightblue","red"))

[pic 5]

Gráfica 2  Diagrama de barras para la variable género

VARIABLES CUANTITATIVAS

Variable comunicación

Tabla de frecuencia

library(fdth)

## Warning: package 'fdth' was built under R version 4.0.2

##
## Attaching package: 'fdth'

## The following objects are masked from 'package:stats':
##
##     sd, var

dist <- fdt(df_Est2_9$Comunicación)
dist

##   Class limits  f   rf rf(%)  cf  cf(%)
##   [0.99,1.775)  1 0.00  0.33   1   0.33
##  [1.775,2.559)  2 0.01  0.67   3   1.00
##  [2.559,3.344) 13 0.04  4.33  16   5.33
##  [3.344,4.129) 24 0.08  8.00  40  13.33
##  [4.129,4.914) 40 0.13 13.33  80  26.67
##  [4.914,5.699) 73 0.24 24.33 153  51.00
##  [5.699,6.483) 70 0.23 23.33 223  74.33
##  [6.483,7.268) 56 0.19 18.67 279  93.00
##  [7.268,8.053) 15 0.05  5.00 294  98.00
##  [8.053,8.838)  6 0.02  2.00 300 100.00

Diagrama de Barras

barplot(table(df_Est2_9$Comunicación), main="Comunicación", col= c("lightblue","blue"))

[pic 6]

Gráfica 3 Diagrama de barra para la variable comunicación

Histograma

h <- hist(df_Est2_9$Comunicación, main= "Comunicación", ylim=c(0,100), col="blue", xlab = "" )

[pic 7]

Gráfica 4 Histograma de la variable comunicación

Diagrama de Ojiva

Comunicacion <- df_Est2_9$Comunicación
plot(Comunicacion, type='o')[pic 8]

[pic 9]

Para mejor análisis de datos

Para las Frecuencias Absolutas

Comunicacion <- h$counts
FrecuenciaAbsoluta <- cumsum(Comunicacion)
plot(FrecuenciaAbsoluta, type = 'o')

...