Plot[UnitStep[t]-UnitStep[t-1],{t,-3,4}]