main = do
    [n, m] <- map read . words <$> getLine
    a      <- map read . words <$> getLine :: IO [Float]
    let a_tot = sum a
    let gtbase= (>=) (a_tot / (4 * fromIntegral m))
    let count = length $ filter gtbase a
    putStrLn $ if count >= m then "Yes" else "No"
