move variance_ratio to R folder