-- B
local function each_char(s)
    local f = function(_, i)
        i = i + 1
        if i <= #s then
            return i, string.sub(s, i, i)
        end
    end
    return f, nil, 0
end
local N,_ = io.read("n", "l")
local s = io.read("l")
local b,r = 0,0
for k,c in each_char(s) do
    if c == 'R' then
        r = r + 1
    else
        b = b + 1
    end
end
print(r>b and 'Yes' or 'No')