Added in the sparse output R script