R/bernstein.r

bernstein <- function (v, x, n) 
{
    return((choose(n, v) * x^v * (1 - x)^(n - v)) * (n + 1))
}

Try the penDvine package in your browser

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

penDvine documentation built on May 2, 2019, 1:06 p.m.