HI,
In case if you wanted to take "BC" and "CB" as the same.
dat1<- read.table(text="
Seq,Output
A B B C D A C,Yes
B C A C B D A C,Yes
C D A A C D,No
",sep=",",header=TRUE,stringsAsFactors=FALSE)
lapply(str_split(str_trim(dat1$Seq)," ")[dat1$Output=="Yes"],function(x)
{x1<-t(combn(x,2));
x2<
Hi,
May be this helps:
Not sure how you wanted to select those two letters.
dat1<- read.table(text="
Seq,Output
A B B C D A C,Yes
B C A C B D A C,Yes
C D A A C D,No
",sep=",",header=TRUE,stringsAsFactors=FALSE)
library(stringr)
lapply(str_split(str_trim(dat1$Seq)," ")[dat1$Output=="Yes"],f
2 matches
Mail list logo