R/clust.ratio.ppn.r

Defines functions clust.ratio.ppn

#' @export
clust.ratio.ppn<-function(dat,cond)
{
  mu.x<-dat$mu.x
  xbar<-apply(dat$x.value,1,mean)
  apply((eval(parse(text=paste("dat$y.value",cond,sep="")))*1)*mu.x/xbar,1,mean)
}
david-borchers/sampling documentation built on Sept. 17, 2022, 7:54 a.m.