# 心理学データ解析応用/伴走サイトコード ----------------------------------------------------- # Programmed by kosugitti # Licence ; Creative Commons BY-SA license (CC BY-SA) version 4.0 ## Lesson 1.Basics of R programming # 基本操作 ## 代入 a <- 1 b <- 2 a + b a <- 3 a + b ## 反復その1 a <- 0 for (i in 1:4) { a <- a + 1 print(a) } ## 反復その2 a <- 0 for (i in c(1, 3, 5, 15, 12)) { print(paste(a, "に", i, "を加えます")) a <- a + i print(a) } ## 反復その3 A <- matrix(1:15, ncol = 3, nrow = 5) A for (i in 1:5) { for (j in 1:3) { A[i, j] <- A[i, j] + i * j } } A ## 条件分岐その1 egg <- 199 if (egg == 200) { print("卵を買います") } else { print("卵を買いません") }