我正在尝试将生成向量的代码放在一起,任何长度,只包含0到3范围内的随机整数值,总和总是等于100.
我想出了以下代码:
#Creating variables
x <- NULL
y_vec <- NULL
while(sum(y_vec) < 100) {
x <- sample(0:3,1)
y_vec <- c(y_vec, x)
if(sum(y_vec) > 100) {
y_vec <- y_vec[-length(y_vec)]
} }
#Checking on the result
sum(y_vec)
y_vec
但是,我认为这个问题有一个更简单的代码。但到目前为止,我无法想出任何其他方式。