removed looping save to HS.Rdata