Untitled

m<-read.table("C:\\Users\\MINEDUCYT\\Desktop\\datos.txt", header=FALSE,sep='')
m

     V1    V2    V3    V4    V5
1 0.044 0.030 0.052 0.044 0.046
2 0.020 0.066 0.052 0.089 0.030
3 0.040 0.045 0.039 0.039 0.039
4 0.057 0.050 0.056 0.075 0.042
5 0.055 0.037 0.062 0.062 0.070
6 0.061 0.061 0.058 0.053 0.060
7 0.047 0.051 0.054 0.042 0.051

mean(c(m$V1,m$V2,m$V3,m$V4,m$V5))

[1] 0.05082857

hijos<-read.table("C://Users//MINEDUCYT//Desktop//cantidad de hijos por familia.txt", header=FALSE, sep='')
hijos

   V1
1   2
2   1
3   2
4   1
5   4
6   2
7   3
8   0
9   2
10  3
11  3
12  2
13  1
14  0
15  2
16  4
17  1
18  2
19  1
20  3
21  4
22  1
23  2
24  3
25  1
26  5
27  2
28  3
29  1
30  2

# Gráfico de puntos
stripchart(hijos, method="stack", vertical=FALSE, col="blue", pch=1, main="Gráfico de\n puntos", xlab="Número de hijos")

Observación: method puede ser: “overplot” (los puntos coincidentes son superpuestos) “jitter” (los puntos se ven como alejados o inquietos) “stack” (los puntos coincidentes son apilados, uno tras otro)

fab <- table(hijos); fab # frecuencias absolutas

V1
 0  1  2  3  4  5 
 2  8 10  6  3  1 

fre <- fab/length(t(hijos)); fre # frecuencias relativas

V1
         0          1          2          3          4          5 
0.06666667 0.26666667 0.33333333 0.20000000 0.10000000 0.03333333 

Fac <- cumsum(fab); Fac # frecuencias acumuladas

 0  1  2  3  4  5 
 2 10 20 26 29 30 

Far <- Fac/length(t(hijos)); Far # frecuencias acumuladas relativas 

         0          1          2          3          4          5 
0.06666667 0.33333333 0.66666667 0.86666667 0.96666667 1.00000000 

options(digits=2)
tabla <- data.frame(fab=fab, fre=fre, Fac=Fac, Far=Far)
names(tabla) <- c("hijos", "fab", "free.hijos", "fre", "Fac", "Far")
tabla

  hijos fab free.hijos   fre Fac   Far
0     0   2          0 0.067   2 0.067
1     1   8          1 0.267  10 0.333
2     2  10          2 0.333  20 0.667
3     3   6          3 0.200  26 0.867
4     4   3          4 0.100  29 0.967
5     5   1          5 0.033  30 1.000

tfre <- data.frame(hijos=tabla$hijos, fab=tabla$fab, fre=tabla$fre, Fac=tabla$Fac, Far=tabla$Far)
tfre 

  hijos fab   fre Fac   Far
1     0   2 0.067   2 0.067
2     1   8 0.267  10 0.333
3     2  10 0.333  20 0.667
4     3   6 0.200  26 0.867
5     4   3 0.100  29 0.967
6     5   1 0.033  30 1.000

#Calcula los principales estadísticos.
summary(hijos)

       V1     
 Min.   :0.0  
 1st Qu.:1.0  
 Median :2.0  
 Mean   :2.1  
 3rd Qu.:3.0  
 Max.   :5.0