如何根據R中另一個矩陣的值爲矩陣賦值？

Question

我的問題可能措辭不佳，但希望我能更好地解釋它。在R，我創建了一個矩陣並賦予它值是這樣的：

sample<-matrix(data=rbinom(10000,1,0.3), nrow=100, ncol=100, byrow=TRUE) 

現在我試圖找出如何遵循泊松分佈到每個值在== 1

矩陣賦值這裏是我給的任務：

你有一個100米×100米的網格，1米×1米的細胞。你想選擇約30％的細胞進行採樣。模擬網格單元進行採樣。你抽樣了多少個細胞？

您可以在每個採樣的網格單元格中計算蝸牛。你發現的一篇論文報告平均蝸牛密度爲15/m2。根據平均蝸牛密度15/m2，模擬您在每個網格單元格中計算的蝸牛數量。平均來說，每個網格單元有多少個蝸牛？在所有采樣的網格單元中，你總共計算了多少隻蝸牛？

不尋找任何人爲我做我的工作，只是在正確的方向點將幫助我了很多。謝謝。

Answer 1

你可以找到非零細胞的數量有：

num_cells <- sum(sample) 

在這一點上，你可以使用rpois重新分配非零值：