month and output

On May 6, 2016, at 5:15 PM, Ashta <sewashm at gmail.com> wrote:

Thank you very much David.

So there is no general formal that works year all round.

The first one work only Jan to Nov
today <- Sys.Date()
nextmo<- paste0( month.abb[ as.numeric(format(today, format="%m"))+1] ,
                format(today,"%Y") )
[1] "Jun2016"

The second one works only  for the last month of the year.
today <- as.Date("2008-12-01")
nextmo<- paste0(m <- month.abb[(as.numeric(format(today,
format="%m"))+1) %/% 12] ,
                 as.numeric( format(today,"%Y") ) + (m == "Jan") )

Sorry;

This works as intended:

today <- seq( from=as.Date("2008-1-01"), length=13, by="1 mo" )

nextmo<- paste0( m <- month.abb[ as.numeric(format(today, format="%m")) %% 12+1] ,

+                as.numeric( format(today,"%Y") ) + (m=="Jan") ); nextmo
 [1] "Feb2008" "Mar2008" "Apr2008" "May2008" "Jun2008" "Jul2008" "Aug2008" "Sep2008"
 [9] "Oct2008" "Nov2008" "Dec2008" "Jan2009" "Feb2009"

nextmo


Many thanks





On Fri, May 6, 2016 at 6:40 PM, David Winsemius <dwinsemius at comcast.net> wrote:

On May 6, 2016, at 4:30 PM, David Winsemius <dwinsemius at comcast.net> wrote:

On May 6, 2016, at 4:11 PM, Ashta <sewashm at gmail.com> wrote:

Hi all,

I am trying to ge get the next month of the year.

today <- Sys.Date()
xx<- format(today, format="%B%Y")

I got  "May2016",  but I want  Jun2016. How do I do that?

today <- Sys.Date()
nextmo<- paste0( month.abb[ as.numeric(format(today, format="%m"))+1] ,
               format(today,"%Y") )
[1] "Jun2016"

It occurred to me that at the end of the year you would want to increment the year as well. This calculates the next month and increments the year value if needed:

today <- as.Date("2008-12-01")
nextmo<- paste0(m <- month.abb[(as.numeric(format(today, format="%m"))+1) %/% 12] ,
                 as.numeric( format(today,"%Y") ) + (m == "Jan") )
nextmo
#[1] "Jan2009"

My other question is that, I read a data  and do some analysis  and I
want to send all the results of the analysis to a pdf file

Example
x5 <- runif(15, 5.0, 7.5)
x5


I tried this one

pdf(file=" test.pdf")
x5
dev.off()

pdf() opens a graphics device, so you need a function that establishes a coordinate system:

x5 <- runif(15, 5.0, 7.5)
pdf(file=" test.pdf");
plot(1,1,type="n")
text(1, 1, paste(round(x5, 2), collapse="\n") )
dev.off()

If you need to suppress the axes and their labels:

pdf(file=" test.pdf"); plot(1,1, type="n", axes=FALSE, xlab="", ylab="")
text(1, 1, paste(round(x5, 2), collapse="\n") )
dev.off()

I doubt that this is what you really want, and suspect you really need to be studying the capabilities supported by the knitr package. If I'm wrong about that and you want a system that supports drawing and text on a blank page, then first study:

library(grid)
help(pac=grid)

If you choose that route then the text "R Graphics" by Paul Murrell will be indispensable.

--
David Winsemius
Alameda, CA, USA

David Winsemius
Alameda, CA, USA

David Winsemius
Alameda, CA, USA