See Complete Code for defined data frames/variables.


Question 1

1.a

mean(dat)
## [1] 19.565

1.b

median(dat)
## [1] 21.2

1.c

var(dat)
## [1] 19.43397

1.d

sd(dat)
## [1] 4.408398

1.e

quantile(dat)
##     0%    25%    50%    75%   100% 
## 12.100 14.925 21.200 23.050 25.400

1.f

1.g


Question 2

2.a

summary(dat2$SupplierA)
##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##   28.71   29.52   29.89   29.92   30.28   31.44

2.b

# No, the data is not Normally distributed. It has a slight skew to the left.

2.c


Question 3

3.a

summary(male$Temp)
##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##    96.3    97.6    98.1    98.1    98.6    99.5
summary(male$Beats)
##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##   58.00   70.00   73.00   73.37   78.00   86.00
summary(female$Temp)
##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##   96.40   98.00   98.40   98.39   98.80  100.80
summary(female$Beats)
##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##   57.00   68.00   76.00   74.15   80.00   89.00

3.b

3.c

3.d

cor(male$Beats,male$Temp)
## [1] 0.1955894
cor(female$Beats,female$Temp)
## [1] 0.2869312


Complete R Code

## Question 1
dat = c(24.7, 23.5, 14.7, 13.4, 24.2, 25.4, 12.1, 15.0, 19.6, 22.9, 21.2, 18.4, 25.0, 14.5, 14.2, 21.8, 21.2, 15.7, 22.6, 21.2)

### 1.a
mean(dat)
### 1.b
median(dat)
### 1.c
var(dat)
### 1.d
sd(dat)
### 1.e
quantile(dat)
# OR
summary(dat)
### 1.f
hist(dat,breaks=4,main="Histogram of Samples",xlab ="Sample",ylab="Count",col="green",border="blue")
### 1.g
boxplot(dat,main="Boxplot of Samples",ylab="Samples",col="steelblue3",border="red")


## Question 2
dat2<-read.csv("https://raw.githubusercontent.com/tmatis12/datafiles/main/resistors.csv")

### 2.a
summary(dat2$SupplierA)
### 2.b
hist(dat2$SupplierA,main="Histogram of Supplier A",xlab ="Resistors",ylab="Frequency",col="purple",border="orange")
# No, the data is not Normally distributed. It has a slight skew to the left.

### 2.c
boxplot(dat2$SupplierA,dat2$SupplierB,main="Boxplots of Suppliers A & B",ylab="Resistors",col="chartreuse",border="blue4")


## Question 3
dat3<-read.csv("https://raw.githubusercontent.com/tmatis12/datafiles/main/normtemp.csv")

### 3.a
male<-dat3[dat3$Sex==1,]
female<-dat3[dat3$Sex==2,]

summary(male$Temp)
summary(male$Beats)
summary(female$Temp)
summary(female$Beats)
### 3.b
hist(female$Beats,main="Histogram of Female Heartbeats",xlab ="Heartbeat",ylab="Count",col="pink",border="black")
### 3.c
hist(male$Beats,main="Histogram of Male Heartbeats",xlab ="Heartbeat",ylab="Count",col="blue",border="black")
### 3.d
cor(male$Beats,male$Temp)
cor(female$Beats,female$Temp)