R script for find ctrl snRNA/miRNA