Update RollingByCalcs.R

Add error checking