import Data.List

main = do
  str <- getLine
  let [n, m] = map read (words str) ::[Int]
  str <- getLine
  let a = take n $ map read (words str) ::[Int]
  let a' = reverse $ sort a
  let dt =  filter (>= ceiling ((fromIntegral (sum a) ::Float) / (fromIntegral (4*m) ::Float))) a'
  if length dt >= m
    then putStrLn "Yes"
    else putStrLn "No"