Thank you David!
On Sat, May 7, 2016 at 12:18 AM, David Winsemius <dwinsem...@comcast.net> wrote:
>
>> On May 6, 2016, at 5:15 PM, Ashta <sewa...@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 <dwinsem...@comcast.net>
>> wrote:
>>>
>>>> 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
>>>
>
> 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.
