R/fromlayout.r

fromlayout = function (layout, data) 
{
    results <- list()
    samplenames <- unique(layout[, 1])
    for (i in 1:length(samplenames)) {
        pos.todo <- subset(layout[, 2], layout[, 1] == samplenames[i])
        partial.results <- as.vector(data[pos.todo])
        results[[length(results) + 1]] <- as.numeric(partial.results)
    }
    names(results) <- samplenames
    return(results)
}

Try the SCiAn package in your browser

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

SCiAn documentation built on May 2, 2019, 5:24 p.m.