Ich möchte das Startdatum des aktuellen Monats in R erhalten. Jetzt verwende ich Folgendes

currentDate<-Sys.Date()  #for getting current system date eg:2012-11-06
formatDate<-format(currentDate,"%Y-%m")  #it return 2012-11
startDate<-as.Date(paste(formatDate,"-01",sep=""))  #it return 2012-11-01

Gibt es eine einfache Möglichkeit, dies zu tun?