u <- UG(~ a*b*c + c*d*e*g)
u
cliques(u)
graph22 <- UG(~x1*x2*x3+x3*x4*x5*x6+x5*x7*x8*x9*x10+x9*x11*x12*x13*x14+
x12*x15+x15*x16*x17*x18+x17*x1*x18+x1*x5*x7*x19*x20+x6*x20*x21+x22)
cliques(graph22)Run the code above in your browser using DataLab