shape(rperm(10,9)) # coerced to cycle
m <- megaminx
shape(m)
shape(m*m[1])
jj <- m*m[1]
stopifnot(identical(shape(jj),shape(tidy(jj)))) #tidy() does not change shape
shapepart(rperm(10,5))
shape_cyclist(list(1:4,8:9))
shapepart_cyclist(list(1:4,8:9))
Run the code above in your browser using DataCamp Workspace