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