let _ =
  let n = Scanf.scanf "%d\n" (fun n -> n) in
  let s = Scanf.scanf "%s\n" (fun s -> s) in
  let r, b = ref 0, ref 0 in
  for i = 0 to (n-1) do
    let c = String.get s i in
    if c = 'R' then r := !r + 1;
    if c = 'B' then b := !b + 1;
  done;
  (if !r > !b then "Yes" else "No") |> print_string