correct the bug in lunarCal.R