> dane<-read.table("Cr/Users/Sylwia/Downloads/Danel.csv*fheader"T,sep-";",fill-T)
> head(dane,10)
NumerPacjenta |
szpital |
Płeć Wiek |
Hemoglobina |
sTfR |
Allelel |
Allele2 | ||
1 |
1 |
Wrocław |
1 |
74 |
12.25678 |
1.151247 |
B |
A |
2 |
2 |
Wrocław |
0 |
70 |
12.95331 |
1.660235 |
B |
A |
3 |
3 |
Wrocław |
0 |
€2 |
14.42866 |
1.098089 |
A |
A |
4 |
4 |
Wrocław |
1 |
41 |
14.52073 |
1.515884 |
B |
B |
5 |
5 |
Wrocław |
1 |
52 |
16.28103 |
1.425423 |
B |
B |
6 |
6 |
Wrocław |
1 |
€8 |
14.57127 |
1.186932 |
A |
A |
7 |
7 |
Wrocław |
1 |
70 |
13.44133 |
2.016174 |
A |
A |
3 |
8 |
Wrocław |
1 |
59 |
15.96744 |
1.308257 |
B |
B |
9 |
9 |
Wrocław |
0 |
73 |
12.76627 |
2.466203 |
A |
B |
10 |
10 |
Wrocław |
1 |
72 |
11.28909 |
1.050614 |
A |
B |
> dla(dane)
I1J 953 8
> dane$Anemia~0
> daneSAnemia[daneSPłeć~04danc$Hemoglobina<121-l
> dancSAnemia [daneSPłeć—lidancSHen:aglcbina<14 J -1
> daneSgenotyp~0
> daneSgenotyp=paste (daneSAllelel ,dane$Allele2, sep="")
> daneSgenotypIdane$genotyp='BA"]=,,AB"
> dane
KumęrPacjenta |
szpital |
Płeć Kiek |
Hemoglobina |
sTfR |
Allelel |
Allele2 | ||
1 |
1 |
Wrocław |
1 |
74 |
12.256779 |
1.1512468 |
B |
A |
2 |
2 |
Wrocław |
0 |
70 |
12.953308 |
1.6602346 |
B |
A |
3 |
3 |
Wrocław |
0 |
62 |
14.428662 |
1.0980886 |
A |
A |
4 |
4 |
Wrocław |
1 |
41 |
14.520730 |
1.5158838 |
B |
B |
5 |
5 |
Wrocław |
1 |
52 |
16.281028 |
1.4254226 |
B |
B |
Anemia |
genotyp | |
1 |
1 |
AB |
2 |
0 |
AB |
3 |
0 |
AA |
4 |
0 |
BB |
5 |
0 |
BB |
6 |
0 |
AA |
7 |
1 |
AA |
8 |
0 |
BB |
9 |
0 |
AB |
10 |
1 |
AB |
11 |
0 |
AA |
12 |
0 |
AA |
13 |
1 |
BB |
14 |
0 |
AB |
1 c |
1 |
nc |