main :: IO()
main = do
 [n,m] <- map read . words <$> getLine :: IO[Int]
 ak <- map read . words <$> getLine :: IO[Int]
 let ans = if length (filter (\x -> (4 * x * m) > (sum ak)) ak) >= m then "Yes" else "No"
 putStr $ ans
