Description Author(s) Examples
Swissroll data set.
Samuel Gerber
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 | library(rgl)
data(swissroll)
#create 1000 samples with standard parameters
d <- swissroll()
#X contains orginal data
plot3d(d$X)
#Xn conatins data with gaussina noise added orthogoally
plot3d(d$Xn)
#create 2000 samples with different parameters
#phi - number of revolutions
#nstd - std of normal noise added orthogonally
d <- swissroll(2000, nstd = 0.5, height = 5, phi = 2*pi)
plot3d(d$Xn)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.