library(agricolae)
data(natives)
attach(natives)
class<-sturges.freq(size)
# information of the classes
class
breaks <- class$breaks
# list classes
intervals.freq(breaks)
# Table frecuency
h1<-hist(size,breaks,plot=FALSE)
table.freq(h1)
# Join classes 9 and 10 with little frequency.
inter<-join.freq(breaks,9:10)
# new table
h2<-hist(size,breaks=inter,xlim=c(0,0.12),col="bisque")
table.freq(h2)
detach(natives)
Run the code above in your browser using DataLab