import qualified Data.Text as T
import qualified Data.Text.IO as T
import qualified Data.Text.Read as T
import qualified Data.IntMap as IM
import Data.List
import Control.Monad

readInput :: IO [Int]
readInput = map (either error fst . T.decimal) . T.words <$> T.getLine

main = do
  [n, m] <- readInput
  items <- readInput
  let total = foldl' (+) 0 items
  if null $ drop m $ filter (\x -> x * m * 4 >= total) items
    then putStrLn "No"
    else putStrLn "Yes"