Cacher is the code snippet organizer for pro developers

upset(movies, nsets = 7, nintersects = 30, mb.ratio = c(0.5, 0.5),
      order.by = c("freq", "degree"), decreasing = c(TRUE,FALSE))
grid.edit('arrange',name='arrange2')
u1 <- grid.grab(wrap = FALSE)
upset(movies, nsets = 7, nintersects = 30, mb.ratio = c(0.5, 0.5),
            order.by = c("freq", "degree"), decreasing = c(TRUE,FALSE))
grid.edit('arrange',name='arrange3')
u2 <- grid.grab(wrap = FALSE)
upset(movies, nsets = 7, nintersects = 30, mb.ratio = c(0.5, 0.5),
            order.by = c("freq", "degree"), decreasing = c(TRUE,FALSE))
grid.edit('arrange',name='arrange4')
u3 <- grid.grab(wrap = FALSE)
upset(movies, nsets = 7, nintersects = 30, mb.ratio = c(0.5, 0.5),
            order.by = c("freq", "degree"), decreasing = c(TRUE,FALSE))
grid.edit('arrange',name='arrange5')
u4 <- grid.grab(wrap = FALSE)
upset(movies, nsets = 7, nintersects = 30, mb.ratio = c(0.5, 0.5),
            order.by = c("freq", "degree"), decreasing = c(TRUE,FALSE))
grid.edit('arrange',name='arrange6')
u5 <- grid.grab(wrap = FALSE)