powered by
calcFactornew(obs, ref, m, k, logratioTrim=.3, sumTrim=0.05, doWeighting=TRUE, Acutoff=-1e10)
d <- matrix( rpois(1000, lambda=5), nrow=200 ) m<-rep(1,nrow=200 ) k<-rep(1,nrow=200 ) f <- calcFactornew(d[,2], d[,1], m, k, logratioTrim=.3, sumTrim=0.05, doWeighting=TRUE, Acutoff=-1e10)
Run the code above in your browser using DataLab