# =============================================================================
#  SaltsR 鹽害分析入門 — 單元 01：R 的第一行
#  課程網站：https://tai-shengyeh.github.io/saltsr-course/
#
#  用法：
#    1. 把 saltsr_teaching.R 和 data/ 資料夾放在同一層目錄
#    2. 在 RStudio 開啟本檔，逐行按 Ctrl+Enter（Mac 是 Cmd+Enter）執行
# =============================================================================

source("saltsr_teaching.R")


# --- 1-1 當計算機用 -----------------------------------------------------------
50 + 30 + 20
100 / 1000
2 ^ 10
(50 * 100) / (10000 * 1)

# --- 1-2 變數 -----------------------------------------------------------------
dry_g    <- 1.000     # 乾樣重（公克）
water_ml <- 100       # 萃取用水量（毫升）
cl_ppm   <- 50        # 氯離子濃度（ppm）

dry_g
cl_ppm * water_ml / (10000 * dry_g)

# --- 1-3 函式 -----------------------------------------------------------------
round(141.03298, 2)
sqrt(16)
sum(50, 30, 20)
max(231.06, 315.56)
abs(231.06 - 315.56)
round(x = 141.03298, digits = 3)

# --- 1-4 常見錯誤（用 try() 包起來，才不會中斷整個腳本）-------------------------
try(print(sulphate_ppm))       # object not found
Chloride <- 50
try(print(chloride))           # R 區分大小寫
try(rond(3.14159, 2))          # 函式名打錯

# --- 換你做：算出 MH-01 的總鹽含量（答案 1.7 wt%）------------------------------
cl  <- 50; no3 <- 30; so4 <- 20
na  <- 40; k   <- 10; ca  <- 15; mg <- 5
total_ppm <- cl + no3 + so4 + na + k + ca + mg
total_wt  <- total_ppm * water_ml / (10000 * dry_g)
cat("總可溶鹽含量：", total_wt, "wt%\n")