main :: IO ()
main = do
  [_, mm] <- words <$> getLine
  let m = (read :: String -> Double) mm
  as <- map read . words <$> getLine
  let b = sum as / (m * 4)
  let a = fromIntegral $ length $ filter (>= b) as
  putStrLn $
    if a >= m
      then "Yes"
      else "No"
