PROGRAM ATCODER

implicit none
character(len=100) :: s
integer :: i,count=0,n

read*, n,s

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

if ( count > n/2 ) then
  print'(a)', 'Yes' 
else
  print'(a)', 'No' 
end if

contains
!!!!!! サブルーチンは↓
!!!!!!

END PROGRAM ATCODER
