[R] statment can tacke value in row1 and rows

[Jim Lemon]

Hi Hesham,
It think you are looking for something like this:

truth<-data.frame(G1=sample(LETTERS[1:4],20,TRUE),
 G2=sample(LETTERS[1:4],20,TRUE))
truth
truth$G3<-as.numeric(truth$G1 == truth$G2)
truth

Note that like quite a few emails produced with Javascript formatting,
there are embedded characters that R can't interpret.

Jim

On Thu, Sep 3, 2020 at 11:18 AM Hesham A. AL-bukhaiti via R-help
<r-help using r-project.org> wrote:
>
> hello.I have this code :#################################3#read data just thee columns. first and second columns are catogary , third column  is number. out<-read.csv("outbr.csv")
> truth<-out[,seq(1,2)] #truth about 2000 rows, some values in row1 can  show in rows2,and the some values in row2 can also show in row1 :
> #for example :#G1(row1), G2(row2)
> #G2(row1),G1(row2)
> #if this happend add to thrid column in truth 1 otherwise add 0 as in statment followtruth<-cbind(as.character(truth[,1]),as.character(truth[,2])             ,as.data.frame(rep(0,,dim(out)[1])));#here just G2 and G3, i want make loop to cam[are all values from G1 to G2000 truth[(truth[,1]=="G3" & truth[,2]=="G2") | (truth[,1]=="G2" & truth[,2]=="G3"),3]<-1 ###############################3Q:# i want make loop take all 2000 rows and comparsion between all values in row one and row two :
> #Gi(value in row1), Gj(value in row2)
> #Gj(varow1),Gi(row2), #############more :#here just G2 and G3, i want make loop to cam[are all values from G1 to G2000 truth[(truth[,1]=="G3" & truth[,2]=="G2") | (truth[,1]=="G2" & truth[,2]=="G3"),3]<-1
> (Simply they regulate the other. If element A is in the first group , and it is related to element B in the second group , and element B also in  in the first group , and it is related to element A(the same element  in the first group)  in the second group , we write 1 and otherwise 0.
>
>         [[alternative HTML version deleted]]
>
> ______________________________________________
> R-help using r-project.org mailing list -- To UNSUBSCRIBE and more, see
> https://stat.ethz.ch/mailman/listinfo/r-help
> PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
> and provide commented, minimal, self-contained, reproducible code.