R语言计算f95 - rqRevenue ~ log1pMale_app + log1pFemale_app + Male_40 + Female_34 + Grade + Level + Seasonality + theme + Year data = df_sub1 tau = 95 ci = T的pseudo-RR2

由于R语言中没有内置的函数可以直接计算pseudo-RR2，我们需要使用以下公式来计算：

pseudo-RR2 = 1 - (sum(residuals(f95)^2) / sum((fitted(f95) - mean(df_sub1$Revenue))^2))

其中，f95是使用rq函数拟合的模型，residuals(f95)返回模型的残差，fitted(f95)返回模型的拟合值，mean(df_sub1$Revenue)返回Revenue的平均值。

代码如下：

pseudo_RR2 <- 1 - (sum(residuals(f95)^2) / sum((fitted(f95) - mean(df_sub1$Revenue))^2))

注：该代码需要在拟合f95模型后执行。