Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- mytable <- function(...) {
- tab <- ftable(...)
- prop <- prop.table(x = tab,
- margin = 2) * 100
- bind <- cbind(as.matrix(x = tab),
- as.matrix(x = prop))
- margin <- addmargins(A = bind,
- margin = 1)
- round(x = margin,
- digits = 1)}
- # dummy example
- mytable(formula = wool + tension ~ breaks,
- data = warpbreaks)
- A_L A_M A_H B_L B_M B_H A_L A_M A_H B_L B_M B_H
- 10 0 0 1 0 0 0 0.0 0.0 11.1 0.0 0.0 0.0
- 12 0 1 0 0 0 0 0.0 11.1 0.0 0.0 0.0 0.0
- 13 0 0 0 0 0 1 0.0 0.0 0.0 0.0 0.0 11.1
- 14 0 0 0 1 0 0 0.0 0.0 0.0 11.1 0.0 0.0
- 15 0 0 1 0 0 2 0.0 0.0 11.1 0.0 0.0 22.2
- ...
- Sum 9 9 9 9 9 9 100.0 100.0 100.0 100.0 100.0 100.0
- # dummy example
- mytable(formula = wool + tension ~ breaks,
- data = warpbreaks,
- subset = breaks < 20)
- Error in eval(substitute(subset), data, env) :
- ..3 used in an incorrect context, no ... to look in
- mytable <- function(formula,
- data,
- subset) ftable(formula = formula,
- data = data,
- subset = subset)
- mytable(formula = wool + tension ~ breaks,
- data = warpbreaks,
- subset = breaks < 20)
- Error in xj[i] : invalid subscript type 'closure'
- # function 1
- mytable <- function(...) {
- do.call(what = ftable,
- args = as.list(x = match.call()[-1]))
- #etc
- }
- # function 2
- mytable <- function(...) {
- mc <- match.call()
- mc[[1]] <- quote(expr = ftable)
- eval(expr = mc)
- # etc
- }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement