let [|n; m|] = stdin.ReadLine().Split() |> Array.map int
let a, s = stdin.ReadLine().Split() |> Array.map int |> fun x -> x, Array.sum x
if ((a |> Array.filter (fun x -> x >= s / (4 * m)) |> Array.length) < m) then "No" else "Yes"
|> printfn "%s"