際際滷

際際滷Share a Scribd company logo

Rプログラミング01 仝はじめの匯i々　處デモ

?
?
wada, kazumi
wada, kazumi

スライド仝檎プログラミング01　はじめの匯i々の嶄にある處楼のためのデモコ`ド

1 of 3
Download to read offline
#------------------------------------------------------- # 處 1) まず弯として #------------------------------------------------------- # 光徭m卷おいします sum(1:100) 1 + 2 + 5 + 10 4 * 185 #------------------------------------------------------- # 處 2) ？なデ`タ侏の篳 #------------------------------------------------------- #----------------------------- # g方デ`タと屁方デ`タ #----------------------------- x1 <- 1 x2 <- 6.78 mode(x1) # numeric : g方 mode(x2) # numeric # 屁方にQ as.integer(x1) as.integer(x2) # 富方泣何蛍を鯛として崙議に屁方に x1 <- as.integer(x1) # x1 を屁方侏にしておく #----------------------------- # 猟忖デ`タ #----------------------------- x3 <- "a" x4 <- "abcdefghi" mode(x3) # "character" mode(x4) # "character" #----------------------------- # 尖･禰`タ #----------------------------- x5 <- TRUE x6 <- FALSE mode(x5) mode(x6) #------------------------------------------------------- # 處 3) 麻できるデ`タ侏は? #------------------------------------------------------- # 處 2 で恬撹した x1--x7 を聞います。 x1 * 1.5 # ＄ x2 * 1.5 # ＄ x3 * 1.5 # 〜 x4 * 1.5 # 〜 x5 * 1.5 # ＄ x6 * 1.5 # ＄
# 屁方侏に 1.5 を譴韻襪? x7 <- x1 * 1.5 mode(x7) # x7 は徭啜弔g方侏になり麻に}はおこらない # 尖･禰`タは、True は 1、False は 0 として麻されることに廣吭! #------------------------------------------------------- # 處 4) ？な夛の篳 #------------------------------------------------------- #----------------------------- # 方?猟忖双ベクトル #----------------------------- y1 <- c(1, 2, 3) y2 <- c("a", "bcd", "ef", "ghijkl") is.vector(y1); is.vector(y2) # 夛の_J #----------------------------- # 方､篶鍔崛个緑仭个臨撹 #----------------------------- # 方､緑仭 y3 <- matrix(1:9, nc=3) y3 # 勣殆はkKびに鯉{される y3[2,2] # 2 佩 2 双の勣殆を函り竃す y3[3,] # 3 佩朕の勣殆畠てを函り竃す y3[,3] # 3 双朕の勣殆畠てを函り竃す y3 <- matrix(1:9, nc=3, nr=4) y3 # 勣殆が怎りないときは壅旋喘される # 猟忖双の佩双 (y4 <- matrix(c("a", "bc", "def", "ef", "g", "h"), nr=2)) #----------------------------- # 塘双 #----------------------------- (y5 <- array(1:24, c(2,3,4))) # eの勣殆の峺協圭隈 y5[1,1,1] # 勣殆の何蛍議な峺協圭隈 y5[,,-1] #----------------------------- # リスト #----------------------------- (y6 <- list(y1, y2, y3, y4, y5)) # eの勣殆の峺協圭隈 y6[[2]][2] # さらに撹勣殆に兆念をつける names(y6) <- c("y1", "y2", "y3", "y4", "y5")) y6 # つけたe勣殆兆を聞った峺協の圭隈 y6$y5[1,2,1]
# 夛_Jの圭隈 str(y6) #----------------------------- # cbind, rbind #----------------------------- (z1 <- c(1,2,3)) # 勣殆方 3 のkベクトル (z2 <- matrix(1:9, nc=3, nr=4)) # 4〜3 の佩双 (z3 <- rbind(z1, z2)) # 5〜3 の佩双 (z4 <- c(1,2,3,4,5)) # 勣殆方 5 のkベクトル (z5 <- cbind(z3, z4)) # 5〜4 の佩双 z5[2,4] # 2 #################################################

