module Main where

import           Control.Monad
import           Data.List
import           Data.List.Split
import           Data.Array.IO
import qualified Data.Vector as V

main :: IO ()
main = do
  n <- getLine
  x <- getLine
  let red = (length . filter (== 'R')) x
      blue = length x - red
  putStrLn
    $ if red > blue
      then "Yes"
      else "No"