solver::String->String
solver str = let l = length str in
             let r = length (filter ('R'==) str) in
             if r > l - r then "Yes\n" else "No\n"

main::IO()
main=do
  _<-getLine
  putStr.solver=<<getLine
