TOSTtwo: #' Multiple return assignment #' @description Python style...

Description Usage

Description

'[<-.mreturn' <- function(mreturn, ..., value) vars <- sapply(substitute(list(...)), deparse)[-1] stopifnot(all(make.names(vars) == vars)) # invalid variable names stopifnot(length(value) == length(vars)) # incorrect number of return values for(i in 1:length(vars)) assign(vars[i], value=value[[i]], envir = parent.frame()) return(mreturn)

Usage

1
2
TOSTtwo(m1, m2, sd1, sd2, n1, n2, low_eqbound_d, high_eqbound_d, alpha,
  var.equal)

traversc/trqwe documentation built on Dec. 4, 2020, 4:21 a.m.