写一段R语言限制性立方样条图代码

以下是一段简单的R语言限制性立方样条图代码：

library(splines)
x <- seq(0, 10, length=50) # 创建一个长度为50的向量x，范围为0到10
y <- sin(x) + rnorm(length(x), sd=0.2) # 创建一个长度为50的向量y，其中包括正弦函数和一些噪音
cs <- smooth.spline(x, y, df=10) # 使用限制性立方样条平滑数据，df=10表示使用10个自由度
plot(x, y) # 绘制原始数据的散点图
lines(cs, col="red") # 绘制平滑后的曲线，颜色为红色

这段代码将创建一个长度为50的x向量和一个y向量，y向量中包括正弦函数和一些噪音。然后使用smooth.spline()函数将数据平滑处理，使用10个自由度。最后，使用plot()函数绘制原始数据的散点图，并使用lines()函数绘制平滑后的曲线，颜色为红色。