R/proFreq.R

Defines functions proFreq

Documented in proFreq

# proFreq <- function(profiles, population, popwght=rep(1, nrow(population))) {
proFreq <- function(profiles, population) {
    popwght <- rep(1, nrow(population)) # parametro futuro per introdurre i pesi nella popolazione
    cnt <- popelem(profiles, population)
    nm <- names(profiles$freq)
    profiles$freq <- sapply(1:length(nm), function(i) sum((cnt == i)*popwght, na.rm = TRUE))
    names(profiles$freq) <- nm
    return(profiles)
}

Try the parsec package in your browser

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

parsec documentation built on Aug. 19, 2023, 5:07 p.m.