如何使用for循环设置相邻矩阵？

我试图模拟一个网络模型。其中，n.人=100。我想将一半单元格指定为[人员索引，1]（这是室友连接），另一半单元格指定为[人员索引，3]（这是同事连接）

---

你说的一半到底是什么意思？你是说上下三角子矩阵吗？你能举个小例子吗？3x3相邻矩阵？嘿，我的意思是我想随机分配50%的矩阵（在3*3矩阵的情况下，可能有4或5个人与一个同事在一起，这由行=1表示）

g <- graph.formula(1-2, 1-3,2-3,2-4)
distribution <- matrix(NA,n.people,n.people)

#Set up the roommate connection
for (i in seq(1,n.people,by=3)){
  distribution[i,] <-3
}

#Set up the coworker connection
for (i in seq(1,n.people,by=1)){
  for(j in 1:n.people){
    distribution[i,j] <-1
  }
}