r语言分位数拟合回归rq并计算拟合度R方

首先，需要加载rq包和数据集。下面以mtcars数据为例：

library(rq)
data(mtcars)

然后，用rq函数进行分位数回归拟合。下面以中位数为例，即0.5分位数：

fit <- rq(mpg ~ wt, data = mtcars, tau = 0.5)

其中，mpg为因变量，wt为自变量，tau为分位数。

接下来，可以用summary函数查看拟合结果：

summary(fit)

其中，Estimate为回归系数，Std. Error为标准误差，t-value为t值，Pr(>|t|)为p值。

最后，可以用rsq函数计算拟合度R方：

rsq(fit)

这样就可以得到分位数回归拟合的R方值了。