let rec count list p =
  match list with
  | [] -> 0
  | first :: rest ->
      if p first then 1 + count rest p else count rest p

let () = Scanf.scanf "%d %d\n" @@ fun n m -> 
  let alist = List.init n (fun _ -> Scanf.scanf " %d" Fun.id) in
  let sum = List.fold_left (+) 0 alist in
  let cnt = count alist (fun elm -> 4*m*elm >= sum) in
  print_endline @@
  if cnt >= m then "Yes" else "No"