data(manu_abs)
manu_abs$output <- as.factor(manu_abs$output)
manu_abs$isic <- as.factor(manu_abs$isic)
# default setting with ln()
bpcTabWrapper(manu_abs, obs.ID = "country", row.factor = "output",
col.factor = "isic", value = "value")
# logarithm of base 2
bpcTabWrapper(manu_abs, obs.ID = "country", row.factor = "output",
col.factor = "isic", value = "value", base = 2)
# for base exp(1) is the result similar to tabCoordWrapper():
r <- rbind(c(-1,1,0), c(-1,-1,1))
c <- rbind(c(-1,1,0,0,0), c(-1,-1,1,0,0), c(-1,-1,-1,1,0), c(-1,-1,-1,-1,1))
tabCoordWrapper(manu_abs, obs.ID = "country", row.factor = "output",
col.factor = "isic", value = "value", SBPr = r, SBPc = c)
Run the code above in your browser using DataLab