# install.packages("fdth")
library(fdth)
x=c(45,51,50,58,50,44,46,57,42,41,60,58,41,50,54,60,52,46,52,51)
### estudo dos intervalos
range(x)
table(x)
seq(41,60,6) ### ficam valores fora do intervalo (60)
seq(41,66,6) ### inclui todos intervalos com valores
seq(35,71,6) ### irá adicionar intervalos vazios nos extremos
tab=fdt(x,start=35,h=6,end=71)
tab
plot(tab, type= "fp")