产生对角阵

wl341203

如何产生一个100*100对角阵，其中前两个元素值是1000，其他都是1.求助。。。。

万人往LVR

data <- matrix(0,nrow=100,ncol=100)
for(i in 3:100){data[i,i] <- 1}
data[1,1] <- 1000
data[2,2] <- 1000