R/utils.R

utilEnv=new.env()

utilEnv$i4231=c(4L,2L,3L,1L)
utilEnv$d1._1._1.1=c(1, -1, -1, 1)
solve22 = function(x){x[,]=x[i4231]*d1._1._1.1;  x/(x[4L]*x[1L]-x[2L]*x[3L])}
environment(solve22)=utilEnv
gitlongor/QuasiSeq documentation built on May 17, 2019, 5:28 a.m.