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