R/obsprof.wprof.R

Defines functions obsprof.wprof

Documented in obsprof.wprof

obsprof.wprof <-
function(prof) {
    res <- list()
    wh <- which(prof$freq > 0)
    res <- list(profiles=prof$profiles[wh,], freq=prof$freq[wh])
    class(res) <- "wprof"
    return(res)
}

Try the parsec package in your browser

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

parsec documentation built on May 2, 2019, 6:08 p.m.