R/rng.R

rng <-
function (r) 
{
    if (r == 1L) 
        return(0)
    if (r > 1L) {
        x <- vector()
        x <- append(x, (-1))
        for (i in 1:(r - 1)) x <- append(x, ((-1) + (2L/(r - 
            1L)) * i))
        return(x * (r/50L))
    }
    else stop("no negative values")
}

Try the multigraph package in your browser

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

multigraph documentation built on July 9, 2023, 6:15 p.m.