dev/fentom.R
In diegogarcilazo/deistools: Tools for Biostatistic datasets developed by DEIS.
fentom <- function(sexo, semana, peso){
case_when(
sexo == 1 & semana == 22 & (peso < 400) ~ "<P3",
sexo == 1 & semana == 23 & (peso < 400) ~ "<P3",
sexo == 1 & semana == 24 & (peso < 400) ~ "<P3",
sexo == 1 & semana == 25 & (peso < 400) ~ "<P3",
sexo == 1 & semana == 26 & (peso < 400) ~ "<P3",
sexo == 1 & semana == 27 & (peso < 400) ~ "<P3",
sexo == 1 & semana == 28 & (peso < 400) ~ "<P3",
sexo == 1 & semana == 29 & (peso < 400) ~ "<P3",
sexo == 1 & semana == 30 & (peso < 400) ~ "<P3",
sexo == 1 & semana == 31 & (peso < 400) ~ "<P3",
sexo == 1 & semana == 32 & (peso < 400) ~ "<P3",
sexo == 1 & semana == 33 & (peso < 400) ~ "<P3",
sexo == 1 & semana == 34 & (peso < 400) ~ "<P3",
sexo == 1 & semana == 35 & (peso < 400) ~ "<P3",
sexo == 1 & semana == 36 & (peso < 400) ~ "<P3",
sexo == 1 & semana == 37 & (peso < 400) ~ "<P3",
sexo == 1 & semana == 38 & (peso < 400) ~ "<P3",
sexo == 1 & semana == 39 & (peso < 400) ~ "<P3",
sexo == 1 & semana == 22 & (peso < 400) ~ "<P3",
sexo == 1 & semana == 22 & (peso < 400) ~ "<P3",
sexo == 1 & semana == 22 & (peso < 400) ~ "<P3",
sexo == 1 & semana == 22 & (peso < 400) ~ "<P3",
sexo == 1 & semana == 22 & (peso < 400) ~ "<P3",
sexo == 1 & semana == 22 & (peso < 400) ~ "<P3",
sexo == 1 & semana == 22 & (peso < 400) ~ "<P3",
sexo == 1 & semana == 22 & (peso >= 400 & peso <430) ~ "P3",
sexo == 1 & semana == 23 & (peso >= 430 & peso <490) ~ "P3",
sexo == 1 & semana == 24 & (peso >= 490 & peso <510) ~ "P3",
sexo == 1 & semana == 25 & (peso >= 510 & peso <550) ~ "P3",
sexo == 1 & semana == 26 & (peso >= 550 & peso <590) ~ "P3",
sexo == 1 & semana == 27 & (peso >= 590 & peso <650) ~ "P3",
sexo == 1 & semana == 28 & (peso >= 650 & peso <720) ~ "P3",
sexo == 1 & semana == 29 & (peso >= 720 & peso <830) ~ "P3",
sexo == 1 & semana == 30 & (peso >= 830 & peso <980) ~ "P3",
sexo == 1 & semana == 31 & (peso >= 980 & peso <1160) ~ "P3",
sexo == 1 & semana == 32 & (peso >= 1160 & peso <1350) ~ "P3",
sexo == 1 & semana == 33 & (peso >= 1350 & peso <1590) ~ "P3",
sexo == 1 & semana == 34 & (peso >= 1590 & peso <1810) ~ "P3",
sexo == 1 & semana == 35 & (peso >= 1810 & peso <2050) ~ "P3",
sexo == 1 & semana == 36 & (peso >= 2050 & peso <2250) ~ "P3",
sexo == 1 & semana == 37 & (peso >= 2250 & peso <2450) ~ "P3",
sexo == 1 & semana == 38 & (peso >= 2450 & peso <2640) ~ "P3",
sexo == 1 & semana == 39 & (peso >= 2640 & peso <2830) ~ "P3",
sexo == 1 & semana == 40 & (peso >= 2830 & peso <3010) ~ "P3",
sexo == 1 & semana == 41 & (peso >= 3010 & peso <3220) ~ "P3",
sexo == 1 & semana == 42 & (peso >= 3220 & peso <3400) ~ "P3",
sexo == 1 & semana == 43 & (peso >= 3400 & peso <3600) ~ "P3",
sexo == 1 & semana == 44 & (peso >= 3600 & peso <3800) ~ "P3",
sexo == 1 & semana == 45 & (peso >= 3800 & peso <4000) ~ "P3",
sexo == 1 & semana == 46 & (peso >= 4000 & peso <4180) ~ "P3",
sexo == 1 & semana == 47 & (peso >= 4180 & peso <4370) ~ "P3",
sexo == 1 & semana == 48 & (peso >= 4370 & peso <4540) ~ "P3",
sexo == 1 & semana == 49 & (peso >= 4540 & peso <4800) ~ "P3",
sexo == 2 & semana == 22 & (peso >= 390 & peso <420) ~ "P3",
sexo == 2 & semana == 23 & (peso >= 420 & peso <460) ~ "P3",
sexo == 2 & semana == 24 & (peso >= 460 & peso <490) ~ "P3",
sexo == 2 & semana == 25 & (peso >= 490 & peso <510) ~ "P3",
sexo == 2 & semana == 26 & (peso >= 510 & peso <530) ~ "P3",
sexo == 2 & semana == 27 & (peso >= 530 & peso <580) ~ "P3",
sexo == 2 & semana == 28 & (peso >= 580 & peso <650) ~ "P3",
sexo == 2 & semana == 29 & (peso >= 650 & peso <760) ~ "P3",
sexo == 2 & semana == 30 & (peso >= 760 & peso <890) ~ "P3",
sexo == 2 & semana == 31 & (peso >= 890 & peso <1070) ~ "P3",
sexo == 2 & semana == 32 & (peso >= 1070 & peso <1270) ~ "P3",
sexo == 2 & semana == 33 & (peso >= 1270 & peso <1500) ~ "P3",
sexo == 2 & semana == 34 & (peso >= 1500 & peso <1720) ~ "P3",
sexo == 2 & semana == 35 & (peso >= 1720 & peso <1950) ~ "P3",
sexo == 2 & semana == 36 & (peso >= 1950 & peso <2150) ~ "P3",
sexo == 2 & semana == 37 & (peso >= 2150 & peso <2330) ~ "P3",
sexo == 2 & semana == 38 & (peso >= 2330 & peso <2500) ~ "P3",
sexo == 2 & semana == 39 & (peso >= 2500 & peso <2650) ~ "P3",
sexo == 2 & semana == 40 & (peso >= 2650 & peso <2800) ~ "P3",
sexo == 2 & semana == 41 & (peso >= 2800 & peso <2960) ~ "P3",
sexo == 2 & semana == 42 & (peso >= 2960 & peso <3120) ~ "P3",
sexo == 2 & semana == 43 & (peso >= 3120 & peso <3300) ~ "P3",
sexo == 2 & semana == 44 & (peso >= 3300 & peso <3480) ~ "P3",
sexo == 2 & semana == 45 & (peso >= 3480 & peso <3640) ~ "P3",
sexo == 2 & semana == 46 & (peso >= 3640 & peso <3800) ~ "P3",
sexo == 2 & semana == 47 & (peso >= 3800 & peso <3980) ~ "P3",
sexo == 2 & semana == 48 & (peso >= 3980 & peso <4130) ~ "P3",
sexo == 2 & semana == 49 & (peso >= 4130 & peso <450) ~ "P3",
sexo == 1 & semana == 22 & (peso >= 450 & peso <500) ~ "P10",
sexo == 1 & semana == 23 & (peso >= 500 & peso <550) ~ "P10",
sexo == 1 & semana == 24 & (peso >= 550 & peso <600) ~ "P10",
sexo == 1 & semana == 25 & (peso >= 600 & peso <660) ~ "P10",
sexo == 1 & semana == 26 & (peso >= 660 & peso <720) ~ "P10",
sexo == 1 & semana == 27 & (peso >= 720 & peso <820) ~ "P10",
sexo == 1 & semana == 28 & (peso >= 820 & peso <910) ~ "P10",
sexo == 1 & semana == 29 & (peso >= 910 & peso <1050) ~ "P10",
sexo == 1 & semana == 30 & (peso >= 1050 & peso <1210) ~ "P10",
sexo == 1 & semana == 31 & (peso >= 1210 & peso <1400) ~ "P10",
sexo == 1 & semana == 32 & (peso >= 1400 & peso <1600) ~ "P10",
sexo == 1 & semana == 33 & (peso >= 1600 & peso <1830) ~ "P10",
sexo == 1 & semana == 34 & (peso >= 1830 & peso <2050) ~ "P10",
sexo == 1 & semana == 35 & (peso >= 2050 & peso <2280) ~ "P10",
sexo == 1 & semana == 36 & (peso >= 2280 & peso <2500) ~ "P10",
sexo == 1 & semana == 37 & (peso >= 2500 & peso <2700) ~ "P10",
sexo == 1 & semana == 38 & (peso >= 2700 & peso <2890) ~ "P10",
sexo == 1 & semana == 39 & (peso >= 2890 & peso <3090) ~ "P10",
sexo == 1 & semana == 40 & (peso >= 3090 & peso <3280) ~ "P10",
sexo == 1 & semana == 41 & (peso >= 3280 & peso <3500) ~ "P10",
sexo == 1 & semana == 42 & (peso >= 3500 & peso <3690) ~ "P10",
sexo == 1 & semana == 43 & (peso >= 3690 & peso <3900) ~ "P10",
sexo == 1 & semana == 44 & (peso >= 3900 & peso <4110) ~ "P10",
sexo == 1 & semana == 45 & (peso >= 4110 & peso <4310) ~ "P10",
sexo == 1 & semana == 46 & (peso >= 4310 & peso <4510) ~ "P10",
sexo == 1 & semana == 47 & (peso >= 4510 & peso <4720) ~ "P10",
sexo == 1 & semana == 48 & (peso >= 4720 & peso <4800) ~ "P10",
sexo == 1 & semana == 49 & (peso >= 4800 & peso <430) ~ "P10",
sexo == 2 & semana == 22 & (peso >= 430 & peso <470) ~ "P10",
sexo == 2 & semana == 23 & (peso >= 470 & peso <510) ~ "P10",
sexo == 2 & semana == 24 & (peso >= 510 & peso <560) ~ "P10",
sexo == 2 & semana == 25 & (peso >= 560 & peso <610) ~ "P10",
sexo == 2 & semana == 26 & (peso >= 610 & peso <680) ~ "P10",
sexo == 2 & semana == 27 & (peso >= 680 & peso <750) ~ "P10",
sexo == 2 & semana == 28 & (peso >= 750 & peso <850) ~ "P10",
sexo == 2 & semana == 29 & (peso >= 850 & peso <960) ~ "P10",
sexo == 2 & semana == 30 & (peso >= 960 & peso <1120) ~ "P10",
sexo == 2 & semana == 31 & (peso >= 1120 & peso <1290) ~ "P10",
sexo == 2 & semana == 32 & (peso >= 1290 & peso <1500) ~ "P10",
sexo == 2 & semana == 33 & (peso >= 1500 & peso <1710) ~ "P10",
sexo == 2 & semana == 34 & (peso >= 1710 & peso <1950) ~ "P10",
sexo == 2 & semana == 35 & (peso >= 1950 & peso <2180) ~ "P10",
sexo == 2 & semana == 36 & (peso >= 2180 & peso <2400) ~ "P10",
sexo == 2 & semana == 37 & (peso >= 2400 & peso <2580) ~ "P10",
sexo == 2 & semana == 38 & (peso >= 2580 & peso <2730) ~ "P10",
sexo == 2 & semana == 39 & (peso >= 2730 & peso <2900) ~ "P10",
sexo == 2 & semana == 40 & (peso >= 2900 & peso <3070) ~ "P10",
sexo == 2 & semana == 41 & (peso >= 3070 & peso <3230) ~ "P10",
sexo == 2 & semana == 42 & (peso >= 3230 & peso <3400) ~ "P10",
sexo == 2 & semana == 43 & (peso >= 3400 & peso <3600) ~ "P10",
sexo == 2 & semana == 44 & (peso >= 3600 & peso <3770) ~ "P10",
sexo == 2 & semana == 45 & (peso >= 3770 & peso <3960) ~ "P10",
sexo == 2 & semana == 46 & (peso >= 3960 & peso <4120) ~ "P10",
sexo == 2 & semana == 47 & (peso >= 4120 & peso <4300) ~ "P10",
sexo == 2 & semana == 48 & (peso >= 4300 & peso <4460) ~ "P10",
sexo == 2 & semana == 49 & (peso >= 4460 & peso <530) ~ "P10",
sexo == 1 & semana == 22 & (peso >= 530 & peso <600) ~ "P50",
sexo == 1 & semana == 23 & (peso >= 600 & peso <700) ~ "P50",
sexo == 1 & semana == 24 & (peso >= 700 & peso <790) ~ "P50",
sexo == 1 & semana == 25 & (peso >= 790 & peso <880) ~ "P50",
sexo == 1 & semana == 26 & (peso >= 880 & peso <1000) ~ "P50",
sexo == 1 & semana == 27 & (peso >= 1000 & peso <1150) ~ "P50",
sexo == 1 & semana == 28 & (peso >= 1150 & peso <1300) ~ "P50",
sexo == 1 & semana == 29 & (peso >= 1300 & peso <1490) ~ "P50",
sexo == 1 & semana == 30 & (peso >= 1490 & peso <1680) ~ "P50",
sexo == 1 & semana == 31 & (peso >= 1680 & peso <1900) ~ "P50",
sexo == 1 & semana == 32 & (peso >= 1900 & peso <2120) ~ "P50",
sexo == 1 & semana == 33 & (peso >= 2120 & peso <2360) ~ "P50",
sexo == 1 & semana == 34 & (peso >= 2360 & peso <2600) ~ "P50",
sexo == 1 & semana == 35 & (peso >= 2600 & peso <2840) ~ "P50",
sexo == 1 & semana == 36 & (peso >= 2840 & peso <3050) ~ "P50",
sexo == 1 & semana == 37 & (peso >= 3050 & peso <3250) ~ "P50",
sexo == 1 & semana == 38 & (peso >= 3250 & peso <3450) ~ "P50",
sexo == 1 & semana == 39 & (peso >= 3450 & peso <3680) ~ "P50",
sexo == 1 & semana == 40 & (peso >= 3680 & peso <3900) ~ "P50",
sexo == 1 & semana == 41 & (peso >= 3900 & peso <4130) ~ "P50",
sexo == 1 & semana == 42 & (peso >= 4130 & peso <4370) ~ "P50",
sexo == 1 & semana == 43 & (peso >= 4370 & peso <4620) ~ "P50",
sexo == 1 & semana == 44 & (peso >= 4620 & peso <4850) ~ "P50",
sexo == 1 & semana == 45 & (peso >= 4850 & peso <5090) ~ "P50",
sexo == 1 & semana == 46 & (peso >= 5090 & peso <5300) ~ "P50",
sexo == 1 & semana == 47 & (peso >= 5300 & peso <5520) ~ "P50",
sexo == 1 & semana == 48 & (peso >= 5520 & peso <5730) ~ "P50",
sexo == 1 & semana == 49 & (peso >= 5730 & peso <510) ~ "P50",
sexo == 2 & semana == 22 & (peso >= 510 & peso <560) ~ "P50",
sexo == 2 & semana == 23 & (peso >= 560 & peso <650) ~ "P50",
sexo == 2 & semana == 24 & (peso >= 650 & peso <750) ~ "P50",
sexo == 2 & semana == 25 & (peso >= 750 & peso <840) ~ "P50",
sexo == 2 & semana == 26 & (peso >= 840 & peso <950) ~ "P50",
sexo == 2 & semana == 27 & (peso >= 950 & peso <1080) ~ "P50",
sexo == 2 & semana == 28 & (peso >= 1080 & peso <1220) ~ "P50",
sexo == 2 & semana == 29 & (peso >= 1220 & peso <1380) ~ "P50",
sexo == 2 & semana == 30 & (peso >= 1380 & peso <1570) ~ "P50",
sexo == 2 & semana == 31 & (peso >= 1570 & peso <1780) ~ "P50",
sexo == 2 & semana == 32 & (peso >= 1780 & peso <2000) ~ "P50",
sexo == 2 & semana == 33 & (peso >= 2000 & peso <2230) ~ "P50",
sexo == 2 & semana == 34 & (peso >= 2230 & peso <2470) ~ "P50",
sexo == 2 & semana == 35 & (peso >= 2470 & peso <2710) ~ "P50",
sexo == 2 & semana == 36 & (peso >= 2710 & peso <2940) ~ "P50",
sexo == 2 & semana == 37 & (peso >= 2940 & peso <3150) ~ "P50",
sexo == 2 & semana == 38 & (peso >= 3150 & peso <3310) ~ "P50",
sexo == 2 & semana == 39 & (peso >= 3310 & peso <3500) ~ "P50",
sexo == 2 & semana == 40 & (peso >= 3500 & peso <3690) ~ "P50",
sexo == 2 & semana == 41 & (peso >= 3690 & peso <3880) ~ "P50",
sexo == 2 & semana == 42 & (peso >= 3880 & peso <4070) ~ "P50",
sexo == 2 & semana == 43 & (peso >= 4070 & peso <4300) ~ "P50",
sexo == 2 & semana == 44 & (peso >= 4300 & peso <4500) ~ "P50",
sexo == 2 & semana == 45 & (peso >= 4500 & peso <4700) ~ "P50",
sexo == 2 & semana == 46 & (peso >= 4700 & peso <4890) ~ "P50",
sexo == 2 & semana == 47 & (peso >= 4890 & peso <5090) ~ "P50",
sexo == 2 & semana == 48 & (peso >= 5090 & peso <5260) ~ "P50",
sexo == 2 & semana == 49 & (peso >= 5260 & peso <630) ~ "P50",
sexo == 1 & semana == 22 & (peso >= 630 & peso <730) ~ "P90",
sexo == 1 & semana == 23 & (peso >= 730 & peso <850) ~ "P90",
sexo == 1 & semana == 24 & (peso >= 850 & peso <970) ~ "P90",
sexo == 1 & semana == 25 & (peso >= 970 & peso <1100) ~ "P90",
sexo == 1 & semana == 26 & (peso >= 1100 & peso <1270) ~ "P90",
sexo == 1 & semana == 27 & (peso >= 1270 & peso <1440) ~ "P90",
sexo == 1 & semana == 28 & (peso >= 1440 & peso <1630) ~ "P90",
sexo == 1 & semana == 29 & (peso >= 1630 & peso <1870) ~ "P90",
sexo == 1 & semana == 30 & (peso >= 1870 & peso <2100) ~ "P90",
sexo == 1 & semana == 31 & (peso >= 2100 & peso <2370) ~ "P90",
sexo == 1 & semana == 32 & (peso >= 2370 & peso <2520) ~ "P90",
sexo == 1 & semana == 33 & (peso >= 2520 & peso <2900) ~ "P90",
sexo == 1 & semana == 34 & (peso >= 2900 & peso <3150) ~ "P90",
sexo == 1 & semana == 35 & (peso >= 3150 & peso <3410) ~ "P90",
sexo == 1 & semana == 36 & (peso >= 3410 & peso <3650) ~ "P90",
sexo == 1 & semana == 37 & (peso >= 3650 & peso <3850) ~ "P90",
sexo == 1 & semana == 38 & (peso >= 3850 & peso <4070) ~ "P90",
sexo == 1 & semana == 39 & (peso >= 4070 & peso <4310) ~ "P90",
sexo == 1 & semana == 40 & (peso >= 4310 & peso <4550) ~ "P90",
sexo == 1 & semana == 41 & (peso >= 4550 & peso <4820) ~ "P90",
sexo == 1 & semana == 42 & (peso >= 4820 & peso <5100) ~ "P90",
sexo == 1 & semana == 43 & (peso >= 5100 & peso <5380) ~ "P90",
sexo == 1 & semana == 44 & (peso >= 5380 & peso <5670) ~ "P90",
sexo == 1 & semana == 45 & (peso >= 5670 & peso <5950) ~ "P90",
sexo == 1 & semana == 46 & (peso >= 5950 & peso <6190) ~ "P90",
sexo == 1 & semana == 47 & (peso >= 6190 & peso <6440) ~ "P90",
sexo == 1 & semana == 48 & (peso >= 6440 & peso <6670) ~ "P90",
sexo == 1 & semana == 49 & (peso >= 6670 & peso <610) ~ "P90",
sexo == 2 & semana == 22 & (peso >= 610 & peso <680) ~ "P90",
sexo == 2 & semana == 23 & (peso >= 680 & peso <800) ~ "P90",
sexo == 2 & semana == 24 & (peso >= 800 & peso <920) ~ "P90",
sexo == 2 & semana == 25 & (peso >= 920 & peso <1050) ~ "P90",
sexo == 2 & semana == 26 & (peso >= 1050 & peso <1200) ~ "P90",
sexo == 2 & semana == 27 & (peso >= 1200 & peso <1370) ~ "P90",
sexo == 2 & semana == 28 & (peso >= 1370 & peso <1560) ~ "P90",
sexo == 2 & semana == 29 & (peso >= 1560 & peso <1790) ~ "P90",
sexo == 2 & semana == 30 & (peso >= 1790 & peso <2020) ~ "P90",
sexo == 2 & semana == 31 & (peso >= 2020 & peso <2270) ~ "P90",
sexo == 2 & semana == 32 & (peso >= 2270 & peso <2520) ~ "P90",
sexo == 2 & semana == 33 & (peso >= 2520 & peso <2780) ~ "P90",
sexo == 2 & semana == 34 & (peso >= 2780 & peso <3040) ~ "P90",
sexo == 2 & semana == 35 & (peso >= 3040 & peso <3320) ~ "P90",
sexo == 2 & semana == 36 & (peso >= 3320 & peso <3580) ~ "P90",
sexo == 2 & semana == 37 & (peso >= 3580 & peso <3800) ~ "P90",
sexo == 2 & semana == 38 & (peso >= 3800 & peso <4000) ~ "P90",
sexo == 2 & semana == 39 & (peso >= 4000 & peso <4200) ~ "P90",
sexo == 2 & semana == 40 & (peso >= 4200 & peso <4400) ~ "P90",
sexo == 2 & semana == 41 & (peso >= 4400 & peso <4620) ~ "P90",
sexo == 2 & semana == 42 & (peso >= 4620 & peso <4850) ~ "P90",
sexo == 2 & semana == 43 & (peso >= 4850 & peso <5100) ~ "P90",
sexo == 2 & semana == 44 & (peso >= 5100 & peso <5330) ~ "P90",
sexo == 2 & semana == 45 & (peso >= 5330 & peso <5660) ~ "P90",
sexo == 2 & semana == 46 & (peso >= 5660 & peso <5780) ~ "P90",
sexo == 2 & semana == 47 & (peso >= 5780 & peso <6000) ~ "P90",
sexo == 2 & semana == 48 & (peso >= 6000 & peso <6200) ~ "P90",
sexo == 2 & semana == 49 & (peso >= 6200 & peso <680) ~ "P90",
sexo == 1 & semana == 22 & (peso >= 680 & peso <790) ~ "P97",
sexo == 1 & semana == 23 & (peso >= 790 & peso <920) ~ "P97",
sexo == 1 & semana == 24 & (peso >= 920 & peso <1060) ~ "P97",
sexo == 1 & semana == 25 & (peso >= 1060 & peso <1200) ~ "P97",
sexo == 1 & semana == 26 & (peso >= 1200 & peso <1380) ~ "P97",
sexo == 1 & semana == 27 & (peso >= 1380 & peso <1570) ~ "P97",
sexo == 1 & semana == 28 & (peso >= 1570 & peso <1790) ~ "P97",
sexo == 1 & semana == 29 & (peso >= 1790 & peso <2010) ~ "P97",
sexo == 1 & semana == 30 & (peso >= 2010 & peso <2290) ~ "P97",
sexo == 1 & semana == 31 & (peso >= 2290 & peso <2580) ~ "P97",
sexo == 1 & semana == 32 & (peso >= 2580 & peso <2850) ~ "P97",
sexo == 1 & semana == 33 & (peso >= 2850 & peso <3150) ~ "P97",
sexo == 1 & semana == 34 & (peso >= 3150 & peso <3420) ~ "P97",
sexo == 1 & semana == 35 & (peso >= 3420 & peso <3690) ~ "P97",
sexo == 1 & semana == 36 & (peso >= 3690 & peso <3930) ~ "P97",
sexo == 1 & semana == 37 & (peso >= 3930 & peso <4150) ~ "P97",
sexo == 1 & semana == 38 & (peso >= 4150 & peso <4370) ~ "P97",
sexo == 1 & semana == 39 & (peso >= 4370 & peso <4630) ~ "P97",
sexo == 1 & semana == 40 & (peso >= 4630 & peso <4880) ~ "P97",
sexo == 1 & semana == 41 & (peso >= 4880 & peso <5180) ~ "P97",
sexo == 1 & semana == 42 & (peso >= 5180 & peso <5480) ~ "P97",
sexo == 1 & semana == 43 & (peso >= 5480 & peso <5770) ~ "P97",
sexo == 1 & semana == 44 & (peso >= 5770 & peso <6070) ~ "P97",
sexo == 1 & semana == 45 & (peso >= 6070 & peso <6370) ~ "P97",
sexo == 1 & semana == 46 & (peso >= 6370 & peso <6630) ~ "P97",
sexo == 1 & semana == 47 & (peso >= 6630 & peso <6890) ~ "P97",
sexo == 1 & semana == 48 & (peso >= 6890 & peso <7150) ~ "P97",
sexo == 1 & semana == 49 & (peso >= 7150 & peso <660) ~ "P97",
sexo == 2 & semana == 22 & (peso >= 660 & peso <740) ~ "P97",
sexo == 2 & semana == 23 & (peso >= 740 & peso <860) ~ "P97",
sexo == 2 & semana == 24 & (peso >= 860 & peso <1000) ~ "P97",
sexo == 2 & semana == 25 & (peso >= 1000 & peso <1160) ~ "P97",
sexo == 2 & semana == 26 & (peso >= 1160 & peso <1320) ~ "P97",
sexo == 2 & semana == 27 & (peso >= 1320 & peso <1510) ~ "P97",
sexo == 2 & semana == 28 & (peso >= 1510 & peso <1720) ~ "P97",
sexo == 2 & semana == 29 & (peso >= 1720 & peso <1970) ~ "P97",
sexo == 2 & semana == 30 & (peso >= 1970 & peso <2230) ~ "P97",
sexo == 2 & semana == 31 & (peso >= 2230 & peso <2500) ~ "P97",
sexo == 2 & semana == 32 & (peso >= 2500 & peso <2780) ~ "P97",
sexo == 2 & semana == 33 & (peso >= 2780 & peso <3070) ~ "P97",
sexo == 2 & semana == 34 & (peso >= 3070 & peso <3350) ~ "P97",
sexo == 2 & semana == 35 & (peso >= 3350 & peso <3650) ~ "P97",
sexo == 2 & semana == 36 & (peso >= 3650 & peso <3900) ~ "P97",
sexo == 2 & semana == 37 & (peso >= 3900 & peso <4130) ~ "P97",
sexo == 2 & semana == 38 & (peso >= 4130 & peso <4350) ~ "P97",
sexo == 2 & semana == 39 & (peso >= 4350 & peso <4570) ~ "P97",
sexo == 2 & semana == 40 & (peso >= 4570 & peso <4790) ~ "P97",
sexo == 2 & semana == 41 & (peso >= 4790 & peso <5010) ~ "P97",
sexo == 2 & semana == 42 & (peso >= 5010 & peso <5290) ~ "P97",
sexo == 2 & semana == 43 & (peso >= 5290 & peso <5510) ~ "P97",
sexo == 2 & semana == 44 & (peso >= 5510 & peso <5530) ~ "P97",
sexo == 2 & semana == 45 & (peso >= 5530 & peso <6010) ~ "P97",
sexo == 2 & semana == 46 & (peso >= 6010 & peso <6240) ~ "P97",
sexo == 2 & semana == 47 & (peso >= 6240 & peso <6480) ~ "P97",
sexo == 2 & semana == 48 & (peso >= 6480 & peso <6710) ~ "P97",
sexo == 2 & semana == 49 & (peso >= 6710) ~ ">P97",
T ~ NA_character_
)}
library(tidyverse)
con <- pgr::PgCon$new("mdb1252")
fentom <- read_csv2("/home/diego/Dropbox/Enrique_Jorge/FENTON.csv")
nac <- read_csv2("/home/diego/Dropbox/Enrique_Jorge/NAC12.csv")
fenton <- function(df, sexo, tiemgest, pesonac){
sexo <- deparse(substitute(sexo))
tiemgest <- deparse(substitute(tiemgest))
names <- c(sexo, tiemgest)
pesonac <- enquo(pesonac)
df %>%
left_join(fentom, setNames(c("SEXO", "TIEMGEST"), names)) %>%
mutate(
fentom = case_when(
!!pesonac < P3 ~ "<P3",
!!pesonac >= P3 & !!pesonac < P10 ~ "P3 - P10",
!!pesonac >= P10 & !!pesonac < P50 ~ "P10 - P50",
!!pesonac >= P50 & !!pesonac < P90 ~ "P50 - P90",
!!pesonac >= P90 & !!pesonac < P97 ~ "P90 - P97",
!!pesonac >= P97 ~ ">P97"
)) %>% select(-P3:-P97)
}
nac %>% fenton(SEXO, TIEMGEST, PESONAC)
diegogarcilazo/deistools documentation built on May 21, 2019, 3:09 a.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
fentom <- function(sexo, semana, peso){
case_when(
sexo == 1 & semana == 22 & (peso < 400) ~ "<P3",
sexo == 1 & semana == 23 & (peso < 400) ~ "<P3",
sexo == 1 & semana == 24 & (peso < 400) ~ "<P3",
sexo == 1 & semana == 25 & (peso < 400) ~ "<P3",
sexo == 1 & semana == 26 & (peso < 400) ~ "<P3",
sexo == 1 & semana == 27 & (peso < 400) ~ "<P3",
sexo == 1 & semana == 28 & (peso < 400) ~ "<P3",
sexo == 1 & semana == 29 & (peso < 400) ~ "<P3",
sexo == 1 & semana == 30 & (peso < 400) ~ "<P3",
sexo == 1 & semana == 31 & (peso < 400) ~ "<P3",
sexo == 1 & semana == 32 & (peso < 400) ~ "<P3",
sexo == 1 & semana == 33 & (peso < 400) ~ "<P3",
sexo == 1 & semana == 34 & (peso < 400) ~ "<P3",
sexo == 1 & semana == 35 & (peso < 400) ~ "<P3",
sexo == 1 & semana == 36 & (peso < 400) ~ "<P3",
sexo == 1 & semana == 37 & (peso < 400) ~ "<P3",
sexo == 1 & semana == 38 & (peso < 400) ~ "<P3",
sexo == 1 & semana == 39 & (peso < 400) ~ "<P3",
sexo == 1 & semana == 22 & (peso < 400) ~ "<P3",
sexo == 1 & semana == 22 & (peso < 400) ~ "<P3",
sexo == 1 & semana == 22 & (peso < 400) ~ "<P3",
sexo == 1 & semana == 22 & (peso < 400) ~ "<P3",
sexo == 1 & semana == 22 & (peso < 400) ~ "<P3",
sexo == 1 & semana == 22 & (peso < 400) ~ "<P3",
sexo == 1 & semana == 22 & (peso < 400) ~ "<P3",
sexo == 1 & semana == 22 & (peso >= 400 & peso <430) ~ "P3",
sexo == 1 & semana == 23 & (peso >= 430 & peso <490) ~ "P3",
sexo == 1 & semana == 24 & (peso >= 490 & peso <510) ~ "P3",
sexo == 1 & semana == 25 & (peso >= 510 & peso <550) ~ "P3",
sexo == 1 & semana == 26 & (peso >= 550 & peso <590) ~ "P3",
sexo == 1 & semana == 27 & (peso >= 590 & peso <650) ~ "P3",
sexo == 1 & semana == 28 & (peso >= 650 & peso <720) ~ "P3",
sexo == 1 & semana == 29 & (peso >= 720 & peso <830) ~ "P3",
sexo == 1 & semana == 30 & (peso >= 830 & peso <980) ~ "P3",
sexo == 1 & semana == 31 & (peso >= 980 & peso <1160) ~ "P3",
sexo == 1 & semana == 32 & (peso >= 1160 & peso <1350) ~ "P3",
sexo == 1 & semana == 33 & (peso >= 1350 & peso <1590) ~ "P3",
sexo == 1 & semana == 34 & (peso >= 1590 & peso <1810) ~ "P3",
sexo == 1 & semana == 35 & (peso >= 1810 & peso <2050) ~ "P3",
sexo == 1 & semana == 36 & (peso >= 2050 & peso <2250) ~ "P3",
sexo == 1 & semana == 37 & (peso >= 2250 & peso <2450) ~ "P3",
sexo == 1 & semana == 38 & (peso >= 2450 & peso <2640) ~ "P3",
sexo == 1 & semana == 39 & (peso >= 2640 & peso <2830) ~ "P3",
sexo == 1 & semana == 40 & (peso >= 2830 & peso <3010) ~ "P3",
sexo == 1 & semana == 41 & (peso >= 3010 & peso <3220) ~ "P3",
sexo == 1 & semana == 42 & (peso >= 3220 & peso <3400) ~ "P3",
sexo == 1 & semana == 43 & (peso >= 3400 & peso <3600) ~ "P3",
sexo == 1 & semana == 44 & (peso >= 3600 & peso <3800) ~ "P3",
sexo == 1 & semana == 45 & (peso >= 3800 & peso <4000) ~ "P3",
sexo == 1 & semana == 46 & (peso >= 4000 & peso <4180) ~ "P3",
sexo == 1 & semana == 47 & (peso >= 4180 & peso <4370) ~ "P3",
sexo == 1 & semana == 48 & (peso >= 4370 & peso <4540) ~ "P3",
sexo == 1 & semana == 49 & (peso >= 4540 & peso <4800) ~ "P3",
sexo == 2 & semana == 22 & (peso >= 390 & peso <420) ~ "P3",
sexo == 2 & semana == 23 & (peso >= 420 & peso <460) ~ "P3",
sexo == 2 & semana == 24 & (peso >= 460 & peso <490) ~ "P3",
sexo == 2 & semana == 25 & (peso >= 490 & peso <510) ~ "P3",
sexo == 2 & semana == 26 & (peso >= 510 & peso <530) ~ "P3",
sexo == 2 & semana == 27 & (peso >= 530 & peso <580) ~ "P3",
sexo == 2 & semana == 28 & (peso >= 580 & peso <650) ~ "P3",
sexo == 2 & semana == 29 & (peso >= 650 & peso <760) ~ "P3",
sexo == 2 & semana == 30 & (peso >= 760 & peso <890) ~ "P3",
sexo == 2 & semana == 31 & (peso >= 890 & peso <1070) ~ "P3",
sexo == 2 & semana == 32 & (peso >= 1070 & peso <1270) ~ "P3",
sexo == 2 & semana == 33 & (peso >= 1270 & peso <1500) ~ "P3",
sexo == 2 & semana == 34 & (peso >= 1500 & peso <1720) ~ "P3",
sexo == 2 & semana == 35 & (peso >= 1720 & peso <1950) ~ "P3",
sexo == 2 & semana == 36 & (peso >= 1950 & peso <2150) ~ "P3",
sexo == 2 & semana == 37 & (peso >= 2150 & peso <2330) ~ "P3",
sexo == 2 & semana == 38 & (peso >= 2330 & peso <2500) ~ "P3",
sexo == 2 & semana == 39 & (peso >= 2500 & peso <2650) ~ "P3",
sexo == 2 & semana == 40 & (peso >= 2650 & peso <2800) ~ "P3",
sexo == 2 & semana == 41 & (peso >= 2800 & peso <2960) ~ "P3",
sexo == 2 & semana == 42 & (peso >= 2960 & peso <3120) ~ "P3",
sexo == 2 & semana == 43 & (peso >= 3120 & peso <3300) ~ "P3",
sexo == 2 & semana == 44 & (peso >= 3300 & peso <3480) ~ "P3",
sexo == 2 & semana == 45 & (peso >= 3480 & peso <3640) ~ "P3",
sexo == 2 & semana == 46 & (peso >= 3640 & peso <3800) ~ "P3",
sexo == 2 & semana == 47 & (peso >= 3800 & peso <3980) ~ "P3",
sexo == 2 & semana == 48 & (peso >= 3980 & peso <4130) ~ "P3",
sexo == 2 & semana == 49 & (peso >= 4130 & peso <450) ~ "P3",
sexo == 1 & semana == 22 & (peso >= 450 & peso <500) ~ "P10",
sexo == 1 & semana == 23 & (peso >= 500 & peso <550) ~ "P10",
sexo == 1 & semana == 24 & (peso >= 550 & peso <600) ~ "P10",
sexo == 1 & semana == 25 & (peso >= 600 & peso <660) ~ "P10",
sexo == 1 & semana == 26 & (peso >= 660 & peso <720) ~ "P10",
sexo == 1 & semana == 27 & (peso >= 720 & peso <820) ~ "P10",
sexo == 1 & semana == 28 & (peso >= 820 & peso <910) ~ "P10",
sexo == 1 & semana == 29 & (peso >= 910 & peso <1050) ~ "P10",
sexo == 1 & semana == 30 & (peso >= 1050 & peso <1210) ~ "P10",
sexo == 1 & semana == 31 & (peso >= 1210 & peso <1400) ~ "P10",
sexo == 1 & semana == 32 & (peso >= 1400 & peso <1600) ~ "P10",
sexo == 1 & semana == 33 & (peso >= 1600 & peso <1830) ~ "P10",
sexo == 1 & semana == 34 & (peso >= 1830 & peso <2050) ~ "P10",
sexo == 1 & semana == 35 & (peso >= 2050 & peso <2280) ~ "P10",
sexo == 1 & semana == 36 & (peso >= 2280 & peso <2500) ~ "P10",
sexo == 1 & semana == 37 & (peso >= 2500 & peso <2700) ~ "P10",
sexo == 1 & semana == 38 & (peso >= 2700 & peso <2890) ~ "P10",
sexo == 1 & semana == 39 & (peso >= 2890 & peso <3090) ~ "P10",
sexo == 1 & semana == 40 & (peso >= 3090 & peso <3280) ~ "P10",
sexo == 1 & semana == 41 & (peso >= 3280 & peso <3500) ~ "P10",
sexo == 1 & semana == 42 & (peso >= 3500 & peso <3690) ~ "P10",
sexo == 1 & semana == 43 & (peso >= 3690 & peso <3900) ~ "P10",
sexo == 1 & semana == 44 & (peso >= 3900 & peso <4110) ~ "P10",
sexo == 1 & semana == 45 & (peso >= 4110 & peso <4310) ~ "P10",
sexo == 1 & semana == 46 & (peso >= 4310 & peso <4510) ~ "P10",
sexo == 1 & semana == 47 & (peso >= 4510 & peso <4720) ~ "P10",
sexo == 1 & semana == 48 & (peso >= 4720 & peso <4800) ~ "P10",
sexo == 1 & semana == 49 & (peso >= 4800 & peso <430) ~ "P10",
sexo == 2 & semana == 22 & (peso >= 430 & peso <470) ~ "P10",
sexo == 2 & semana == 23 & (peso >= 470 & peso <510) ~ "P10",
sexo == 2 & semana == 24 & (peso >= 510 & peso <560) ~ "P10",
sexo == 2 & semana == 25 & (peso >= 560 & peso <610) ~ "P10",
sexo == 2 & semana == 26 & (peso >= 610 & peso <680) ~ "P10",
sexo == 2 & semana == 27 & (peso >= 680 & peso <750) ~ "P10",
sexo == 2 & semana == 28 & (peso >= 750 & peso <850) ~ "P10",
sexo == 2 & semana == 29 & (peso >= 850 & peso <960) ~ "P10",
sexo == 2 & semana == 30 & (peso >= 960 & peso <1120) ~ "P10",
sexo == 2 & semana == 31 & (peso >= 1120 & peso <1290) ~ "P10",
sexo == 2 & semana == 32 & (peso >= 1290 & peso <1500) ~ "P10",
sexo == 2 & semana == 33 & (peso >= 1500 & peso <1710) ~ "P10",
sexo == 2 & semana == 34 & (peso >= 1710 & peso <1950) ~ "P10",
sexo == 2 & semana == 35 & (peso >= 1950 & peso <2180) ~ "P10",
sexo == 2 & semana == 36 & (peso >= 2180 & peso <2400) ~ "P10",
sexo == 2 & semana == 37 & (peso >= 2400 & peso <2580) ~ "P10",
sexo == 2 & semana == 38 & (peso >= 2580 & peso <2730) ~ "P10",
sexo == 2 & semana == 39 & (peso >= 2730 & peso <2900) ~ "P10",
sexo == 2 & semana == 40 & (peso >= 2900 & peso <3070) ~ "P10",
sexo == 2 & semana == 41 & (peso >= 3070 & peso <3230) ~ "P10",
sexo == 2 & semana == 42 & (peso >= 3230 & peso <3400) ~ "P10",
sexo == 2 & semana == 43 & (peso >= 3400 & peso <3600) ~ "P10",
sexo == 2 & semana == 44 & (peso >= 3600 & peso <3770) ~ "P10",
sexo == 2 & semana == 45 & (peso >= 3770 & peso <3960) ~ "P10",
sexo == 2 & semana == 46 & (peso >= 3960 & peso <4120) ~ "P10",
sexo == 2 & semana == 47 & (peso >= 4120 & peso <4300) ~ "P10",
sexo == 2 & semana == 48 & (peso >= 4300 & peso <4460) ~ "P10",
sexo == 2 & semana == 49 & (peso >= 4460 & peso <530) ~ "P10",
sexo == 1 & semana == 22 & (peso >= 530 & peso <600) ~ "P50",
sexo == 1 & semana == 23 & (peso >= 600 & peso <700) ~ "P50",
sexo == 1 & semana == 24 & (peso >= 700 & peso <790) ~ "P50",
sexo == 1 & semana == 25 & (peso >= 790 & peso <880) ~ "P50",
sexo == 1 & semana == 26 & (peso >= 880 & peso <1000) ~ "P50",
sexo == 1 & semana == 27 & (peso >= 1000 & peso <1150) ~ "P50",
sexo == 1 & semana == 28 & (peso >= 1150 & peso <1300) ~ "P50",
sexo == 1 & semana == 29 & (peso >= 1300 & peso <1490) ~ "P50",
sexo == 1 & semana == 30 & (peso >= 1490 & peso <1680) ~ "P50",
sexo == 1 & semana == 31 & (peso >= 1680 & peso <1900) ~ "P50",
sexo == 1 & semana == 32 & (peso >= 1900 & peso <2120) ~ "P50",
sexo == 1 & semana == 33 & (peso >= 2120 & peso <2360) ~ "P50",
sexo == 1 & semana == 34 & (peso >= 2360 & peso <2600) ~ "P50",
sexo == 1 & semana == 35 & (peso >= 2600 & peso <2840) ~ "P50",
sexo == 1 & semana == 36 & (peso >= 2840 & peso <3050) ~ "P50",
sexo == 1 & semana == 37 & (peso >= 3050 & peso <3250) ~ "P50",
sexo == 1 & semana == 38 & (peso >= 3250 & peso <3450) ~ "P50",
sexo == 1 & semana == 39 & (peso >= 3450 & peso <3680) ~ "P50",
sexo == 1 & semana == 40 & (peso >= 3680 & peso <3900) ~ "P50",
sexo == 1 & semana == 41 & (peso >= 3900 & peso <4130) ~ "P50",
sexo == 1 & semana == 42 & (peso >= 4130 & peso <4370) ~ "P50",
sexo == 1 & semana == 43 & (peso >= 4370 & peso <4620) ~ "P50",
sexo == 1 & semana == 44 & (peso >= 4620 & peso <4850) ~ "P50",
sexo == 1 & semana == 45 & (peso >= 4850 & peso <5090) ~ "P50",
sexo == 1 & semana == 46 & (peso >= 5090 & peso <5300) ~ "P50",
sexo == 1 & semana == 47 & (peso >= 5300 & peso <5520) ~ "P50",
sexo == 1 & semana == 48 & (peso >= 5520 & peso <5730) ~ "P50",
sexo == 1 & semana == 49 & (peso >= 5730 & peso <510) ~ "P50",
sexo == 2 & semana == 22 & (peso >= 510 & peso <560) ~ "P50",
sexo == 2 & semana == 23 & (peso >= 560 & peso <650) ~ "P50",
sexo == 2 & semana == 24 & (peso >= 650 & peso <750) ~ "P50",
sexo == 2 & semana == 25 & (peso >= 750 & peso <840) ~ "P50",
sexo == 2 & semana == 26 & (peso >= 840 & peso <950) ~ "P50",
sexo == 2 & semana == 27 & (peso >= 950 & peso <1080) ~ "P50",
sexo == 2 & semana == 28 & (peso >= 1080 & peso <1220) ~ "P50",
sexo == 2 & semana == 29 & (peso >= 1220 & peso <1380) ~ "P50",
sexo == 2 & semana == 30 & (peso >= 1380 & peso <1570) ~ "P50",
sexo == 2 & semana == 31 & (peso >= 1570 & peso <1780) ~ "P50",
sexo == 2 & semana == 32 & (peso >= 1780 & peso <2000) ~ "P50",
sexo == 2 & semana == 33 & (peso >= 2000 & peso <2230) ~ "P50",
sexo == 2 & semana == 34 & (peso >= 2230 & peso <2470) ~ "P50",
sexo == 2 & semana == 35 & (peso >= 2470 & peso <2710) ~ "P50",
sexo == 2 & semana == 36 & (peso >= 2710 & peso <2940) ~ "P50",
sexo == 2 & semana == 37 & (peso >= 2940 & peso <3150) ~ "P50",
sexo == 2 & semana == 38 & (peso >= 3150 & peso <3310) ~ "P50",
sexo == 2 & semana == 39 & (peso >= 3310 & peso <3500) ~ "P50",
sexo == 2 & semana == 40 & (peso >= 3500 & peso <3690) ~ "P50",
sexo == 2 & semana == 41 & (peso >= 3690 & peso <3880) ~ "P50",
sexo == 2 & semana == 42 & (peso >= 3880 & peso <4070) ~ "P50",
sexo == 2 & semana == 43 & (peso >= 4070 & peso <4300) ~ "P50",
sexo == 2 & semana == 44 & (peso >= 4300 & peso <4500) ~ "P50",
sexo == 2 & semana == 45 & (peso >= 4500 & peso <4700) ~ "P50",
sexo == 2 & semana == 46 & (peso >= 4700 & peso <4890) ~ "P50",
sexo == 2 & semana == 47 & (peso >= 4890 & peso <5090) ~ "P50",
sexo == 2 & semana == 48 & (peso >= 5090 & peso <5260) ~ "P50",
sexo == 2 & semana == 49 & (peso >= 5260 & peso <630) ~ "P50",
sexo == 1 & semana == 22 & (peso >= 630 & peso <730) ~ "P90",
sexo == 1 & semana == 23 & (peso >= 730 & peso <850) ~ "P90",
sexo == 1 & semana == 24 & (peso >= 850 & peso <970) ~ "P90",
sexo == 1 & semana == 25 & (peso >= 970 & peso <1100) ~ "P90",
sexo == 1 & semana == 26 & (peso >= 1100 & peso <1270) ~ "P90",
sexo == 1 & semana == 27 & (peso >= 1270 & peso <1440) ~ "P90",
sexo == 1 & semana == 28 & (peso >= 1440 & peso <1630) ~ "P90",
sexo == 1 & semana == 29 & (peso >= 1630 & peso <1870) ~ "P90",
sexo == 1 & semana == 30 & (peso >= 1870 & peso <2100) ~ "P90",
sexo == 1 & semana == 31 & (peso >= 2100 & peso <2370) ~ "P90",
sexo == 1 & semana == 32 & (peso >= 2370 & peso <2520) ~ "P90",
sexo == 1 & semana == 33 & (peso >= 2520 & peso <2900) ~ "P90",
sexo == 1 & semana == 34 & (peso >= 2900 & peso <3150) ~ "P90",
sexo == 1 & semana == 35 & (peso >= 3150 & peso <3410) ~ "P90",
sexo == 1 & semana == 36 & (peso >= 3410 & peso <3650) ~ "P90",
sexo == 1 & semana == 37 & (peso >= 3650 & peso <3850) ~ "P90",
sexo == 1 & semana == 38 & (peso >= 3850 & peso <4070) ~ "P90",
sexo == 1 & semana == 39 & (peso >= 4070 & peso <4310) ~ "P90",
sexo == 1 & semana == 40 & (peso >= 4310 & peso <4550) ~ "P90",
sexo == 1 & semana == 41 & (peso >= 4550 & peso <4820) ~ "P90",
sexo == 1 & semana == 42 & (peso >= 4820 & peso <5100) ~ "P90",
sexo == 1 & semana == 43 & (peso >= 5100 & peso <5380) ~ "P90",
sexo == 1 & semana == 44 & (peso >= 5380 & peso <5670) ~ "P90",
sexo == 1 & semana == 45 & (peso >= 5670 & peso <5950) ~ "P90",
sexo == 1 & semana == 46 & (peso >= 5950 & peso <6190) ~ "P90",
sexo == 1 & semana == 47 & (peso >= 6190 & peso <6440) ~ "P90",
sexo == 1 & semana == 48 & (peso >= 6440 & peso <6670) ~ "P90",
sexo == 1 & semana == 49 & (peso >= 6670 & peso <610) ~ "P90",
sexo == 2 & semana == 22 & (peso >= 610 & peso <680) ~ "P90",
sexo == 2 & semana == 23 & (peso >= 680 & peso <800) ~ "P90",
sexo == 2 & semana == 24 & (peso >= 800 & peso <920) ~ "P90",
sexo == 2 & semana == 25 & (peso >= 920 & peso <1050) ~ "P90",
sexo == 2 & semana == 26 & (peso >= 1050 & peso <1200) ~ "P90",
sexo == 2 & semana == 27 & (peso >= 1200 & peso <1370) ~ "P90",
sexo == 2 & semana == 28 & (peso >= 1370 & peso <1560) ~ "P90",
sexo == 2 & semana == 29 & (peso >= 1560 & peso <1790) ~ "P90",
sexo == 2 & semana == 30 & (peso >= 1790 & peso <2020) ~ "P90",
sexo == 2 & semana == 31 & (peso >= 2020 & peso <2270) ~ "P90",
sexo == 2 & semana == 32 & (peso >= 2270 & peso <2520) ~ "P90",
sexo == 2 & semana == 33 & (peso >= 2520 & peso <2780) ~ "P90",
sexo == 2 & semana == 34 & (peso >= 2780 & peso <3040) ~ "P90",
sexo == 2 & semana == 35 & (peso >= 3040 & peso <3320) ~ "P90",
sexo == 2 & semana == 36 & (peso >= 3320 & peso <3580) ~ "P90",
sexo == 2 & semana == 37 & (peso >= 3580 & peso <3800) ~ "P90",
sexo == 2 & semana == 38 & (peso >= 3800 & peso <4000) ~ "P90",
sexo == 2 & semana == 39 & (peso >= 4000 & peso <4200) ~ "P90",
sexo == 2 & semana == 40 & (peso >= 4200 & peso <4400) ~ "P90",
sexo == 2 & semana == 41 & (peso >= 4400 & peso <4620) ~ "P90",
sexo == 2 & semana == 42 & (peso >= 4620 & peso <4850) ~ "P90",
sexo == 2 & semana == 43 & (peso >= 4850 & peso <5100) ~ "P90",
sexo == 2 & semana == 44 & (peso >= 5100 & peso <5330) ~ "P90",
sexo == 2 & semana == 45 & (peso >= 5330 & peso <5660) ~ "P90",
sexo == 2 & semana == 46 & (peso >= 5660 & peso <5780) ~ "P90",
sexo == 2 & semana == 47 & (peso >= 5780 & peso <6000) ~ "P90",
sexo == 2 & semana == 48 & (peso >= 6000 & peso <6200) ~ "P90",
sexo == 2 & semana == 49 & (peso >= 6200 & peso <680) ~ "P90",
sexo == 1 & semana == 22 & (peso >= 680 & peso <790) ~ "P97",
sexo == 1 & semana == 23 & (peso >= 790 & peso <920) ~ "P97",
sexo == 1 & semana == 24 & (peso >= 920 & peso <1060) ~ "P97",
sexo == 1 & semana == 25 & (peso >= 1060 & peso <1200) ~ "P97",
sexo == 1 & semana == 26 & (peso >= 1200 & peso <1380) ~ "P97",
sexo == 1 & semana == 27 & (peso >= 1380 & peso <1570) ~ "P97",
sexo == 1 & semana == 28 & (peso >= 1570 & peso <1790) ~ "P97",
sexo == 1 & semana == 29 & (peso >= 1790 & peso <2010) ~ "P97",
sexo == 1 & semana == 30 & (peso >= 2010 & peso <2290) ~ "P97",
sexo == 1 & semana == 31 & (peso >= 2290 & peso <2580) ~ "P97",
sexo == 1 & semana == 32 & (peso >= 2580 & peso <2850) ~ "P97",
sexo == 1 & semana == 33 & (peso >= 2850 & peso <3150) ~ "P97",
sexo == 1 & semana == 34 & (peso >= 3150 & peso <3420) ~ "P97",
sexo == 1 & semana == 35 & (peso >= 3420 & peso <3690) ~ "P97",
sexo == 1 & semana == 36 & (peso >= 3690 & peso <3930) ~ "P97",
sexo == 1 & semana == 37 & (peso >= 3930 & peso <4150) ~ "P97",
sexo == 1 & semana == 38 & (peso >= 4150 & peso <4370) ~ "P97",
sexo == 1 & semana == 39 & (peso >= 4370 & peso <4630) ~ "P97",
sexo == 1 & semana == 40 & (peso >= 4630 & peso <4880) ~ "P97",
sexo == 1 & semana == 41 & (peso >= 4880 & peso <5180) ~ "P97",
sexo == 1 & semana == 42 & (peso >= 5180 & peso <5480) ~ "P97",
sexo == 1 & semana == 43 & (peso >= 5480 & peso <5770) ~ "P97",
sexo == 1 & semana == 44 & (peso >= 5770 & peso <6070) ~ "P97",
sexo == 1 & semana == 45 & (peso >= 6070 & peso <6370) ~ "P97",
sexo == 1 & semana == 46 & (peso >= 6370 & peso <6630) ~ "P97",
sexo == 1 & semana == 47 & (peso >= 6630 & peso <6890) ~ "P97",
sexo == 1 & semana == 48 & (peso >= 6890 & peso <7150) ~ "P97",
sexo == 1 & semana == 49 & (peso >= 7150 & peso <660) ~ "P97",
sexo == 2 & semana == 22 & (peso >= 660 & peso <740) ~ "P97",
sexo == 2 & semana == 23 & (peso >= 740 & peso <860) ~ "P97",
sexo == 2 & semana == 24 & (peso >= 860 & peso <1000) ~ "P97",
sexo == 2 & semana == 25 & (peso >= 1000 & peso <1160) ~ "P97",
sexo == 2 & semana == 26 & (peso >= 1160 & peso <1320) ~ "P97",
sexo == 2 & semana == 27 & (peso >= 1320 & peso <1510) ~ "P97",
sexo == 2 & semana == 28 & (peso >= 1510 & peso <1720) ~ "P97",
sexo == 2 & semana == 29 & (peso >= 1720 & peso <1970) ~ "P97",
sexo == 2 & semana == 30 & (peso >= 1970 & peso <2230) ~ "P97",
sexo == 2 & semana == 31 & (peso >= 2230 & peso <2500) ~ "P97",
sexo == 2 & semana == 32 & (peso >= 2500 & peso <2780) ~ "P97",
sexo == 2 & semana == 33 & (peso >= 2780 & peso <3070) ~ "P97",
sexo == 2 & semana == 34 & (peso >= 3070 & peso <3350) ~ "P97",
sexo == 2 & semana == 35 & (peso >= 3350 & peso <3650) ~ "P97",
sexo == 2 & semana == 36 & (peso >= 3650 & peso <3900) ~ "P97",
sexo == 2 & semana == 37 & (peso >= 3900 & peso <4130) ~ "P97",
sexo == 2 & semana == 38 & (peso >= 4130 & peso <4350) ~ "P97",
sexo == 2 & semana == 39 & (peso >= 4350 & peso <4570) ~ "P97",
sexo == 2 & semana == 40 & (peso >= 4570 & peso <4790) ~ "P97",
sexo == 2 & semana == 41 & (peso >= 4790 & peso <5010) ~ "P97",
sexo == 2 & semana == 42 & (peso >= 5010 & peso <5290) ~ "P97",
sexo == 2 & semana == 43 & (peso >= 5290 & peso <5510) ~ "P97",
sexo == 2 & semana == 44 & (peso >= 5510 & peso <5530) ~ "P97",
sexo == 2 & semana == 45 & (peso >= 5530 & peso <6010) ~ "P97",
sexo == 2 & semana == 46 & (peso >= 6010 & peso <6240) ~ "P97",
sexo == 2 & semana == 47 & (peso >= 6240 & peso <6480) ~ "P97",
sexo == 2 & semana == 48 & (peso >= 6480 & peso <6710) ~ "P97",
sexo == 2 & semana == 49 & (peso >= 6710) ~ ">P97",
T ~ NA_character_
)}
library(tidyverse)
con <- pgr::PgCon$new("mdb1252")
fentom <- read_csv2("/home/diego/Dropbox/Enrique_Jorge/FENTON.csv")
nac <- read_csv2("/home/diego/Dropbox/Enrique_Jorge/NAC12.csv")
fenton <- function(df, sexo, tiemgest, pesonac){
sexo <- deparse(substitute(sexo))
tiemgest <- deparse(substitute(tiemgest))
names <- c(sexo, tiemgest)
pesonac <- enquo(pesonac)
df %>%
left_join(fentom, setNames(c("SEXO", "TIEMGEST"), names)) %>%
mutate(
fentom = case_when(
!!pesonac < P3 ~ "<P3",
!!pesonac >= P3 & !!pesonac < P10 ~ "P3 - P10",
!!pesonac >= P10 & !!pesonac < P50 ~ "P10 - P50",
!!pesonac >= P50 & !!pesonac < P90 ~ "P50 - P90",
!!pesonac >= P90 & !!pesonac < P97 ~ "P90 - P97",
!!pesonac >= P97 ~ ">P97"
)) %>% select(-P3:-P97)
}
nac %>% fenton(SEXO, TIEMGEST, PESONAC)
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.