将最大值添加到 R 中的模拟

Question

# Here's how I simulate my dataset:
n.days <- 1000
n.indvs <- 10000
rate.decay <- 0.01

set.seed(1)
system.time(
  sim_data <- replicate(n.days, rexp(n.indvs, rate.decay))
)

我想为数据集中的所有值添加一个最大值（最大值 = 700）。我该怎么做？

Answer 1

假设您只想将其限制在 700（即，如果高于 7000，则将所有值四舍五入）

sim_data <- ifelse(sim_data > 700, 700, sim_data)

Answer 2

您可以使用pmin设置数据集的上限，即

sim_data <- pmin(sim_data,700)

将最大值添加到 R 中的模拟

Add max value to simulation in R

simulation

r