Code:
#head(faithful)
vct <- faithful$waiting
#vct
#is.vector(vct)
range(vct)
cls.boundary <- seq(40,100,by=10)
#cls.boundary
cut.vct <- cut(vct,cls.boundary,right=FALSE)
#str(cut.vct)
freq<-table(cut.vct)
show<-cbind(freq)
#show
hist(show)
Last edited: