import Control.Monad

main = do 
    [n] <- map read . words <$> getLine :: IO [Int]
    s <- getLine
    let r = length $ filter (=='R') s
    let b = (length s) - r
    if r > b then  putStrLn "Yes" else putStrLn "No"