program main
  implicit none
  character(len=100) :: s
  integer :: n, i, r = 0, b = 0

  read *, n
  read *, s

  do i = 1, n
    if (s(i: i) == 'R') then
      r = r + 1
    else
      b = b + 1
    end if
  end do

  if (r > b) then
    print '(A3)', 'Yes'
  else 
    print '(A2)', 'No'
  end if

end program