Program exawizardsB

integer n,x,y,i
character(100) s

read(*,*) n
read(*,*) s

x=0
y=0

do i=1,n
 if (s(i:i)=="R") then
  x=x+1
 else
  y=y+1
 end if
end do
 
if (x>y) then
 write(*,*) 'Yes'
else
 write(*,*) 'No'
end if

stop
end