我怎样才能转换A.
A <- c(1,2,3,4,5,6,7,8,9)
Run Code Online (Sandbox Code Playgroud)
到B.
B <- c(0,0,1,2,3,0,0,4,5,6,0,0,7,8,9)
Run Code Online (Sandbox Code Playgroud)
我试过这个:
A <-c(1,2,3,4,5,6,7,8,9)
rows <- length(A)/3
dim(a) <- c(rows,3)
B <- matrix(0,rows,2+3)
B[,3:5] <- A
c(B)
Run Code Online (Sandbox Code Playgroud)
但它不起作用.
为什么不用A转换B:
b <- rep(c(0,0,1,1,1),time=length(A)/3)
b[b==1] <- A
b
[1] 0 0 1 2 3 0 0 4 5 6 0 0 7 8 9
Run Code Online (Sandbox Code Playgroud)
| 归档时间: |
|
| 查看次数: |
292 次 |
| 最近记录: |