w5.R

# 周次：w5
# 任務：流程控制
# 姓名：高千琇
# 日期：2002年03月26日

### 題組一
## 1. 參考https://health99.hpa.gov.tw/onlineQuiz/bmi
## 利用w2(bmi)的作業，判斷自己體位狀況

# 將您的身高（公分）指派給 `my_height`；體重（公斤）指派給 `my_weight`
my_height <- 165
my_weight <- 58
# 分別將 `my_height` 與 `my_weight` 輸出在命令列

# 利用 `my_height` 與 `my_weight` 計算您的**身體質量指數**（Body Mass Index，BMI），BMI 計算公式為：https://health99.hpa.gov.tw/onlineQuiz/bmi
bmi <- my_weight/(my_height/100)^2
bmi

## [1] 21.30395

# 將您的姓名指派給 `bmi` 並且輸出在命令列
names(bmi) <- "高千琇"
# 判斷自己的bmi是否正常
bmi>=18.5&bmi<24

## 高千琇 
##   TRUE

# 判斷bmi的體位狀況
if(bmi>=18.5&bmi<24){
  print("健康體位")
}else if(bmi<18.5){
print("過輕")
}else if(bmi>=24&bmi<27){ 
print("過重")
}else if(bmi>=27&bmi<30){
print("輕度肥胖")
}else if(bmi>=30&bmi<35){ 
print("中度肥胖")
}else{
print("重度肥胖")
}

## [1] "健康體位"

## 題組二 
# 1. 判斷全班同學體位狀況
# 請先下載google問卷結果
# 讓Rstudio cloud讀xlsx檔


# 檢視資料檔案內容

# 檢視欄位名稱

# 用英文重新命名欄位名稱

# 建立一個物件bmi_j，計算同學們的bmi

# 檢視所有同學的體位狀況