open Array
let n, m = Scanf.scanf "%d %f\n" @@ fun a b -> a, b
let a = init n @@ fun _ -> Scanf.scanf "%f " @@ fun d -> d
let m4 = (fold_left (+.) 0. a) /. (4.*.m)
let ans =
  if (List.length (List.filter (fun x -> x >= m4) (to_list a))) >= int_of_float m
  then "Yes" else "No"
let () = print_endline ans