Displaying 1 result from an estimated 1 matches for "testextrem".
2007 Mar 25
1
for loop help
...w = 0
for(i in levels(roi.list)){
print (i)
current.roi <- data_gcs[data_gcs$ROI==i,]
current.roi.plus.z <- data.frame(current.roi,
scale(current.roi[,15]), scale(current.roi[,18]),
scale(current.roi[,21]), scale(current.roi[,24]))
testextrem <- function(x) {if ((abs(x[1]) < 2.5) &
(abs(x[2]) < 2.5) & (abs(x[3]) < 2.5) & (abs(x[4]) < 2.5)) return(1)
else return(0)}
filtervector <- apply(as.vector(current.roi.plus.z[,c(27,
28, 29, 30)]), 1, FUN=testextrem)
current.roi.plus.z.filter...