# NOT RUN {
X = matrix(abs(rnorm(n = 1000)), ncol = 100, nrow = 10)
X_fbm = bigstatsr::as_FBM(X)$save()
W = chickn::GenerateFrequencies(Data = X_fbm, m = 64, N0 = ncol(X_fbm),
ncores = 1, niter= 3, nblocks = 2, sigma_start = 0.001)$W
SK= chickn::Sketch(X_fbm, W)
D = CDL(Data = X_fbm, K = 10, SK_Data = SK, Frequencies = W,
D = NULL, pos.dic = TRUE, maxEpoch = 3, batch_size = 50,
lambda = 0, learn_rate = 0.1, alpha = 0.9,
gamma = 0, ncores = 2, DIR_tmp = tempdir(),
verbose=0, typeOptim = "Nesterov")$D
# }
Run the code above in your browser using DataLab