main=do
 [n,m]<-map read.words<$>getLine
 a<-map read.words<$>getLine
 let
  s = sum a
  c = (fromIntegral s) * (1 / fromIntegral(4 * m))
  l = length $ filter (\x-> (fromIntegral x) >= c) a
 putStrLn $ if l > m then "Yes" else "No"