Dears in R :i have this code in R:
# this for do not work true (i tried
)out<-read.csv("outbr.csv")?truth<-out[,seq(1,2)]truth<-cbind(as.character(truth[,1]),as.character(truth[,2])?
? ? ? ? ? ?,as.data.frame(rep(0,,dim(out)[1])));for (j in 1:2) {? for (i in
1:20) {? ??truth[(truth[,1]== truth[j,i] & truth[,2]== truth[j,i+1]) |?? ? ?
? (truth[,1]== truth[j+1,i] & truth[,2]== truth[j+1,i+1]),3]<-1?? }
}
#truth<-out[,seq(1,2)]#truth<-cbind(as.character(truth[,1]),as.character(truth[,2])?
#? ? ? ? ?
?,as.data.frame(rep(0,,dim(out)[1])));#truth[(truth[,1]=="G2" &
truth[,2]=="G1") | (truth[,1]=="G1" &
truth[,2]=="G2"),3]<-1?
##########################################################################3
I have file have two columns? . data in this file is text just (G1,G2,G3? to
G154). one element? can repeat, no problem ,so? we have 23562 rows in two
columns (for 154 elements) like :
Column1? ?column2? ? ?column3??
G1? ? ? ? ? ? ? ? ?G4? ? ? ? ? ? 0
G4? ? ? ? ? ? ? ? ?G6? ? ? ? ? ? 0
G100? ? ? ? ? ?G7? ? ? ? ? ? ?1G7? ? ? ? ? ? ? G100? ? .? ? ?1.? ? ? ? ? ? ? ? ?
? ? ..? ? ? ? ? ? ? ? ? ? ? ?.?I want to make third column (1 or 0) based on
this condition:
IF? truth[,1]==?G1? & truth[,2]==?G2? | truth[,1]==?G2? &
truth[,2]==?G1? <-1.then In the third column write 1 otherwise write 0.G1 and
G2? just exampl? (indeed? i want test If two each elements? ?has a reciprocal
relationship(G1 to G2 and G2 to G1or not)
Best regHesham?
[[alternative HTML version deleted]]