Warning: file_get_contents(/data/phpspider/zhask/data//catemap/2/jsf-2/2.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
如何计算R中每个区间的随机变量数?_R - Fatal编程技术网

如何计算R中每个区间的随机变量数?

如何计算R中每个区间的随机变量数?,r,R,我创建一个[0,1]的区间,我把区间分成许多次区间,我放入一些随机变量,我需要在每个区间中比较我的次区间中有多少个变量,我把变量的和加到一个向量上,向量的大小就是我的次区间的数目,最后,我的结果是这个向量,它包含每个区间的变量之和: Q<- runif(120, min=0, max=1) y<-sort(Q) x<-seq(0,1, by=1/1200) for(j in 1:length(x)-1){ for(i in 1:length(y)){ somme[j]=

我创建一个[0,1]的区间,我把区间分成许多次区间,我放入一些随机变量,我需要在每个区间中比较我的次区间中有多少个变量,我把变量的和加到一个向量上,向量的大小就是我的次区间的数目,最后,我的结果是这个向量,它包含每个区间的变量之和:

Q<- runif(120, min=0, max=1)
y<-sort(Q)
x<-seq(0,1, by=1/1200)

for(j in 1:length(x)-1){
  for(i in 1:length(y)){
 somme[j]= ifelse(y[i] >= x[j] & y[i]<= x[j+1],1,0)
  }
}
我是R的初学者,所以我没有找到我等待的最佳解决方案

如果您能帮助我,我将不胜感激。

切割函数设计用于将数字向量分组。然后可以使用dplyr来聚合总和

library(dplyr)
Q <- runif(120, min=0, max=1)
intervals <- data.frame(interval = cut(Q, breaks = seq(0, 1, 1/1200)), Q) %>%
  group_by(interval) %>%
  summarize( sum = sum(Q))
sapply(split(Q, f = cut(Q, breaks = seq(0, 1, 1/1200))), sum)