## create example data
x <- rnorm(1000)
## cut into quartiles
quartiles <- quantcut( x )
table(quartiles)
## cut into deciles
deciles.1 <- quantcut( x, 10 )
table(deciles.1)
# or equivalently
deciles.2 <- quantcut( x, seq(0,1,by=0.1) )
## show handling of 'tied' quantiles.
x <- round(x) # discretize to create ties
stem(x) # display the ties
deciles <- quantcut( x, 10 )
table(deciles) # note that there are only 5 groups (not 10)
# due to duplicates
Run the code above in your browser using DataLab