Dear Researchers,

I wish to ask and help to write a good and elegant method to select a right
sequence in a matrix that i need to do a Remote Sensing Filter

prova <- t(matrix(seq(1:16), nrow=4,ncol=4))

> prova
     [,1] [,2] [,3] [,4]
[1,]    1    2    3    4
[2,]    5    6    7    8
[3,]    9   10   11   12
[4,]   13   14   15   16

# i need to do 2 sequence seq1 = 1,3,6,8,9,11,14,16 and
seq=2,4,5,7,10,12,13,15.
# I did the following loop but is not very elegant sorry

Truefalse <- list()

for(p in seq(1,4, by=2)){
    for(v in seq(2,4,by=2)){
            cv <- prova[p,]%%2!=0
            cx <- prova[v,]%%2==0
            Truefalse[[p]] <- cv
            Truefalse[[v]] <- cx
}
}

Truefalse
Truefalse.df <- as.data.frame(do.call("rbind",Truefalse))
prova.df <- as.data.frame(prova)

...............

	[[alternative HTML version deleted]]

