program main
implicit none
integer :: n, i, m, l
character :: s*100
read(*,*) n
read(*,*) s(1:n)

m = 0
do i = 1 , n
   if( s(i:i) == 'R' ) then
      m = m+1
   else
      l = l+1
   end if
end do

if( m>l) then
   write(*,*) 'Yes'
   stop
else
   write(*,*) 'No'
end if

end program main
