1 | cmf_multiply_fields(grid1, grid2)
|
grid1 |
|
grid2 |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 | ##---- 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_multiply_fields <- function(grid1, grid2) {
grid <- list()
grid$ngridx <- grid1$ngridx
grid$ngridy <- grid1$ngridy
grid$ngridz <- grid1$ngridz
grid$gridx <- grid1$gridx
grid$gridy <- grid1$gridy
grid$gridz <- grid1$gridz
grid$val <- grid1$val * grid2$val
grid
}
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.