R/cabe.R

Defines functions cabe

cabe <-
function(dx){
  nf=length(dx)
  nr=sapply(dx,length)
  r1=cumprod(nr)
  repes=r1[length(r1)]/r1
  cabf=mapply(dx,repes,r1[length(r1)],FUN=function(x,y,z) rep(rep(x,each=y),z/(length(x)*y)))
  return(cabf)
}

Try the tablaxlsx package in your browser

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

tablaxlsx documentation built on May 31, 2023, 8:51 p.m.