let reads f = stdin.ReadLine().Split() |> Array.map f

let [|N; M|] = reads int
let A = reads int
let S = Array.sum A
printfn (if A |> Array.filter (fun x -> x * 4 * M >= S) |> Array.length >= M then "Yes" else "No")