test.R

In remymoine/PTS-R-package: Reshape and Parameters for Time Series analyses

library(RPTS)

path1<-system.file("data","hobodata1.csv",package="RPTS")
path2<-system.file("data","hobodata2.csv",package="RPTS")

data1<-time_rawshape(path1,Dcol=2,Pcol=5,sep=",",order="mdy_HMS_p!",tz="Etc/GMT+2")
data2<-na.omit(time_rawshape(path2,Dcol=2,Pcol=5,sep=",",order="mdy_HMS_p!",tz="Etc/GMT+2"))
nrow(data1)

class(data1[,1])
test<-data2[,1]

list<-list(G1=data1[,1],D2=data2[,1])
time_summary(list,F)


ag1d<-time_agpar(data1,"day",Dcol=1,Pcol=2)
ag1m<-time_agpar(data1,"month",Dcol=1,Pcol=2)
ag1y<-time_agpar(data1,"year",Dcol=1,Pcol=2)

ag2d<-time_agpar(data2,"day",Dcol=1,Pcol=2)
ag2m<-time_agpar(data2,"month",Dcol=1,Pcol=2)
ag2y<-time_agpar(data2,"year",Dcol=1,Pcol=2)

ggplot(ag2m,aes(x=Month,y=Me,col=Year))+geom_point()