> slides <- read.table("slides.txt") > slides [1:5,] V1 V2 V3 V4 V5 V6 V7 V8 1 PLB00090AA02 0.147 0.018 0.046 0.064 -0.018 -0.008 -0.063 2 PLB00090BC08 0.171 0.011 -0.001 0.009 0.052 0.032 -0.065 3 PLB00090CG02 0.029 -0.014 -0.042 0.006 0.024 -0.009 -0.043 4 PLB00091AA08 0.033 0.050 -0.022 -0.002 0.038 0.015 -0.037 5 PLB00091BE02 0.183 0.039 0.052 -0.014 -0.034 -0.037 0.037
maybe: slides$mean <- apply( slides[,2:8],1,mean) close <- abs(slides$mean) < 0.03 slides[close,] best wishes ido ______________________________________________ R-help@stat.math.ethz.ch mailing list https://stat.ethz.ch/mailman/listinfo/r-help PLEASE do read the posting guide! http://www.R-project.org/posting-guide.html