#synthesize the results
# Exact matching clusters
exact<-clusters(input=res1,type="exact")
names(exact)
exact$RTIN
exact$RTIN1
# Clustering based on BABLBS
bablbs<-clusters(input=res1, bablbs=res_bab,type="bablbs")
names(bablbs)
bablbs$RTIN
bablbs$RTIN1
# Clustering based on GD1
gd1<-clusters(input=res1, bablbs=res_gd1,type="gd1")
names(gd1)
gd1$RTIN
gd1$RTIN1
Run the code above in your browser using DataLab