a1 = getdata(Jan,Feb) ## data from Jan to Feb

write.table(a1,file="D:/q1.csv",sep=",")

a2 = getdata(Mar,Apr) ## data from Mar to Apr

write.table(a2,file="D:/q1.csv",sep=",")

# then I combined all the data in the excel.