How to obtain median or mean value and dicotomize

Question

I have filtered in R a Illumina Human Methylation 450K data into a dataframe of my cg\'s of interest. Look like this:

 head(x_filtered[1:3])

               T