main = do
    [n, m] <- (map (read::String->Int)).words <$> getLine
    as <- (map (read::String->Float)).words <$> getLine
    if length (filter (>= sum as / fromIntegral (4*m)) as) >= m then putStrLn "Yes"
    else putStrLn "No"