To permute kernel matrix using given permutation

cmf_permute_kernels(kernels, permutation, mfields, for_pred = FALSE)

Arguments

kernels

permutation

mfields

for_pred

Details

Value

References

Note

See also

Examples

##---- 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>