R/midpoints.r

In FREddyPro: Post-Processing EddyPro Full Output File

Defines functions midpoints

Documented in midpoints

midpoints <-
function (x, dp = 2) 
{
    lower <- as.numeric(gsub(",.*", "", gsub("\\(|\\[|\\)|\\]", 
        "", x)))
    upper <- as.numeric(gsub(".*,", "", gsub("\\(|\\[|\\)|\\]", 
        "", x)))
    return(round(lower + (upper - lower)/2, dp))
}

Try the FREddyPro package in your browser