c(2,1,3,4)
0:50/10 #等差
seq(50)/10 #等差
seq(0,5,length=51) #50等分
seq(0,5,by=0.1) #等差数列
rep(1:2,times=10) #繰り返し
rep(1:2,length=20) #繰り返し
unique(x) #反復した数ははぶく
c(1, 20, 300, 4, 50) == c(1, 2, 3, 4, 5)
[1] TRUE FALSE FALSE TRUE FALSE
-
- 便利な函数がいろいろある cumsum() cumprod() diff()
x<-rep(2,times=10)
cumsum(x)
[1] 2 4 6 8 10 12 14 16 18 20
cumprod(x)
[1] 2 4 8 16 32 64 128 256 512 1024
diff(x)
[1] -1 4 3 -7 0 #差分
mean(x)
var(x)
sd(x)
range(x)
union(x, y) #和集合
intersect(x, y) #積集合
setdiff(x, y) #差集合
setequal(x, y)#集合として等しいか否か
is.element(x, y) #xの要素がyにふくまれるか