Assignment2
Prateeksha,
2025-11-23
dat<-read.csv("https://raw.githubusercontent.com/tmatis12/datafiles/main/normtemp.csv")
dat## Temp Sex Beats
## 1 96.3 1 70
## 2 96.7 1 71
## 3 96.9 1 74
## 4 97.0 1 80
## 5 97.1 1 73
## 6 97.1 1 75
## 7 97.1 1 82
## 8 97.2 1 64
## 9 97.3 1 69
## 10 97.4 1 70
## 11 97.4 1 68
## 12 97.4 1 72
## 13 97.4 1 78
## 14 97.5 1 70
## 15 97.5 1 75
## 16 97.6 1 74
## 17 97.6 1 69
## 18 97.6 1 73
## 19 97.7 1 77
## 20 97.8 1 58
## 21 97.8 1 73
## 22 97.8 1 65
## 23 97.8 1 74
## 24 97.9 1 76
## 25 97.9 1 72
## 26 98.0 1 78
## 27 98.0 1 71
## 28 98.0 1 74
## 29 98.0 1 67
## 30 98.0 1 64
## 31 98.0 1 78
## 32 98.1 1 73
## 33 98.1 1 67
## 34 98.2 1 66
## 35 98.2 1 64
## 36 98.2 1 71
## 37 98.2 1 72
## 38 98.3 1 86
## 39 98.3 1 72
## 40 98.4 1 68
## 41 98.4 1 70
## 42 98.4 1 82
## 43 98.4 1 84
## 44 98.5 1 68
## 45 98.5 1 71
## 46 98.6 1 77
## 47 98.6 1 78
## 48 98.6 1 83
## 49 98.6 1 66
## 50 98.6 1 70
## 51 98.6 1 82
## 52 98.7 1 73
## 53 98.7 1 78
## 54 98.8 1 78
## 55 98.8 1 81
## 56 98.8 1 78
## 57 98.9 1 80
## 58 99.0 1 75
## 59 99.0 1 79
## 60 99.0 1 81
## 61 99.1 1 71
## 62 99.2 1 83
## 63 99.3 1 63
## 64 99.4 1 70
## 65 99.5 1 75
## 66 96.4 2 69
## 67 96.7 2 62
## 68 96.8 2 75
## 69 97.2 2 66
## 70 97.2 2 68
## 71 97.4 2 57
## 72 97.6 2 61
## 73 97.7 2 84
## 74 97.7 2 61
## 75 97.8 2 77
## 76 97.8 2 62
## 77 97.8 2 71
## 78 97.9 2 68
## 79 97.9 2 69
## 80 97.9 2 79
## 81 98.0 2 76
## 82 98.0 2 87
## 83 98.0 2 78
## 84 98.0 2 73
## 85 98.0 2 89
## 86 98.1 2 81
## 87 98.2 2 73
## 88 98.2 2 64
## 89 98.2 2 65
## 90 98.2 2 73
## 91 98.2 2 69
## 92 98.2 2 57
## 93 98.3 2 79
## 94 98.3 2 78
## 95 98.3 2 80
## 96 98.4 2 79
## 97 98.4 2 81
## 98 98.4 2 73
## 99 98.4 2 74
## 100 98.4 2 84
## 101 98.5 2 83
## 102 98.6 2 82
## 103 98.6 2 85
## 104 98.6 2 86
## 105 98.6 2 77
## 106 98.7 2 72
## 107 98.7 2 79
## 108 98.7 2 59
## 109 98.7 2 64
## 110 98.7 2 65
## 111 98.7 2 82
## 112 98.8 2 64
## 113 98.8 2 70
## 114 98.8 2 83
## 115 98.8 2 89
## 116 98.8 2 69
## 117 98.8 2 73
## 118 98.8 2 84
## 119 98.9 2 76
## 120 99.0 2 79
## 121 99.0 2 81
## 122 99.1 2 80
## 123 99.1 2 74
## 124 99.2 2 77
## 125 99.2 2 66
## 126 99.3 2 68
## 127 99.4 2 77
## 128 99.9 2 79
## 129 100.0 2 78
## 130 100.8 2 77Descriptive analysis of male
male<-dat$Beats[dat$Sex==1]
male## [1] 70 71 74 80 73 75 82 64 69 70 68 72 78 70 75 74 69 73 77 58 73 65 74 76 72
## [26] 78 71 74 67 64 78 73 67 66 64 71 72 86 72 68 70 82 84 68 71 77 78 83 66 70
## [51] 82 73 78 78 81 78 80 75 79 81 71 83 63 70 75summary(male)## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 58.00 70.00 73.00 73.37 78.00 86.00hist(male,
main = "Histogram plot of male beats",
xlab = "Male$beats",
ylab = "Frequency",
col ="blue")
qqnorm(male,
main = "normal probability plot of male heart rate")
qqline(male,col= "red")
Comments: The male heart rate seems to be reasonably normal if we observe the histogram and the normal probability plot.
Descriptive analysis of female
female<-dat$Beats[dat$Sex==2]
female## [1] 69 62 75 66 68 57 61 84 61 77 62 71 68 69 79 76 87 78 73 89 81 73 64 65 73
## [26] 69 57 79 78 80 79 81 73 74 84 83 82 85 86 77 72 79 59 64 65 82 64 70 83 89
## [51] 69 73 84 76 79 81 80 74 77 66 68 77 79 78 77summary(female)## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 57.00 68.00 76.00 74.15 80.00 89.00hist(female,
main = "Histogram plot of female beats",
xlab = "Female$Beats",
ylab = "Frequency",
col= "pink")
qqnorm(female,
main= "normal probability plot of female heart rate")
qqline(female, col= "green")
Comments: If we observe the histogram plot, we can observe that the female histogram is slightly to the right compared to the male histogram. And the normal probability plot also seems to be close to straight line which means, the female data is roughly normal.
Side by side box plots that compare the resting heart rate of males and females
boxplot(male,female,
main = "Resting heart rate comparison between male and female",
names = c("male", "female"),
ylab= "HeartRAte",
col = c("blue", "pink"))
Comments:
The median of female is greater than that of male heart rate. If we observe the width of the box plot, we can see that the female heart rate has more spread. Also, we can observe that there is significant overlap between the two distributions.
Complete R-Code
dat<-read.csv("https://raw.githubusercontent.com/tmatis12/datafiles/main/normtemp.csv")
dat
male<-dat$Beats[dat$Sex==1]
male
summary(male)
hist(male,
main = "Histogram plot of male beats",
xlab = "Male$beats",
ylab = "Frequency",
col ="blue")
qqnorm(male,
main = "normal probability plot of male heart rate")
qqline(male,col= "red")
female<-dat$Beats[dat$Sex==2]
female
summary(female)
hist(female,
main = "Histogram plot of female beats",
xlab = "Female$Beats",
ylab = "Frequency",
col= "pink")
qqnorm(female,
main= "normal probability plot of female heart rate")
qqline(female, col= "green")
boxplot(male,female,
main = "Resting heart rate comparison between male and female",
names = c("male", "female"),
ylab= "HeartRAte",
col = c("blue", "pink"))