当前位置: 首页> 财经> 产业 > 招商网站有哪些_网站推广途径及要点_创建站点的步骤_友情链接交换平台源码

招商网站有哪些_网站推广途径及要点_创建站点的步骤_友情链接交换平台源码

时间:2025/7/10 20:55:40来源:https://blog.csdn.net/qq_59554113/article/details/145909897 浏览次数:0次
招商网站有哪些_网站推广途径及要点_创建站点的步骤_友情链接交换平台源码
# 导包library(ggplot2)library(stats)# 创建数据集set.seed(233)x <- seq(0, 10, by = 0.2) #0-10步长为0.2y <- sin(x) + rnorm(length(x), mean = 0, sd = 0.2) #均值为0、标准差为0.2的正态分布data <- data.frame(x, y)# 设置局部加权回归带宽参数bandwidth <- 0.3# 执行局部加权回归loess_fit <- loess(y ~ x, data = data, span = bandwidth)# 输出回归方程summary(loess_fit)# 创建一个新数据集用于绘图new_data <- data.frame(x = seq(0, 10, by = 0.05))# 预测回归值predicted_values <- predict(loess_fit, newdata = new_data)# 创建图形ggplot(data, aes(x, y)) +geom_point() +               # 生成数据点geom_line(data = new_data, aes(x, predicted_values), color = "blue") + #生成线ggtitle("局部加权回归拟合") +xlab("X轴") +ylab("Y轴")# 计算均方误差mse <- mean((predicted_values - data$y)^2) #$y表示取data中y的值cat("均方误差:", mse, "\n")

关键字:招商网站有哪些_网站推广途径及要点_创建站点的步骤_友情链接交换平台源码

版权声明:

本网仅为发布的内容提供存储空间,不对发表、转载的内容提供任何形式的保证。凡本网注明“来源:XXX网络”的作品,均转载自其它媒体,著作权归作者所有,商业转载请联系作者获得授权,非商业转载请注明出处。

我们尊重并感谢每一位作者,均已注明文章来源和作者。如因作品内容、版权或其它问题,请及时与我们联系,联系邮箱:809451989@qq.com,投稿邮箱:809451989@qq.com

责任编辑: