Indicator kernel matrix predictor
cmf_indicator_kernel_matrix_pred(mdb1, mdb2, alpha, syb_type, verbose=1)
mb1 | |
---|---|
mb2 | |
alpha | |
syb_type | |
verbose | 1 |
##---- Should be DIRECTLY executable !! ---- ##-- ==> Define data, use random, ##-- or do help(data=index) for the standard data sets. ## The function is currently defined as cmf_indicator_kernel_matrix_pred <- function(mdb1, mdb2, alpha, syb_type, verbose=1) { nmol1 <- length(mdb1) nmol2 <- length(mdb2) gram <- matrix(0, nmol1, nmol2) for (imol1 in 1:nmol1) { mol1 <- mdb1[[imol1]] for (imol2 in 1:nmol2) { mol2 <- mdb2[[imol2]] gram[imol1,imol2] <- cmf_indicator_kernel(mol1, mol2, alpha, syb_type) } if (verbose) {cat("."); flush.console()} } if (verbose) {cat("\n"); flush.console()} gram }