program B2019
  implicit none
  integer N, red, blue, i 
  character(100) s
  character(1) R, spl
  R = 'R'
  read(*, *) N
  read(*, *) s
  s = trim(s)
  red = 0
  blue = 0
  do i = 1, N
    spl = s(i:i)
    if (spl == R) then
      red = red + 1
    else
      blue = blue + 1
    end if
  end do

  if (red>blue) then
    write(*, '(A)') 'Yes'
  else
    write(*, '(A)') 'No'
  end if
end program B2019