R/R01.R

R01 <-
function(s1, s2){
    res <- k1(s1)*k1(s2)
    return(res)
}
dan410/sseigfun documentation built on May 14, 2019, 3:34 p.m.