intToFloat :: Int -> Float
intToFloat i = (fromIntegral(i::Int)) :: Float

effectiveVotes :: [Int] -> Float -> Int
effectiveVotes [] effective = 0
effectiveVotes (x:xs) effective | (intToFloat x) < effective = effectiveVotes xs effective
                                | otherwise = 1 + effectiveVotes xs effective

main = do
    [n,m] <- map read <$> (words <$> getLine) :: IO [Int]
    ai <- map read <$> (words <$> getLine) :: IO [Int]
    let votes = sum ai
    let effVotes = effectiveVotes ai ((intToFloat votes) / (4.00 * (intToFloat m)))
    if effVotes >= m
        then putStrLn "Yes"
        else putStrLn "No"