cmf_permute_kernels: To permute kernel matrix using given permutation
In conmolfields: Continuous molecular fields

To permute kernel matrix using given permutation

1	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
  }