Thats works perfectly, thanks a lot,
Mark

On Thu, Dec 13, 2012 at 11:34 AM, arun <smartpink111@yahoo.com> wrote:

> Hi,
> Try this:
> seq1<-seq(from=as.POSIXct("2012-05-30
> 18:30:00",tz="UTC"),to=as.POSIXct("2012-05-31 02:30:00",tz="UTC"),by="1
> hour")
> seq2<-seq(from=as.POSIXct("2012-05-31
> 00:30:00",tz="UTC"),to=as.POSIXct("2012-05-31 08:30:00",tz="UTC"),by="1
> hour")
> seq3<-seq(from=as.POSIXct("2012-05-31
> 06:30:00",tz="UTC"),to=as.POSIXct("2012-05-31 07:30:00",tz="UTC"),by="1
> hour")
> Sys.setenv(TZ="UTC")
>  Series1<-c(seq1,seq2,seq3)
>  split(Series1,rep(1:3,each=9))
> #or individually if it is a small dataset
> Series1[1:9]
> Series1[10:18]
> etc.
>

	[[alternative HTML version deleted]]


