program main
  implicit none
  integer :: N
  character(len=100) :: s
  integer :: i
  integer :: n_r,n_s
  read(*,*) N
  read(*,*) s(1:N)
  n_r = 0
  n_s = 0
  do i = 1,N
     if (s(i:i) == 'R') then
        n_r = n_r + 1
     else
        n_s = n_s + 1
     end if
  end do
  if (n_r > n_s) then
     write(*,'(a)') 'Yes'
  else
     write(*,'(a)') 'No'
  end if
end program main
