parseInt(x)=parse(Int,x)
parseMap(x::Array{SubString{String},1})=map(parseInt,x)

function main()
	n = reqadline() |> parseInt
	s = chomp(readline())
	r = 0
	b = 0
	for i in 1:n
		if s[i] == 'R'
			r += 1
		else
			b += 1
		end
	end
	println(r>b?"Yes":"No")
end
main()