R/extract_response_matrix.R

Defines functions extract_response_matrix

## File Name: extract_response_matrix.R
## File Version: 0.05

extract_response_matrix <- function(datlist)
{
    m <- length(datlist)
    dat1 <- datlist[[1]]
    ri <- 0*dat1
    for (ii in 2:m){
        ri <- ri + datlist[[ii]] !=dat1
    }
    ri <- ri==0
    return(ri)
}

Try the miceadds package in your browser

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

miceadds documentation built on May 29, 2024, 11:05 a.m.