Warning: file_get_contents(/data/phpspider/zhask/data//catemap/4/r/70.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,我有几台机器同时开始工作。我有一个数字向量vec_num,表示自启动以来每台机器运行的时间单位(没有零值) 我试图找到一种方法,通过生成一个长度(max(vec_num))的向量来有效地计算一段时间内运行了多少台机器,其中每个元素表示一个时间单位,其值表示运行了多少台机器 # For instance, take vec_num <- c(1,1,4,3,1,10) #例如 vec_num这里有一个选项: rev(cumsum(rev(tabulate(vec_num)))) #[1]

我有几台机器同时开始工作。我有一个数字向量
vec_num
,表示自启动以来每台机器运行的时间单位(没有零值)

我试图找到一种方法,通过生成一个
长度(max(vec_num))
的向量来有效地计算一段时间内运行了多少台机器,其中每个元素表示一个时间单位,其值表示运行了多少台机器

# For instance, take
vec_num <- c(1,1,4,3,1,10)
#例如
vec_num这里有一个选项:

rev(cumsum(rev(tabulate(vec_num))))
#[1] 6 3 3 2 1 1 1 1 1 1

我们可以使用
序列
+
表格

as.integer(table(sequence(vec_num)))
#[1] 6 3 3 2 1 1 1 1 1 1

快速qn:如果零值实际上意味着机器仍在运行一段时间,那么是否应该有两台机器运行10段时间?如果结果是
c(6,6,4,4,3,2,2,2,2,2)
?向量表示每台机器运行的时间。vec_num中只有一个值为10,因此只有一台机器在整个10个时间单位内运行;假设零值仅为1。我更新了我的帖子以反映这一点;抱歉搞混了!太好了!感觉好像有个傻瓜在某处
as.integer(table(sequence(vec_num)))
#[1] 6 3 3 2 1 1 1 1 1 1