#include <bits/stdc++.h>
using namespace std;
#include <ext/pb_ds/assoc_container.hpp>
#include <ext/pb_ds/tree_policy.hpp>
using namespace __gnu_pbds;
#define mod 1000000007
#define mod1 998244353
#define lli long long int
#define plli pair<lli, lli>
#define REP(i, a, b) for (lli i = a; i < b; i++)
#define REPI(i, a, b) for (lli i = b - 1; i >= a; i--)
#define F first
#define ldb long double
#define deci(x) fixed << setprecision(x)
#define S second
#define PB push_back
#define DB pop_back
#define MP make_pair
#define MT make_tuple
#define G(a, b) get<a>(b)
typedef vector<plli> vii; // three data type shortcuts. They may look cryptic
typedef vector<lli> vi;

#define o_set tree<int, null_type, less<int>, rb_tree_tag, tree_order_statistics_node_update>
#define o_setlli tree<lli, null_type, less<lli>, rb_tree_tag, tree_order_statistics_node_update>
#define o_multiset tree<int, null_type, std::less_equal<int>, rb_tree_tag, tree_order_statistics_node_update>
#define o_multisetlli tree<plli, null_type, std::less_equal<plli>, rb_tree_tag, tree_order_statistics_node_update>
//member functions :
//1. order_of_key(k) : number of elements strictly lesser than k
//2. find_by_order(k) : k-th element in the set

lli modI(lli a, lli m);
lli gcd(lli a, lli b);
lli powM(lli x, unsigned lli y, unsigned lli m);
void pairsort(int a[], int b[], int n);
void pairsortlli(lli a[], lli b[], lli n);
lli logint(lli x, lli y);
void Miden(lli **p1, lli n);
void Mmult(lli **p1, lli **p2, lli **ans, lli x, lli y, lli z, lli m);
void Mpow(lli **p1, lli **ans, lli n, lli y, lli m);
plli Egcd(lli x, lli y);
#define LSOne(S) (S & (-S))
#define kira ios::sync_with_stdio(0), cin.tie(0), cout.tie(0)

class FenwickTree
{
private:
    vector<lli> ft;

public:
    FenwickTree() {}
    // initialization: n + 1 zeroes, ignore index 0
    FenwickTree(lli n) { ft.assign(n + 1, 0); }

    lli rsq(lli b)
    { // returns RSQ(1, b)
        lli sum = 0;
        for (; b; b -= LSOne(b))
            sum += ft[b];
        return sum;
    }

    lli rsq(lli a, lli b)
    { // returns RSQ(a, b)
        return rsq(b) - (a == 1 ? 0 : rsq(a - 1));
    }

    // adjusts value of the k-th element by v (v can be +ve/inc or -ve/dec)
    void adjust(lli k, lli v)
    { // note: n = ft.size() - 1
        for (; k < (lli)ft.size(); k += LSOne(k))
            ft[k] += v;
    }
};

class UnionFind
{ // OOP style
public:
    vector<lli> p, rank, setSize; // remember: vi is vector<int>
    lli numSets;
    UnionFind(lli N)
    {
        setSize.assign(N, 1);
        numSets = N;
        rank.assign(N, 0);
        p.assign(N, 0);
        for (lli i = 0; i < N; i++)
            p[i] = i;
    }
    lli findSet(lli i) { return (p[i] == i) ? i : (p[i] = findSet(p[i])); }
    bool isSameSet(lli i, lli j) { return findSet(i) == findSet(j); }
    void unionSet(lli i, lli j)
    {
        if (!isSameSet(i, j))
        {
            numSets--;
            lli x = findSet(i), y = findSet(j);
            // rank is used to keep the tree short
            if (rank[x] > rank[y])
            {
                p[y] = x;
                setSize[x] += setSize[y];
            }
            else
            {
                p[x] = y;
                setSize[y] += setSize[x];
                if (rank[x] == rank[y])
                    rank[y]++;
            }
        }
    }
    lli numDisjointSets() { return numSets; }
    lli sizeOfSet(lli i) { return setSize[findSet(i)]; }
};

lli gcd(lli x, lli y)
{
    if (x == 0)
        return y;
    return gcd(y % x, x);
}

plli Egcd(lli x, lli y)
{
    if (x == 0)
        return MP(0, 1);
    plli t = Egcd(y % x, x);
    return MP(t.S - t.F * (y / x), t.F);
}

