function result = rms_radius(r)

result = sqrt( sum( var(r) ) );