R语言中lowess回归查看R方的代码

以下是使用R语言中lowess回归查看R方的代码：

# 生成数据
x <- seq(0, 2*pi, length.out = 100)
y <- sin(x) + rnorm(length(x), sd = 0.1)

# 进行lowess回归
fit <- lowess(y ~ x)

# 计算R方
rsq <- 1 - sum((y - fit$y)^2) / sum((y - mean(y))^2)

# 输出R方
cat("R方为：", round(rsq, 4))

希望对你有所帮助！