#' Get expected value for given problem and parameters
#'
#' For a given problem and parameters gives the expected value
#'
#' @param problem see \code{\link{LinePickingPDF}}
#' @param parameters the parameter necessary to describe
#' the space given by problem.
#' @return expected value
#' @author Eric Parsonage, Matt Roughan, Jono Tuke
#' @export
#' @useDynLib LinePicking
#' @note September 19 2012
#' @examples
#' LinePickingMedian(problem=0,parameters=10)
LinePickingMedian <-
function(problem=0,parameters){
tmp <- .Call('rLinePickingMedian',
as.integer(problem),
parameters = as.double(parameters))
return(tmp)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.