More Related Content

Rプログラミング01 仝はじめの匯i々　處デモ

  • 1. #------------------------------------------------------- # 處 1) まず弯として #------------------------------------------------------- # 光徭m卷おいします sum(1:100) 1 + 2 + 5 + 10 4 * 185 #------------------------------------------------------- # 處 2) ？なデ`タ侏の篳 #------------------------------------------------------- #----------------------------- # g方デ`タと屁方デ`タ #----------------------------- x1 <- 1 x2 <- 6.78 mode(x1) # numeric : g方 mode(x2) # numeric # 屁方にQ as.integer(x1) as.integer(x2) # 富方泣何蛍を鯛として崙議に屁方に x1 <- as.integer(x1) # x1 を屁方侏にしておく #----------------------------- # 猟忖デ`タ #----------------------------- x3 <- "a" x4 <- "abcdefghi" mode(x3) # "character" mode(x4) # "character" #----------------------------- # 尖･禰`タ #----------------------------- x5 <- TRUE x6 <- FALSE mode(x5) mode(x6) #------------------------------------------------------- # 處 3) 麻できるデ`タ侏は? #------------------------------------------------------- # 處 2 で恬撹した x1--x7 を聞います。 x1 * 1.5 # ＄ x2 * 1.5 # ＄ x3 * 1.5 # 〜 x4 * 1.5 # 〜 x5 * 1.5 # ＄ x6 * 1.5 # ＄
  • 2. # 屁方侏に 1.5 を譴韻襪? x7 <- x1 * 1.5 mode(x7) # x7 は徭啜弔g方侏になり麻に}はおこらない # 尖･禰`タは、True は 1、False は 0 として麻されることに廣吭! #------------------------------------------------------- # 處 4) ？な夛の篳 #------------------------------------------------------- #----------------------------- # 方?猟忖双ベクトル #----------------------------- y1 <- c(1, 2, 3) y2 <- c("a", "bcd", "ef", "ghijkl") is.vector(y1); is.vector(y2) # 夛の_J #----------------------------- # 方､篶鍔崛个緑仭个臨撹 #----------------------------- # 方､緑仭 y3 <- matrix(1:9, nc=3) y3 # 勣殆はkKびに鯉{される y3[2,2] # 2 佩 2 双の勣殆を函り竃す y3[3,] # 3 佩朕の勣殆畠てを函り竃す y3[,3] # 3 双朕の勣殆畠てを函り竃す y3 <- matrix(1:9, nc=3, nr=4) y3 # 勣殆が怎りないときは壅旋喘される # 猟忖双の佩双 (y4 <- matrix(c("a", "bc", "def", "ef", "g", "h"), nr=2)) #----------------------------- # 塘双 #----------------------------- (y5 <- array(1:24, c(2,3,4))) # eの勣殆の峺協圭隈 y5[1,1,1] # 勣殆の何蛍議な峺協圭隈 y5[,,-1] #----------------------------- # リスト #----------------------------- (y6 <- list(y1, y2, y3, y4, y5)) # eの勣殆の峺協圭隈 y6[[2]][2] # さらに撹勣殆に兆念をつける names(y6) <- c("y1", "y2", "y3", "y4", "y5")) y6 # つけたe勣殆兆を聞った峺協の圭隈 y6$y5[1,2,1]
  • 3. # 夛_Jの圭隈 str(y6) #----------------------------- # cbind, rbind #----------------------------- (z1 <- c(1,2,3)) # 勣殆方 3 のkベクトル (z2 <- matrix(1:9, nc=3, nr=4)) # 4〜3 の佩双 (z3 <- rbind(z1, z2)) # 5〜3 の佩双 (z4 <- c(1,2,3,4,5)) # 勣殆方 5 のkベクトル (z5 <- cbind(z3, z4)) # 5〜4 の佩双 z5[2,4] # 2 #################################################