将二进制字符串转换为R中的数据矩阵

Question

如何将M转换为12×m的数字矩阵 （例如，每个单元一位）：

library(R.utils)
m<-5    
k<-12   
W<-sample(1:(2**m),k)
M<-matrix(intToBin(V),k,1)

Answer 1

intToBin将返回二进制表示的字符串。

您可以拆分此字符串，转换为整数，然后合并行。

 M<-do.call(rbind, lapply(strsplit(intToBin(W),''), as.integer))

Answer 2

intToBin返回字符，因此在放入矩阵之前，请使用strsplit将其分成单个数字（位）。

m <- 5
k <- 12
W <- sample(1:(2**m), k)
M <- matrix(as.numeric(unlist(strsplit(intToBin(W), ""))), nrow= k, byrow = TRUE)
> M
      [,1] [,2] [,3] [,4] [,5] [,6]
 [1,]    1    0    0    0    0    0
 [2,]    0    1    1    0    0    0
 [3,]    0    0    0    1    1    0
 [4,]    0    1    0    0    1    1
 [5,]    0    1    0    1    1    0
 [6,]    0    1    1    1    0    0
 [7,]    0    0    0    0    0    0
 [8,]    0    1    1    1    1    0
 [9,]    1    1    0    1    0    1
[10,]    1    0    0    1    1    1
[11,]    0    0    1    1    1    1
[12,]    0    0    1    1    0    1