ceildiv a b = div (a + b - 1) b

main = do
    [n, m] <- map read . words <$> getLine :: IO [Int]
    a <- map read . words <$> getLine :: IO [Int]
    putStrLn $ if (length . filter (>= ((sum a) `ceildiv` (4 * m)))) a >= m
                then "Yes"
                else "No"
