I've found the closed loop transfer function but I want to know the order of it. So, the idea is to factor the denominator by the highest exponent of s to get an expression like this one: $$ l(s)=g(s)r(s)=k \frac{b_ms^m+b_{m-1}s^{m-1}+\dots+1}{s^N(a_{n-N}s^{n-N}+a_{n-N-1}s^{n-N-1}+\dots+1)} $$
I tried collect, factor terms but none of them seem to work for my purpose.
Collect[FullSimplify[(3.72 10^9 s - 5.73 10^6 s^2 + 57904 s^3 +
2.79 10^11)/((s + 64.4) (270 s + s^2 + 246193) (170 s + s^2 +
37812))], s]