# Demo of combos functions
H <- combos(20,3)
if(!require("rgl",quietly=TRUE)){
      warning("The package rgl is needed for plotting")
     } else{
      if(interactive()){
         plot3d(t(H))
         lines3d(t(H),col=rep(topo.colors(57),20))
         }
     }