R/InferenceSd.R

Defines functions InferenceSd

Documented in InferenceSd

InferenceSd <-
function(listSd,niter,burnin){
sigmamean=rep(0,4)

for(i in burnin:niter){
  temp=listSd[[i]]
  sigmamean=sigmamean+temp
}
sigmamean=sigmamean/(niter-burnin)
return(sigmamean)
}

Try the iBATCGH package in your browser

Any scripts or data that you put into this service are public.

iBATCGH documentation built on Oct. 23, 2020, 6:34 p.m.