martes, 7 de octubre de 2014

SOLUCION COMPENDIO EJERCICIO 9

> datos=read.table("nhijos.txt")
> datos
         V1
1    4hijos
2    5hijos
3    3hijos
4    4hijos
5    6hijos
6    6hijos
7    5hijos
8    5hijos
9    7hijos
10   3hijos
11   2hijos
12   5hijos
13   5hijos
14   7hijos
15   3hijos
16   6hijos
17   5hijos
18   3hijos
19   4hijos
20   5hijos
21   6hijos
22   2hijos
23   8hijos
24   3hijos
25   5hijos
26   7hijos
27   2hijos
28   2hijos
29   5hijos
30   8hijos
31   5hijos
32   3hijos
33   6hijos
34   5hijos
35   3hijos
36   6hijos
37   5hijos
38   5hijos
39   4hijos
40   5hijos
41   3hijos
42   4hijos
43   4hijos
44   3hijos
45   4hijos
46   2hijos
47   5hijos
48   4hijos
49   4hijos
50   6hijos
51   3hijos
52   3hijos
53   9hijos
54   6hijos
55   4hijos
56   2hijos
57   4hijos
58   6hijos
59   2hijos
60   6hijos
61   5hijos
62   2hijos
63   2hijos
64   3hijos
65   5hijos
66  10hijos
67   3hijos
68   5hijos
69   4hijos
70   5hijos
71   5hijos
72   4hijos
73   2hijos
74   4hijos
75   3hijos
76   4hijos
77   3hijos
78   4hijos
79   4hijos
80   4hijos
81   3hijos
82   4hijos
83   4hijos
84   4hijos
85   1hijos
86   4hijos
87   4hijos
88   5hijos
89   2hijos
90   2hijos
91   4hijos
92   4hijos
93   1hijos
94   4hijos
95   5hijos
96   5hijos
97   7hijos
98   3hijos
99   2hijos
100  4hijos
> f=table(nhijos)
Error in table(nhijos) : object 'nhijos' not found
> f=table(datos)
> f
datos
10hijos  1hijos  2hijos  3hijos  4hijos  5hijos  6hijos  7hijos  8hijos  9hijos
      1       2      13      17      27      23      10       4       2       1
> n=sum(f)
> n
[1] 100
> h=(f/n)*100
> h
datos
10hijos  1hijos  2hijos  3hijos  4hijos  5hijos  6hijos  7hijos  8hijos  9hijos
      1       2      13      17      27      23      10       4       2       1
> F=cumsum(f)
> F
10hijos  1hijos  2hijos  3hijos  4hijos  5hijos  6hijos  7hijos  8hijos  9hijos
      1       3      16      33      60      83      93      97      99     100
> H=cumsum(h)
> H
10hijos  1hijos  2hijos  3hijos  4hijos  5hijos  6hijos  7hijos  8hijos  9hijos
      1       3      16      33      60      83      93      97      99     100
> cbind(f,h,F,H)
         f  h   F   H
10hijos  1  1   1   1
1hijos   2  2   3   3
2hijos  13 13  16  16
3hijos  17 17  33  33
4hijos  27 27  60  60
5hijos  23 23  83  83
6hijos  10 10  93  93
7hijos   4  4  97  97
8hijos   2  2  99  99
9hijos   1  1 100 100
> mean(datos)
[1] NA
Warning message:
In mean.default(datos) : argument is not numeric or logical: returning NA
> datos
         V1
1    4hijos
2    5hijos
3    3hijos
4    4hijos
5    6hijos
6    6hijos
7    5hijos
8    5hijos
9    7hijos
10   3hijos
11   2hijos
12   5hijos
13   5hijos
14   7hijos
15   3hijos
16   6hijos
17   5hijos
18   3hijos
19   4hijos
20   5hijos
21   6hijos
22   2hijos
23   8hijos
24   3hijos
25   5hijos
26   7hijos
27   2hijos
28   2hijos
29   5hijos
30   8hijos
31   5hijos
32   3hijos
33   6hijos
34   5hijos
35   3hijos
36   6hijos
37   5hijos
38   5hijos
39   4hijos
40   5hijos
41   3hijos
42   4hijos
43   4hijos
44   3hijos
45   4hijos
46   2hijos
47   5hijos
48   4hijos
49   4hijos
50   6hijos
51   3hijos
52   3hijos
53   9hijos
54   6hijos
55   4hijos
56   2hijos
57   4hijos
58   6hijos
59   2hijos
60   6hijos
61   5hijos
62   2hijos
63   2hijos
64   3hijos
65   5hijos
66  10hijos
67   3hijos
68   5hijos
69   4hijos
70   5hijos
71   5hijos
72   4hijos
73   2hijos
74   4hijos
75   3hijos
76   4hijos
77   3hijos
78   4hijos
79   4hijos
80   4hijos
81   3hijos
82   4hijos
83   4hijos
84   4hijos
85   1hijos
86   4hijos
87   4hijos
88   5hijos
89   2hijos
90   2hijos
91   4hijos
92   4hijos
93   1hijos
94   4hijos
95   5hijos
96   5hijos
97   7hijos
98   3hijos
99   2hijos
100  4hijos
> datos=read.table("hijos.txt")
> datos
    V1
1    4
2    5
3    3
4    4
5    6
6    6
7    5
8    5
9    7
10   3
11   2
12   5
13   5
14   7
15   3
16   6
17   5
18   3
19   4
20   5
21   6
22   2
23   8
24   3
25   5
26   7
27   2
28   2
29   5
30   8
31   5
32   3
33   6
34   5
35   3
36   6
37   5
38   5
39   4
40   5
41   3
42   4
43   4
44   3
45   4
46   2
47   5
48   4
49   4
50   6
51   3
52   3
53   9
54   6
55   4
56   2
57   4
58   6
59   2
60   6
61   5
62   2
63   2
64   3
65   5
66  10
67   3
68   5
69   4
70   5
71   5
72   4
73   2
74   4
75   3
76   4
77   3
78   4
79   4
80   4
81   3
82   4
83   4
84   4
85   1
86   4
87   4
88   5
89   2
90   2
91   4
92   4
93   1
94   4
95   5
96   5
97   7
98   3
99   2
100  4
> f=table(datos)
> f
datos
 1  2  3  4  5  6  7  8  9 10
 2 13 17 27 23 10  4  2  1  1
> n=sum(f)
> h=(f/n)*100
> F=cumsum(f)
> H=cumsum(h)
> cbind(f,h,F,H)
    f  h   F   H
1   2  2   2   2
2  13 13  15  15
3  17 17  32  32
4  27 27  59  59
5  23 23  82  82
6  10 10  92  92
7   4  4  96  96
8   2  2  98  98
9   1  1  99  99
10  1  1 100 100
> boxplot(datos)
> summary(datos)
       V1    
 Min.   : 1.00
 1st Qu.: 3.00
 Median : 4.00
 Mean   : 4.25
 3rd Qu.: 5.00
 Max.   :10.00

No hay comentarios.:

Publicar un comentario