Practica 4

###Datos agrupados

muestra <- c(18, 19, 20, 24, 26, 28, 18, 19, 23, 16, 21, 30, 23, 27, 29, 15, 18, 26)
muestra

##  [1] 18 19 20 24 26 28 18 19 23 16 21 30 23 27 29 15 18 26

• Ordenar datos y mostrar

muestraord <- sort(muestra)
muestraord

##  [1] 15 16 18 18 18 19 19 20 21 23 23 24 26 26 27 28 29 30

Encontrar número de elementos n, valores máximos y míximos , rango y amplitud del rango de la muestra

n <- length(muestra)
n

## [1] 18

max(muestra)

## [1] 30

min(muestra)

## [1] 15

rango <- range(muestra) # Valores mÃ愼㹤nimo y máximo
rango

## [1] 15 30

amplitud <- diff(rango) # amplitud del rango. Tambien es max(muestra) - min(muestra)
amplitud

## [1] 15

nointervalos <- 5   # Número de intervalos que se desea
rangointervalos <- amplitud / nointervalos
rangointervalos

## [1] 3

print(paste("Los valores de cada grupos van ..."," de ", rangointervalos, " en  ", rangointervalos, " a partir de :", min(muestra)))

## [1] "Los valores de cada grupos van ...  de  3  en   3  a partir de : 15"

Mostrar tabla de frecuencia de datos agrupados Se empieza del valor menor para evitar errores de agrupamiento

tabla.intervalos <- transform(table(cut(muestra, breaks = 5)))
tabla.intervalos

##      Var1 Freq
## 1 (15,18]    5
## 2 (18,21]    4
## 3 (21,24]    3
## 4 (24,27]    3
## 5 (27,30]    3

Plot o graficar tabla de frecuencia

plot(tabla.intervalos, main = "¿De cuál intervalo hay más y menos elementos?")

REGLA DE STURGES.

1 + 3.3222* (log10(n))

## [1] 5.170266

nointervalos <- nclass.Sturges(muestra) # igual al numero de intervalos aqui sale 6
nointervalos

## [1] 6

cut(muestra, breaks = nointervalos) #Cortes de cada intérvalo

##  [1] (17.5,20] (17.5,20] (17.5,20] (22.5,25] (25,27.5] (27.5,30] (17.5,20]
##  [8] (17.5,20] (22.5,25] (15,17.5] (20,22.5] (27.5,30] (22.5,25] (25,27.5]
## [15] (27.5,30] (15,17.5] (17.5,20] (25,27.5]
## Levels: (15,17.5] (17.5,20] (20,22.5] (22.5,25] (25,27.5] (27.5,30]

tabla.intervalos <- transform(table(cut(muestra, breaks = nointervalos))) # son 6
tabla.intervalos

##        Var1 Freq
## 1 (15,17.5]    2
## 2 (17.5,20]    6
## 3 (20,22.5]    1
## 4 (22.5,25]    3
## 5 (25,27.5]    3
## 6 (27.5,30]    3

pie(tabla.intervalos$Freq, labels = paste(tabla.intervalos$Var1, " - ", tabla.intervalos$Freq), main = "¿De cuál intervalo hay más y menos elementos?. Sturges")