请教下大神：怎么用R评价插值的方法？（数据被分成两组，一组用于插值，另一组用于对第一组插值的结果进行检验和评价）
0
没有找到相关结果
重要提示：提问者不能发表回复，可以通过评论与回答者沟通，沟通后可以通过编辑功能完善问题描述，以便后续其他人能够更容易理解问题.
没有找到相关结果
推荐一份编程学习资源，包含了各类编程语言学习进阶路线图、视频教程、配套书籍文档、数百份面经，各大厂面试真题。编程语言包括：Java、前端、PHP、Python、Linux运维、软件测试、数据解构与算法、C语言、go语言等
微信扫码关注公众号，发送 "编程"获取资源
1 个回复
marxsong 2016-10-25 回答
赞同来自:
x=c(0,2,5)
y=c(1,4,29)
xout=seq(0,6,0.5)
s1=spline(x,y,xout=xout,method='natural')
s2=spline(x,y,xout=xout,method='fmm')
s3=spline(x,y,xout=xout,method='hyman')
cols <- c('natural'='red','fmm'='blue','hyman'='green')
library(ggplot2)
ggplot(as.data.frame(s1),aes(x,y)) +
geom_line(size=1.2, aes(colour='natural')) +
geom_line(data=as.data.frame(s2),size=1.2, aes(colour='fmm')) +
geom_line(data=as.data.frame(s3),size=1.2, aes(colour='hyman')) +
geom_point(data=data.frame(x=x,y=y),size=4) +
scale_colour_manual(name='spline', values=cols,
guide = guide_legend(override.aes=aes(fill=NA)))