Question

创建一个函数，我传递四个参数 - 三个用于创建正态分布向量，第四个用于与分布均值的百分比距离。尝试使用此函数输出传递给函数的百分比范围（percentdist.arg）中的值的数量。

rnormfunc <- function(n.arg, mean.arg, sd.arg, percentdist.arg){  

rnorm1 <- rnorm(n.arg, mean.arg, sd.arg) 
j <- (percentdist.arg/100)  # changes percent distance into decimal value
b <- mean.arg*(1+j)  # max percent distance from mean
g <- mean.arg*(1-j) # min percent distance from mean
total.in.range <- sum(rnorm1 %in% g:b) # sum of rnorm1 values between g:b
return(total.in.range)                
}

我的功能不是生成值的rnorm1向量 - 我从根本上忽略了一些东西！我应该使用which（）函数吗？

Answer 1

根据Kota Mori的评论，使用它应该有效：

total.in.range <- sum(rnorm1 > g & rnorm1 < b)

创建函数以在分布向量中查找值范围

1 个答案: