Hi,
Try:
year1<- 1598:1997
indx<-findInterval(year1,seq(1591,2000,by=10))
group<-seq(1590,2000,by=10)
ind<-seq(1,length(group),by=1)
labl1<-paste(group[ind],group[ind+1],sep="-")[-42]
dat1<- data.frame(year=year1,decade=labl1[indx],stringsAsFactors=FALSE)
head(dat1,5)
# year decade
#1 1598 1
brs <- seq(1590,2000,by=10)
lbs <- paste(brs[-length(brs)],brs[-1],sep="-")
y <- cut(x,breaks=brs,labels=lbs) # Where "x" is your data vector.
grpd <- data.frame(year=x,decade=y)
head(grpd)
yeardecade
1 1598 1590-1600
2 1599 1590-1600
3 1600 1590-1600
4 1601 1600-1610
5 1602 1600-1610
6 16
2 matches
Mail list logo