# NOT RUN {
## small example
X = cbind.data.frame(rnorm(10^4),
rnorm(10^4),
rnorm(10^4))
suppressMessages({
my.DN = create.DN(x = X,
RS.num = 10^3,
DN.num1 = 500,
DN.num2 = 250,
no.cores = 0,
make.pbs = FALSE)
my.DN2 = refine.DN(x = X,
DN = my.DN,
scale.tol = .9,
shape.tol = .9,
min.nugget.size = 2,
max.nuggets = 1000,
scale.max.splits = 5,
shape.max.splits = 5,
no.cores = 0,
make.pbs = FALSE)
})
my.DN2$`Data Nuggets`
my.DN2$`Data Nugget Assignments`
# }
# NOT RUN {
## large example
X = cbind.data.frame(rnorm(10^6),
rnorm(10^6),
rnorm(10^6),
rnorm(10^6),
rnorm(10^6))
my.DN = create.DN(x = X,
RS.num = 10^5,
DN.num1 = 10^4,
DN.num2 = 2000)
my.DN$`Data Nuggets`
my.DN$`Data Nugget Assignments`
my.DN2 = refine.DN(x = X,
DN = my.DN,
scale.tol = .9,
shape.tol = .9,
min.nugget.size = 2,
max.nuggets = 10000,
scale.max.splits = 5,
shape.max.splits = 5)
my.DN2$`Data Nuggets`
my.DN2$`Data Nugget Assignments`
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab