search for: jan1

...format(date.posix,"%Y")) M<-as.numeric(format(date.posix,"%m")) D<-as.numeric(format(date.posix,"%d")) } LY<- (Y%%4==0 & !(Y%%100==0))|(Y%%400==0) LY.prev<- ((Y-1)%%4==0 & !((Y-1)%%100==0))|((Y-1)%%400==0) date.yday<-date.posix$yday+1 jan1.wday<-strptime(paste(Y,"01-01",sep="-"),"%Y-%m-%d")$wday jan1.wday<-ifelse(jan1.wday==0,7,jan1.wday) date.wday<-date.posix$wday date.wday<-ifelse(date.wday==0,7,date.wday) ####If the date is in the beginning, or end of the year, ### does it fall...

Hi, All I get following question: A data format like following: [Day time x y] Jan1 18:56:24 x1 y1 Jan1 18:56:25 x2 y2 Jan1 18:56:27 x3 y3 Jan1 18:56:28 x4 y4 Jan1 18:56:31 x5 y5 ..................... ..................... what I wanna do is to partion the time interval by unit of 5 seconds. and pick x,y corresponding to the last time within that interval. for the example above,...

...format(date.posix,"%Y")) M<-as.numeric(format(date.posix,"%m")) D<-as.numeric(format(date.posix,"%d")) } LY<- (Y%%4==0 & !(Y%%100==0))|(Y%%400==0) LY.prev<- ((Y-1)%%4==0 & !((Y-1)%%100==0))|((Y-1)%%400==0) date.yday<-date.posix$yday+1 jan1.wday<-strptime(paste(Y,"01-01",sep="-"),"%Y-%m-%d")$wday jan1.wday<-ifelse(jan1.wday==0,7,jan1.wday) date.wday<-date.posix$wday date.wday<-ifelse(date.wday==0,7,date.wday) ####If the date is in the beginning, or end of the year, ### does it fall...

Hello R Users, I am new to R and I have simple problem for R users. I have CO2 observations defined on time axis(yr,mo,day,hr,min,sec). (DATA ATTACHED HERE) First I want to convert time axis as one axis as 'hour' on regular interval as 1 hour. Say 00 hrs to 24hrs(jan1), 25hrs to 48hrs(jan2) and so on. Then I want to interpolate CO2 at every hour. Kindly anybody can help, Many thanks, Regards, Yogesh -------------- next part -------------- An embedded and charset-unspecified text was scrubbed... Name: data.txt Url: https://stat.ethz.ch/pipermail/r-help/attach...

...uot;1987",..: 1 1 1 1 1 1 1 1 1 1 ... $ Day : num 1 2 3 4 5 6 7 8 9 10 ... $ Month : Factor w/ 12 levels "Jan","Feb","Mar",..: 1 1 1 1 1 1 1 1 1 1 ... $ Rainfall: Named num NA 64 388 433 121 NA NA 90 1 NA ... ..- attr(*, "names")= chr "Jan1" "Jan2" "Jan3" "Jan4" ... Everything works if I plot it this way: bwplot(Year ~ Rainfall | Month, data = plot.df) but if I try: bwplot(Month ~ Rainfall | Year, data = plot.df) the tick marks vanish from the top. Not only that, about 55mm at the top of the plot...

Greetings, I would like to subset observations in a time series using xts, after converting from ts to xts. X=ts(1:100, frequency=12, start=c(1976)) X2=as.xts(X) X2["1984"] The output: Feb 1984 98 Mar 1984 99 Apr 1984 100 What happened to January? The index is always one month off, with X2["1976-01"] giving me Feb 1976. Should I set the time using something else