#create quarterly ts
n<-20
ts1<-TSERIES((n:1),START=c(2000,1),FREQ=4)
myYP<-GETYEARPERIOD(ts1)
print(myYP$YEAR) #print 2000 2000 ...
print(myYP$PRD) #print 1 2 3 4 1 2 ...
#create monthly ts
ts1<-TSERIES((n:1),START=c(2000,1),FREQ='M')
myYP<-GETYEARPERIOD(ts1)
print(myYP$YEAR) #print 2000 2000 ...
print(myYP$PRD) #print 1 2 3 4 5 6 7 ...
#create yearly ts
ts1<-TSERIES((1:n),START=c(2000,1),FREQ=1)
myYP<-GETYEARPERIOD(ts1,YEARS='YEARSS', PERIODS='PRDSS')
print(myYP$YEARSS) #print 2000 2001 2002 ...
print(myYP$PRDSS) #print 1 1 1 1.....
#JOIN=TRUE
ts1<-TSERIES((n:1),START=c(2000,1),FREQ='M')
myYP<-GETYEARPERIOD(ts1,JOIN=TRUE)
print(myYP) #print 2000 2000 ...
# [,1] [,2]
#[1,] 2000 1
#[2,] 2000 2
#[3,] 2000 3
#...
Run the code above in your browser using DataLab