To permute kernel matrix using given permutation
cmf_permute_kernels(kernels, permutation, mfields, for_pred = FALSE)
kernels | |
---|---|
permutation | |
mfields | |
for_pred |
##---- Should be DIRECTLY executable !! ---- ##-- ==> Define data, use random, ##-- or do help(data=index) for the standard data sets. ## The function is currently defined as function (kernels, permutation, mfields, for_pred = FALSE) { alphas <- kernels$alphas nfields <- length(mfields) permuted_kernels <- list() permuted_kernels$alphas <- alphas for (f in 1:nfields) { field <- mfields[f] permuted_kernels[[field]] <- list() for (ialpha in 1:length(alphas)) { if (for_pred) permuted_kernels[[field]][[ialpha]] <- kernels[[field]][[ialpha]][, permutation] else permuted_kernels[[field]][[ialpha]] <- kernels[[field]][[ialpha]][permutation, permutation] } } permuted_kernels }#> function (kernels, permutation, mfields, for_pred = FALSE) #> { #> alphas <- kernels$alphas #> nfields <- length(mfields) #> permuted_kernels <- list() #> permuted_kernels$alphas <- alphas #> for (f in 1:nfields) { #> field <- mfields[f] #> permuted_kernels[[field]] <- list() #> for (ialpha in 1:length(alphas)) { #> if (for_pred) #> permuted_kernels[[field]][[ialpha]] <- kernels[[field]][[ialpha]][, #> permutation] #> else permuted_kernels[[field]][[ialpha]] <- kernels[[field]][[ialpha]][permutation, #> permutation] #> } #> } #> permuted_kernels #> } #> <environment: 0x1089228e8>