How to select the 10% of highest and lowest values from a vector in R?

How to select the 10% of highest and lowest values from a vector in R?

As introduce in the title, I would like to select the 10% highest and the
10% lowest values from a vector. How can I manage to do that?
Anyone can help me ? Thanks a lot