R语言入门_十三章、十四章课件.pptVIP

第十三章 调试;案例：寻找连续为1的游程 findruns1-function(x,k){ n-length(x) runs-vector(length=n) count-0 for(i in 1:(n-k+1)){ if(all(x[i:i+k-1]==1)){ count-count+1 runs[count]-i } } if(count0){ runs-runs[1:count] } else runs-NULL return(runs) } findruns1(c(1,0,0,1,1,0,0,1,1,1),2) [1] 3 4 7 8 9 显然，出错了;调试方法一：手动，在程序中添加多个print()，把程序的内部细节输出来查看是哪里出的问题。 function(x,k){ print(x) #输出x print(k) #输出k n-length(x) print(n) #输出n runs-vector(length=n) count-0 for(i in 1:(n-k+1)){ if(all(x[i:i+k-1]==1)