(define(vr v k)(vector-ref v k))
(define(vs v k a)(vector-set! v k a))
(define(mv n a)(make-vector n a))
(define(vvr v y x X)(vector-ref v(+(* y X)x)))
(define(vvs v y x X a)(vector-set! v(+(* y X)x)a))

(define n(read))
(define s(x->string(read)))
(define r 0)
(define i 0)
(while(< i n)
	(when(char=?(string-ref s i)#\R)(inc! c))
	(inc! i)
)
(print(if(<(- n r)r)"Yes""No"))