【发布时间】:2012-07-19 13:59:12
【问题描述】:
如何将一个向量分成两部分,以便为每个新向量选择一个随机样本。但我总是想分成两半。比如
x <- 1:10
obj <- splitMyVector(x)
obj$a
> 5 3 9 7 10
obj$b
> 8 4 1 6 2
注意:这样做的目的是为了做到半信度。
【问题讨论】:
如何将一个向量分成两部分,以便为每个新向量选择一个随机样本。但我总是想分成两半。比如
x <- 1:10
obj <- splitMyVector(x)
obj$a
> 5 3 9 7 10
obj$b
> 8 4 1 6 2
注意:这样做的目的是为了做到半信度。
【问题讨论】:
split(sample(x),letters[seq(length(x))%%2+1])
$a
[1] 9 7 10 4 2
$b
[1] 6 1 8 3 5
【讨论】:
a 和b 作为他的因素,那么letters[...] 计算并不是绝对必要的。 (除非我不注意这里的细节:-()