Flipped Assignment_2_Group8

Analysis of Male and Female data

Loading the data.

dat <- read.csv("https://raw.githubusercontent.com/tmatis12/datafiles/main/normtemp.csv")

Filtering the Male data from given data

dfm <- dat[(1:65),3]

performing an analysis that includes the descriptive statistics

str(dfm)

##  int [1:65] 70 71 74 80 73 75 82 64 69 70 ...

summary(dfm)

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##   58.00   70.00   73.00   73.37   78.00   86.00

sd(dfm)

## [1] 5.875184

Standard deviation is 5.875

min is 58

max is 86

mean is 73.37

median is 73

1st and 3rd quartile are 70 and 78

Histogram for Male data

hist(dfm,main="Histogram of the Males Heartbeat",col="blue", xlab = "Resting Heart rate of Males")

Normal probability plot for Male data

qqnorm(dfm,main="Normal Probability Plot for Male data",col="blue")

Filtering the Female data from given data

dff <- dat[(66:130),3]

performing an analysis that includes the descriptive statistics of female data

str(dff)

##  int [1:65] 69 62 75 66 68 57 61 84 61 77 ...

summary(dff)

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##   57.00   68.00   76.00   74.15   80.00   89.00

sd(dff)

## [1] 8.105227

Histogram and Normal probability plot for Female data

hist(dff,main="Histogram of the Females Heartbeat",col="pink", xlab = "Resting Heart rate of Females")

qqnorm(dff,main="Normal Probability Plot for Female data",col="pink")

Boxplot for the given data

c <- boxplot(dfm,dff,main ="Resting Heart rates of Males and Females",names = c("Males", "Females"),col=c("blue","pink"),ylab="Resting Heart Rate")

Female data is more scattered and the variance is more than the male data

#code :
#loading the data

dat <- read.csv("https://raw.githubusercontent.com/tmatis12/datafiles/main/normtemp.csv")

#1)
dfm <- dat[(1:65),3]
str(dfm)

##  int [1:65] 70 71 74 80 73 75 82 64 69 70 ...

summary(dfm)

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##   58.00   70.00   73.00   73.37   78.00   86.00

sd(dfm)

## [1] 5.875184

hist(dfm,main="Histogram of the Males Heartbeat",col="blue", xlab = "Resting Heart rate of Males")

qqnorm(dfm,main="Normal Probability Plot for Male data",col="blue")

dff <- dat[(66:130),3]
str(dff)

##  int [1:65] 69 62 75 66 68 57 61 84 61 77 ...

summary(dff)

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##   57.00   68.00   76.00   74.15   80.00   89.00

sd(dff)

## [1] 8.105227

hist(dff,main="Histogram of the Females Heartbeat",col="pink", xlab = "Resting Heart rate of Females")

qqnorm(dff,main="Normal Probability Plot for Female data",col="pink")

#2)


c <- boxplot(dfm,dff,main ="Resting Heart rates of Males and Females",names = c("Males", "Females"),col=c("blue","pink"),ylab="Resting Heart Rate")