The so-called PEFR score (Peak Expiratory Flow Rate) is a measure used to measure lung function in asthma patients. The higher the value, the better the lungs function. The theory has long been that walking in cold weather has a positive effect on lung function. To investigate this theory, the Directorate of Health decided to conduct a study in which six asthma patients were randomly selected and allowed to walk outside in cold weather for one hour. Their PEFR score was measured before the walk and again after the walk, one hour later. The data can be seen below. Asthma patient number PEFR score before PEFR score after 1 300 312 2 201 342 3 232 340 4 312 388 5 220 296 6 256 254 PEFR scores in asthma patients can be expected to follow normal distribution. Justify which test is appropriate for this data to see if walking in cold weather for an hour has a positive effect on the lung function of asthma patients. Use α = 0.05. Present the hypotheses, examine the hypothesis with the appropriate test size and briefly describe your result in words. The following can help with the calculations: > PEFRf <-c (300,201,232,312,220,256) > PEFRe <-c (312,242,340,388,296,254) > mean (PEFRf) [1] 253.5 > mean (PEFRe) [1] 305.3333 > sd (PEFRf) [1] 44.56793 > sd (PEFRe) [1] 54.43038 > d <-PEFRf-PEFRe > mean (d) [1] -51.83333 > sd (d) [1] 42.24887
The so-called PEFR score (Peak Expiratory Flow Rate) is a measure used to measure lung
Asthma patient number | PEFR score before | PEFR score after |
1 | 300 | 312 |
2 | 201 | 342 |
3 | 232 | 340 |
4 | 312 | 388 |
5 | 220 | 296 |
6 | 256 | 254 |
PEFR scores in asthma patients can be expected to follow normal distribution. Justify which test is appropriate for this data to see if walking in cold weather for an hour has a positive effect on the lung function of asthma patients. Use α = 0.05. Present the hypotheses, examine the hypothesis with the appropriate test size and briefly describe your result in words. The following can help with the calculations:
> PEFRf <-c (300,201,232,312,220,256)
> PEFRe <-c (312,242,340,388,296,254)
> mean (PEFRf)
[1] 253.5
> mean (PEFRe)
[1] 305.3333
> sd (PEFRf)
[1] 44.56793
> sd (PEFRe)
[1] 54.43038
> d <-PEFRf-PEFRe
> mean (d)
[1] -51.83333
> sd (d)
[1] 42.24887
Step by step
Solved in 2 steps