R/R00.R

R00 <-
function(s1, s2){
    res <- rep(1, max(length(s1), length(s2)))    #this allows for handling of vector arguments
    return(res)
}
dan410/sseigfun documentation built on May 14, 2019, 3:34 p.m.