#' compute the mle field
#'
#' the product of the von-Mises densities - or maybe the sum of the logs
#'
mlefield <- function(r,xy,bearing,kappa){
require(circular)
### initialise grid to 1
### for each bearing
### compute angle at each grid cell
### compute dvonmises at each grid cell
### multiply up
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.