> 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
______________________________________________
[email protected] mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide! http://www.R-project.org/posting-guide.html
