# 変数（<- で代入するのがRの慣習）
name <- "たろう"
age <- 16
pi_val <- 3.14159

# 出力
print(name)
cat("年齢:", age, "
")  # catは改行しない

# ベクトル（複数の値をまとめて扱う）
scores <- c(80, 90, 75, 85, 70)  # c()でベクトルを作る
print(scores)
print(length(scores))  # 5
print(mean(scores))    # 平均: 80
print(max(scores))     # 最大: 90
print(sum(scores))     # 合計: 400

# ベクトルの演算（全要素に適用）
scores * 1.1     # 全部1.1倍

# 条件分岐
if (age >= 18) {
  cat("成人
")
} else {
  cat("未成年
")
}

# ループ
for (i in 1:5) {  # 1〜5
  cat(i, "
")
}