More than 5 years have passed since last update.

R > データ操作 > データ作成 > approx() + jitter() > 線形補間 + ノイズ付加

Last updated at 2017-06-15Posted at 2016-09-23

動作環境

RStudio 0.99.903 on Windows 7 pro
R version 3.3.1

スプライン補間ではどうも欲しいサンプルデータを作るのが難しい。

線形補間してノイズを足すことにした。

> x<-c(153,289,575,623,728,733,808,812,894)
> y<-c(653,453,349,454,453,525,526,607,622)
> plot(x,y)

> z<-approx(x,y,n=100)
> plot(z)

> zz<-jitter(z$y, factor=1000)
> plot(z$x,zz)