1.计算缺失值比例

perNA<- mean(is.na(Data1))

2.按值替换

#which返回值是符合条件的下标

NAIDX<- which(Data2<=3 | Data2>=8)
Data2[NAIDX]<- NA

3.找到连续不变且长度超过50的数值片段的起、始行号和片段的总长度。

Judger1<-x$v[2:(nrow(x)-1)]!=x$v[1:(nrow(x)-2)]
Judger2<-x$v[2:(nrow(x)-1)] ==x$v[3:(nrow(x))]

start<-which(Judger1&Judger2)+1
end<-which((!Judger1)&(!Judger2))+1

ret<-data.frame(start=Index[start],end=Index[end],length=Index[end]-Index[start])
print(ret[ret$length>=minSize,])