lli power(lli x, lli y,lli p)
{
    lli res = 1;
    x = x %p;
    while (y > 0)
    {
        if (y & 1)
            res = (res * x)%p;
        //y must be even now
        y = y >> 1; //y=y/2
        x = (x * x) %p;
    }
    return res;
}

lli modI(lli a, lli m)
{
    lli m0 = m, y = 0, x = 1;
    if (m == 1)
        return 0;
    while (a > 1)
    {
        lli q = a / m;
        lli t = m;
        m = a % m;
        a = t;
        t = y;
        y = x - q * y;
        x = t;
    }
    if (x < 0)
        x += m0;
    return x;
}

void pairsort(int a[], int b[], int n)
{
    pair<int, int> v[n];
    REP(i, 0, n)
    {
        v[i].F = a[i];
        v[i].S = b[i];
    }
    sort(v, v + n);
    REP(i, 0, n)
    {
        a[i] = v[i].F;
        b[i] = v[i].S;
    }
}

void pairsortlli(lli a[], lli b[], lli n)
{
    pair<lli, lli> v[n];
    REP(i, 0, n)
    {
        v[i].F = a[i];
        v[i].S = b[i];
    }
    sort(v, v + n);
    REP(i, 0, n)
    {
        a[i] = v[i].F;
        b[i] = v[i].S;
    }
}

lli logint(lli x, lli y)
{
    lli ans = 0;
    lli a = 1;
    for (lli i = 0; i <= x; i++)
    {
        if (x < a)
        {
            return ans;
        }
        ans++;
        a *= y;
    }
    return -1;
}

void Miden(lli **p1, lli n)
{
    lli(*x)[n] = (lli(*)[n])p1;
    REP(i, 0, n)
    {
        REP(j, 0, n)
        {
            x[i][j] = 0;
        }
        x[i][i] = 1;
    }
    return;
}

void Mmult(lli **p1, lli **p2, lli **ans, lli x, lli y, lli z, lli m)
{
    lli(*a)[y] = (lli(*)[y])p1;
    lli(*b)[z] = (lli(*)[z])p2;
    lli(*c)[z] = (lli(*)[z])ans;
    REP(i, 0, x)
    {
        REP(j, 0, z)
        {
            c[i][j] = 0;
            REP(k, 0, y)
            {
                c[i][j] += a[i][k] * b[k][j];
                c[i][j] %= m;
            }
        }
    }
    return;
}

void Mpow(lli **p1, lli **ans, lli n, lli y, lli m)
{
    if (y == 0)
    {
        Miden(ans, n);
        return;
    }
    lli t[n][n];
    Mpow(p1, (lli **)t, n, y / 2, m);
    lli z[n][n];
    Mmult((lli **)t, (lli **)t, (lli **)z, n, n, n, m);
    if (y % 2)
    {
        Mmult((lli **)z, p1, ans, n, n, n, m);
    }
    else
    {
        Miden((lli **)t, n);
        Mmult((lli **)z, (lli **)t, ans, n, n, n, m);
    }
    return;
}

/* comparator function in set */
/*
struct cmp {
	bool operator() (const pair<int, int> &a, const pair<int, int> &b) const {
		int lena = a.second - a.first + 1;
		int lenb = b.second - b.first + 1;
		if (lena == lenb) return a.first < b.first;
		return lena > lenb;
	}
};
*/
/* set<pair<lli,lli>,cmp> s; */  

int main()
{
    /*ifstream stdin;
    stdin.open("abc.txt");
    ofstream stdout;
    stdout.open("sorted.out");*/
    /*freopen("test.txt","r",stdin);
    freopen("output.txt","w",stdout);*/
    kira;
    lli t;
    t=1;
    //cin>>t;
    while(t--)
    {
       lli n;
       cin>>n;
       string s;
       cin>>s;
       lli b[n+1]={0},c[n+1]={0};
       for(lli i=1;i<=s.length();i++)
       {
           if(s[i-1]=='R')
           {
               b[i]=b[i-1]+1;
               c[i]=c[i-1];
           }
           else
           {
               b[i]=b[i-1];
               c[i]=c[i-1]+1;
           }
       }
       lli ans=1e9;
       for(lli i=n;i>=0;i--)
       {
           lli p=max(c[i],b[n]-b[i]);
           ans=min(ans,p);
       }
       cout<<ans<<'\n';
    }
}

Measured memory_bytes: 6896