powered by
calcN(yt, A1)
decomposeA
data(bell.labs) A.decomp <- decomposeA(bell.labs$A) total.traffic <- calcN(yt=bell.labs$Y[1,], A1=A.decomp$A1) total.traffic == sum(bell.labs$X[1,])
Run the code above in your browser using DataLab