import Data.List

main = do
   [n,m] <- map read . words <$> getLine
   as <- map read . words <$> getLine
   let s = sum as
   let tar = (reverse $ sort as) !! (m-1)
   if s > tar*4*m
      then putStrLn "No"
      else putStrLn "Yes"