R:随机切换矩阵中非对角线的符号

R:随机切换矩阵中非对角线的符号,r,matrix,statistics,data-manipulation,R,Matrix,Statistics,Data Manipulation,假设我生成以下矩阵 Sigma <- diag(x = 1, 100, 100) Sigma[Sigma == 0] <- 0.25 Sigma一种方法是为矩阵的长度随机生成1和-1,将其乘以矩阵,并将对角线变成1 Sigma <- Sigma * sample(c(1, -1), length(Sigma), replace = TRUE) diag(Sigma) <- 1 Sigma Sigma

假设我生成以下矩阵

Sigma <- diag(x = 1, 100, 100)
Sigma[Sigma == 0] <- 0.25

Sigma一种方法是为矩阵的长度随机生成1和-1,将其乘以矩阵,并将对角线变成1

Sigma <- Sigma * sample(c(1, -1), length(Sigma), replace = TRUE)
diag(Sigma) <- 1
Sigma
Sigma