R/R1.R

R1 <-
function(s1, s2){
    res <- k2(s1)*k2(s2) - k4(abs(s1-s2))
}
dan410/sseigfun documentation built on May 14, 2019, 3:34 p.m.