在每行-R中创建一个带有条件总和的矩阵 [英] Create a matrix with conditional sum in each row -R

问题描述

我创建了这个矩阵:

> atr <- matrix(rnorm(18,50,3), nrow=9, ncol=2) 
> atr
      [,1] [,2]
 [1,] 49.1 46.3
 [2,] 49.9 49.2
 [3,] 52.3 51.6
 [4,] 49.3 46.1
 [5,] 54.3 51.8
 [6,] 46.7 47.2
 [7,] 46.6 57.6
 [8,] 53.9 53.4
 [9,] 46.6 53.1

如何创建值等于rnorm(18,50,3)的相同矩阵，但条件是每行的值总和必须小于或等于100.

How Can I create the same matrix with values equal to rnorm(18,50,3) but with the condition that the sum of values on each row must be less or equal than 100.

推荐答案

我会做这样的事情

nrow <- 9
ncol <- 2
mat <- matrix(nrow = nrow, ncol = ncol)
i <- 1
while (i <= nrow) {
    x <- rnorm(ncol, mean = 50, sd = 3)
    if (sum(x) <= 100) {
        mat[i, ] <- x
        i <- i + 1
    }
}

这篇关于在每行-R中创建一个带有条件总和的矩阵的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！