powered by
sd.filter(data, cutoff = 0.5)
data(Singhdata) data<-Singhdata$esets[[1]][1:1000,] data.filtered<-sd.filter(data) head(data.filtered)
Run the code above in your browser using DataLab