sptd function

Function to do sparse temporal disaggregation from if(!exists(".Rdpack.currefs")) .Rdpack.currefs <-new.env();Rdpack::insert_citeOnly(keys="mosley2021sparse;textual",package="TSdisaggregation",cached_env=.Rdpack.currefs) .