'[<-.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)
1 2 | TOSTtwo(m1, m2, sd1, sd2, n1, n2, low_eqbound_d, high_eqbound_d, alpha,
var.equal)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.