Getting unexpected extra rows (continued)

Hello everyone,

So I have  created a date sequence with the following code:

x<-seq(as.Date("1985-10-01"), as.Date(Sys.Date()), "months")

x["Transits"]<-NA

xFrame<-data.frame(x)

str(xFrame)

'data.frame':   379 obs. of  1 variable:
 $ x: Date, format: "1985-10-01" "1985-11-01" "1985-12-01" "1986-01-01" ...

How can I make this a dataframe with two columns (date and transits) and
378 observations with value NA?

Any help will be greatly appreciated,

Regards,

Paul