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