program rb
  implicit none
  integer :: N,le,i,R
  character(len=100) :: S

  read(*,*) N
  read(*,*) S
  le=len_trim(S)
  R=0
  do i=1,N
     if(S(i:i).eq.'R') then
        R=R+1
     endif
  enddo
  if(R.gt.(N-R)) then
     write(*,'(a)') 'Yes'
  else
     write(*,'(a)') 'No'
  endif


end program rb
