import Data.Bool
import Data.List

half = flip div 2

readInt :: String -> Int
readInt = read
main = do
  n <- readInt<$>getLine
  s <- getLine
  putStrLn $ solve n s

solve :: Int -> String -> String
solve n s = bool "No" "Yes" (judge) where
 judge = half n < length(filter(=='R')s)