2020-03-23-In-class-exercise-4

載入資料

pacman::p_load(readxl, httr)
dta <- read_excel("C:/Users/X510/Desktop/2020-03-23-In-class-exercise-4/normtemp.xls")
str(dta)

## Classes 'tbl_df', 'tbl' and 'data.frame':    130 obs. of  3 variables:
##  $ Temp : num  96.3 96.7 96.9 97 97.1 97.1 97.1 97.2 97.3 97.4 ...
##  $ Sex  : num  1 1 1 1 1 1 1 1 1 1 ...
##  $ Beats: num  70 71 74 80 73 75 82 64 69 70 ...

names(dta)

## [1] "Temp"  "Sex"   "Beats"

Correlation between body temperature and heart rate

cor(dta$Temp, dta$Beats)

## [1] 0.2536564

t-test

t.test(dta$Temp ~ dta$Sex, data= dta)

## 
##  Welch Two Sample t-test
## 
## data:  dta$Temp by dta$Sex
## t = -2.2854, df = 127.51, p-value = 0.02394
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
##  -0.53964856 -0.03881298
## sample estimates:
## mean in group 1 mean in group 2 
##        98.10462        98.39385

There is a gender difference in mean temperature.