小编Nav*_*swi的帖子

我需要自动化获取给定序列中的下一个数字的过程.

我们可以创建一个需要两个输入的函数

1. 数字向量(例如3,7,13,21)

2. 下一个号码有多少

   seqNext <- function(sequ, next) {
   ..
   }
   
   seqNext( c(3,7,13,21), 3) 
   # 31 43 57
   seqNext( c(37,26,17,10), 1)
   # 5 
   

   Run Code Online (Sandbox Code Playgroud)

假设数字向量x <- c(-3,2,1,-2, 4,-1,-5)
Min非负值in x是1索引/位置/答案应该是3.
我们怎样才能使用任何功能呢？

(注意:which.min在上面的例子中,函数给出的答案/索引7是最小的(但不是非负的))

想象一下日出的图片,其中一个红色圆圈被黄色厚环和蓝色背景包围.取红色为3然后黄色为2,蓝色为1.

 11111111111
 11111211111
 11112221111
 11222322211
 22223332222
 11222322221
 11112221111
 11111211111

这是所需的输出.但是,记录/文件/数据缺少值(缺少所有元素的30%).

我们如何计算缺失值,以便获得所需的输出,同时牢记循环趋势.