Displaying 1 result from an estimated 1 matches for "filtervector".
Did you mean:
filetovector
2007 Mar 25
1
for loop help
...ent.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 <- data.frame(current.roi.plus.z,
filtervector)
final.roi.df <-
current.roi.plus.z.filter[which(current.roi.plus.z.filter$filtervector==1),]
#prin...