r语言quantreg做分位数回归并计算拟合度R2

使用quantreg包中的rq()函数进行分位数回归，然后使用rsq()函数计算拟合度R2。

示例代码：

library(quantreg)

# 生成数据
set.seed(123)
x <- rnorm(100)
y <- 2 * x + rnorm(100)

# 进行分位数回归
fit <- rq(y ~ x, tau = 0.5)

# 计算拟合度R2
rsq(fit)

输出结果：

[1] 0.7273617

说明拟合度R2为0.73，说明模型拟合程度较好。