R语言条件语句，怎么提取"向量中连续的两个数值"并进行判断

做质控时遇到的问题，书中给出了评估规则，代码想了很久，实在无能为力。

评估规则 提示    1个结果在控制限外    随机误差    连续2个结果一个高于控制上限，一个低于控制下限    随机误差    连续2个结果均超出控制限    系统误差

以标准正态分布为例，控制限: -0.997 ~ 0.997 :

1. result <- c(rnorm(20, 0, 1), 0.999, 0.998)limit1 <- 0.997；limit2 <- -0.997

复制代码

-----可能没有充分理解楼主的意思，只是分享自己的思路-----

1. limit1 <- 0.997
   
2. 
   
3. judge <- function(v){
   
4.     if(all(abs(v) > limit1)){
   
5.         return('system error')
   
6.     }else if(all(abs(v) <= limit1)){
   
7.         return('no error')
   
8.     }else{
   
9.         return('random error')
   
10.     }
    
11. }
    
12. 
    
13. result <- c(rnorm(20,0,1),0.999,0.998)
    
14. df <- data.frame(x1 = result[1:(length(result)-1)], x2 = result[2:length(result)])
    
15. judge_result <- apply(df,1,judge)
    
16. df$judge <- judge_result
    
17. head(df); tail(df)

复制代码

-----仅供参考-----

2801959927 发表于 2018-8-24 23:14
-----可能没有充分理解楼主的意思，只是分享自己的思路----------仅供参考-----

谢谢，我边看边学。