R/ddirac.R

Defines functions ddirac

ddirac <- function(x, location)
{
  f <- array(data = 0.0, dim = length(x), dimnames = NULL)

  f[x == location] <- 1.0

  rm(list = ls()[!(ls() %in% c("f"))])

  return(f)
} ## ddirac

Try the rebmix package in your browser

Any scripts or data that you put into this service are public.

rebmix documentation built on July 26, 2023, 5:32 p.m.