To extract subkernels

cmf_extract_subkernels(kernels, ind_rows, ind_cols, mfields)

Arguments

kernels

ind_rows

ind_cols

mfields

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, ind_rows, ind_cols, mfields) { alphas <- kernels$alphas nfields <- length(mfields) subkernels <- list() subkernels$alphas <- alphas for (f in 1:nfields) { field <- mfields[f] subkernels[[field]] <- list() for (ialpha in 1:length(alphas)) { subkernels[[field]][[ialpha]] <- kernels[[field]][[ialpha]][ind_rows, ind_cols] } } subkernels }
#> function (kernels, ind_rows, ind_cols, mfields) #> { #> alphas <- kernels$alphas #> nfields <- length(mfields) #> subkernels <- list() #> subkernels$alphas <- alphas #> for (f in 1:nfields) { #> field <- mfields[f] #> subkernels[[field]] <- list() #> for (ialpha in 1:length(alphas)) { #> subkernels[[field]][[ialpha]] <- kernels[[field]][[ialpha]][ind_rows, #> ind_cols] #> } #> } #> subkernels #> } #> <environment: 0x10e097aa8>