Error saying ERROR unused argument InformationCriterion InformationCriterion j

Question

I am trying to run example which is given in "rebmix-help pdf". It use galaxy dataset and here is the code

library(rebmix)
devAskNewPage(ask = TRUE)
data("galaxy")
write.table(galaxy, file = "galaxy.txt", sep = "\t",eol = "\n", row.names = FALSE,    col.names = FALSE)
REBMIX <- array(list(NULL), c(3, 3, 3))
Table <- NULL
Preprocessing <- c("histogram", "Parzen window", "k-nearest neighbour")
InformationCriterion <- c("AIC", "BIC", "CLC")
pdf <- c("normal", "lognormal", "Weibull")
K <- list(7:20, 7:20, 2:10)
for (i in 1:3) {
for (j in 1:3) {
for (k in 1:3) {
REBMIX[[i, j, k]] <- REBMIX(Dataset = "galaxy.txt",
Preprocessing = Preprocessing[k], D = 0.0025,
cmax = 12, InformationCriterion = InformationCriterion[j],
pdf = pdf[i], K = K[[k]])
if (is.null(Table))
Table <- REBMIX[[i, j, k]]$summary
else Table <- merge(Table, REBMIX[[i, j,k]]$summary, all = TRUE, sort = FALSE)
    }
 }
}

It is giving me error

ERROR: unused argument (InformationCriterion = InformationCriterion[j]) 

Answer 1

Brief invoke REBMIX as :

REBMIX[[i, j, k]] <- REBMIX(Dataset = "galaxy.txt",
    Preprocessing = Preprocessing[k], D = 0.0025,
    cmax = 12, Criterion = InformationCriterion[j],
    pdf = pdf[i], K = K[[k]])