R port of cellcruncher