Ejercicios en R de estadistica

EJERCICIOS PROPUESTOS EN CLASE

LAURA JIMENA MATIZ MEJIA

COD: 201820842

LUIS ANGEL LIBREROS PADILLA

COD: 201821673

TRABAJO

CARMEN HELENA CEPEDA ARAQUE

DOCENTE

UNIVERSIDAD PEDAGOGICA Y TECNOLOGIA DE COLOMBIA

SEDE DUITAMA

ADMINISTRACION INDUSTRIAL

2019

#tarea

#Ejercicio 27-pg48 – método visto en clase

#Punto A

esqui<-c(137,115,95,145,79,111,96,83,86,145,75,98,104,100,104)

length(esqui)

stem(esqui)

#Punto B

#La mayor parte de los centros turísticos tienen sus cuotas entre $83 y 115 Dollars

#La menor parte de los centros turísticos tienen cuotas más bajas o más altas que el promedio

#Ejercicio 27-pg48 – librería fdth

#Punto A

esqui<-c(137,115,95,145,79,111,96,83,86,145,75,98,104,100,104)

length(esqui)

stem(esqui)

library(fdth)

dist <- fdt(esqui,breaks="Sturges")

dist

#Punto B

#La mayor parte de los centros turísticos tienen sus cuotas entre $83 y 115 Dollars

#La menor parte de los centros turísticos tienen cuotas más bajas o más altas que el promedio

#Donde

#f= frecuencia absoluta

#rf= frecuencia relativa

#rf(%) frecuencia relativa porcentual

#cf= frecuencia acumulada

#Ejercicio 28-pg48 – método visto en clase

#Punto A

edad<-c(49,44,50,46,31,27,52,72,33,46,52,24,43,44,43,26,40,57,43,30,50,55,66,59,37,55,64,37,36,31,31,21,56,32,40,43,61,43,50,47)

length(edad)

stem(edad)

tablaedad<-table(edad)

transform(tablaedad, FreRel=prop.table(Freq))

tablaedad2<-as.data.frame(table(factor(cut(edad, breaks = 6))))

transform(tablaedad2, FreRel=prop.table(Freq), FreAbcum=cumsum(Freq), FreRelAcum = cumsum(Freq/40))

#Punto B

#En el grupo de edad donde hubo más participantes según la muestra es del grupo de los 40 años con 13 participantes

#Punto C

#La edad que se presenta con más frecuencia es la de 43 años con el 12.5% (5 personas) para la muestra

#Punto D

#El porcentaje es del 10%

#Ejercicio 28-pg48 – librería fdth

#Punto A

edad<-c(49,44,50,46,31,27,52,72,33,46,52,24,43,44,43,26,40,57,43,30,50,55,66,59,37,55,64,37,36,31,31,21,56,32,40,43,61,43,50,47)

length(edad)

stem(edad)

library(fdth)

dist <- fdt(edad,breaks="Sturges")

dist

#Punto B

#En el grupo de edad donde hubo más participantes según la muestra es del grupo de los 40 años con 13 participantes

#Punto C

#La edad que se presenta con más frecuencia es la de 43 años con el 12.5% (5 personas) para la muestra

#Punto D

#El porcentaje es del 10%

#Ejercicio 14-41 – método de clase

pto<-c(8.9,11.5,10.0,13.5,10.0,6.8,11.5,14.9,10.0,15.8,10.2,7.8,12.2,14.1,12.2,9.5,11.2,7.5,6.0,11.5)

tablapto<-table(pto)

tablapto1<-as.data.frame(table(factor(cut(pto, breaks = 5))))

#Hacer zoom a la gráfica

light.intensity <- tablapto1

growth.rate <- pto

plot(light.intensity,growth.rate, pch=1)

transform(tablapto1, FreRel=prop.table(Freq), FreAbcum=cumsum(Freq), FreRelAcum = cumsum(Freq/20))

...