update rscript with motif counter and motif null model