Fourpeaks Function

Share:

Description

Swissroll data set.

Author(s)

Samuel Gerber

Examples

 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)