## small example
X = cbind.data.frame(rnorm(10^3),
rnorm(10^3),
rnorm(10^3))
suppressMessages({
my.DN = create_refine.DN(x = X,
R = 500,
delete.percent = .1,
DN.num1 = 500,
DN.num2 = 250,
no.cores = 0,
make.pbs = FALSE,
EV.tol = .9,
min.nugget.size = 2,
max.splits = 5,
delta = 2)
})
my.DN$`Data Nuggets`
my.DN$`Data Nugget Assignments`
# \donttest{
## large example
X = cbind.data.frame(rnorm(5*10^4),
rnorm(5*10^4),
rnorm(5*10^4),
rnorm(5*10^4),
rnorm(5*10^4))
my.DN = create_refine.DN(x = X,
R = 5000,
delete.percent = .9,
DN.num1 = 10^4,
DN.num2 = 2000,
no.cores = 2,
EV.tol = .9,
min.nugget.size = 2,
max.splits = 5,
delta = 2)
my.DN$`Data Nuggets`
my.DN$`Data Nugget Assignments`
# }
Run the code above in your browser using DataLab