> On May 6, 2016, at 4:30 PM, David Winsemius <dwinsem...@comcast.net> wrote:
>
>
>> On May 6, 2016, at 4:11 PM, Ashta <sewa...@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
>
> ______________________________________________
> R-help@r-project.org mailing list -- To UNSUBSCRIBE and more, see
> https://stat.ethz.ch/mailman/listinfo/r-help
> PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
> and provide commented, minimal, self-contained, reproducible code.
David Winsemius
Alameda, CA, USA
______________________________________________
R-help@r-project.org mailing list -- To UNSUBSCRIBE and more, see
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
