> seq(1, 9, by = 2)
[1] 1 3 5 7 9
## 数列
>seq(1, 59, length.out = 59)
[1] 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43
[44] 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59
##长度为59的数列
#1.如果总体是自然数这样的等差数列，可以直接利用seq函数挑出奇数（或偶数）：n <- 1:100
( ji <- seq(from=1,to=100,by=2) )
( ou <- setdiff(n,ji) )
rm(ji)rm(ou)
#2.如果总体是杂乱无章的集合，可以写个小函数判断某个数的奇偶：
jishu <- function(x){
ifelse(x%%2 ==0,F,T)
}
( ji <- n[jishu(n)] )
( ou <- n[!jishu(n)] )
#通过上面的任一一种方法将总体的奇数偶数区分开，接下来就可以使用sample函数抽样了：
sample(ji,5)
两列有时数据需要比向量更复杂的存储方式。幸运的是，R软件提供了很多的数据结构。常见的有数据框（data.frame）、矩阵（matrix）、列表（list）以及数组（array）。数据框类似于电子表格，矩阵类似于人们熟悉的矩阵数学计算，列表对于程序员比较熟悉。
