R言語プログラミング ジオ研

(ｋｅｋｋａ　＜－　５４２　＋　７４４)

kekka <- 542 + 744

(ｖｅｃ　＜－　ｃ（１，２，３，４，５，６，７，８，９）)

vec <- c(1,2,3,4,5,6,7,8,9)

(ｉｆ（ｃｈｅｃｋ＿ｖａｌｕｅ　＝＝　１０）)

if(check_value == 10)

(ｌｏｏｐ＿ｃｏｕｎｔ　＜－　ｌｏｏｐ＿ｃｏｕｎｔ　＋　１)

loop_count <- loop_count + 1

(ｓｔｕｄｅｎｔ　＜－　ｓｔｕｄｅｎｔｓ［ｉ，］)

student <- students[i,]

(ｈｉｓｔ（ｖｅｃ）)

hist(vec)

(ｆｉｌｅｓ　＜－　ｌｉｓｔ．ｆｉｌｅｓ（ｐａｔｈ　＝　”／”）)

files <- list.files(path = "/")

(ｌｉｂｒａｒｙ（ｓｋｉｍｒ）)

library(skimr)

(ｔｉｔａｎｉｃ　＜－　ｒｅａｄ．ｃｓｖ（”ｔｉｔａｎｉｃ．ｃｓｖ”）)

titanic <- read.csv("titanic.csv")

(ｔｉｔａｎｉｃ　＜－　ｔｉｔａｎｉｃ　％＞％ 　ｍｕｔａｔｅ（）)

titanic <- titanic %>% mutate()

(（ｘ　－　ｍｉｎ（ｘ，　ｎａ．ｒｍ　＝　ｔｒｕｅ））)

(x - min(x, na.rm = TRUE))

(ｔｅｓｔｉｎｇ　＜－　ｔｉｔａｎｉｃ［－ｔｒａｉｎｉｎｄｅｘ，　］)

testing <- titanic[-trainIndex, ]