24677

Pomijamy dane przy których nie posiadamy informacji o paleniu tytoniu przez matki

waga_palacej=dane$waga_n(dane$palenie==l]

waga_niepalacej=dane$waga_n(dane$palenie==0]

Wykonujemy podstawowe statystki

summary(waga_palacej)

summary(waga_niepalacej)

>    dane-read.table(file.choose(),header-T,sep-••)

>    dane$vaga_n-dane$vaga_n/0.0351

>    dane$vzro3t_i*-dane$wzro3t_i»*2.54

>    dane $ vaga_m-dane $vaga_m* 0.451

>    waga_palacej-dane$waga_n[dane$palenie—l]

>    waga_niepalacej-dane$waga_n[dane$palenie—0]

>    summary(waga_palacej)

Min.    lst Qu.    Median    Mean    3rd Qu.    Max.

1652    2906    3276    3251    3590    4644

>    sunmacy(waga_niepalacej)

Min.    lst Qu.    Median    Mean    3rd Qu.    Max.

1567    3219    3504    3506    3818    5014

Cześć wczytanych danych

	waga_n	wiek licz.	.por	wieka	WZE03t_m	waga_B	palenie
1	3418.803	284	0	27	157.48	45.400	0
2	3219.373	2B2	0	33	162.56	61.290	0
3	3646.724	279	0	28	162.56	52.210	1
4	3504.274	999	0	36	175.26	86.260	0
S	3076.923	282	0	23	170.18	56.7S0	1
6	3874.644	286	0	25	157.48	42.222	0
7	3931.624	244	0	33	157.48	80.812	0
8	3760.684	245	0	23	165.10	63.560	0
9	3418.803	289	0	25	157.48	56.750	0
10	4074.074	299	0	30	167.64	61.744	1
11	3908.604	351	0	27	172.72	54.400	0
12	4102.564	282	0	32	162.56	56.296	1
13	4017.094	279	0	23	160.02	58.112	1
14	3133.903	281	0	36	154.94	44.946	1
1S	3247.863	273	0	30	160.02	69.916	0
16	3276.353	285	0	38	160.02	S9.020	0
17	2621.083	255	0	25	165.10	56.750	1
18	3276.353	261	0	33	152.40	56.750	1
19	4102.564	261	0	33	172.72	77.180	0
20	3390.313	288	0	43	167.64	64.468	1
21	2991.453	270	0	22	142.24	42.222	0
22	3276.353	274	0	27	170.18	79.450	1
23	3903.134	287	0	25	167.64	65.830	0
24	3475.783	276	0	30	172.72	82.628	0
25	3732.194	294	0	23	165.10	55.308	0
26	2934.473	261	0	27	165.10	50.848	1
27	4159.544	280	0	26	147.32	48.124	0
28	3247.863	266	0	20	165.10	79.450	1
29	3561.254	292	0	32	165.10	56.750	0
in	■jiłi net		n	op	1 f.~> CA	«;o	i

sd(waga_palacej)

sd(waga_niepalacej)

var(waga_palacej)

var(waga_niepalacej)