R/midpoints1.R

Defines functions midpoints1

Documented in midpoints1

midpoints1 <-
function (x) {
    n <- length(x)
mid=rep(0,n)
points <- .C("Points", as.double(x), as.integer(n), mpoint = as.double(mid),PACKAGE="dprep")
points$mpoint
}

Try the dprep package in your browser

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

dprep documentation built on May 29, 2017, 11:01 a.m.