import qualified Data.Vector.Unboxed as VU
import qualified Data.Vector.Unboxed.Mutable as VUM
import qualified Data.ByteString.Char8 as BS
import Control.Monad
import Data.List
import Data.Char

main :: IO ()
main = do
    (n,m) <- (\vec -> (vec VU.! 0, vec VU.! 1)) . VU.unfoldrN 2 readInt <$> BS.getLine
    as <- unfoldr (BS.readInt . BS.dropWhile isSpace) <$> BS.getLine
    let aList = sortBy (\j k -> compare k j) as
    putStrLn $ if (4*m*(aList !! (m-1))) >= sum aList then "Yes" else "No"

readInt :: BS.ByteString -> Maybe (Int,BS.ByteString)
readInt = BS.readInt . BS.dropWhile isSpace