require(datanugget)
#4-dim small example with cluster stuctures in V3 and V4
X = cbind.data.frame(V1 = rnorm(5*10^3,mean = 5,sd = 2),
V2 = rnorm(5*10^3,mean = 5,sd = 1),
V3 = c(rnorm(3*10^3,sd = 0.3),
rnorm(2*10^3,mean = 2, sd = 0.3)),
V4 = c(rnorm(1*10^3,mean = -8, sd = 1),
rnorm(3*10^3,mean = 0,sd = 1),
rnorm(1*10^3,mean = 7, sd = 1.5)))
#raw data is recommended to be scaled firstly to generate data nuggets for Projection Pursuit
X = as.data.frame(scale(X))
#create data nuggets
my.DN = create.DN(x = X,
R = 500,
delete.percent = .1,
DN.num1 = 500,
DN.num2 = 250,
no.cores = 0,
make.pbs = FALSE)
#refine data nuggets
my.DN2 = refine.DN(x = X,
DN = my.DN,
EV.tol = .9,
min.nugget.size = 2,
max.splits = 5,
no.cores = 0,
make.pbs = FALSE)
#get nugget centers, weights, and scales
nugg = my.DN2$`Data Nuggets`[,2:(ncol(X)+1)]
weight = my.DN2$`Data Nuggets`$Weight
scale = my.DN2$`Data Nuggets`$Scale
#2-dim guided tour by Natural Hermite Index based on data nuggets
guidedTourNugg(nugg,weight,scale,dim = 2,index = "NH",cex = 0.5,max.tries = 15)
#1-dim guided tour by Hole Index based on data nuggets
guidedTourNugg(nugg,weight,scale,dim = 1,index = "Hole",density_max = 4.5)
Run the code above in your browser using DataLab