#devtools::load_all(".") # only used in place of dst when testing with R-devel library(dst) knitr::opts_chunk$set(echo = TRUE)
This is a template of bca.
tt_SSMx <- matrix(c(), nrow = n, ncol = m, byrow = TRUE) m_DSMx <- matrix(c(), nrow = n, ncol = 1) cnames_SSMx <- c("", "") varnames_SSMx <- "" idvar_SSMx <- i DSMx <- bca(tt_SSMx, m_DSMx, cnames = cnames_SSMx, idvar = idvar_SSMx, varnames = varnames_SSMx)
This is a template of bcaRel.
tt_SSMy <- matrix(c(), nrow = n, ncol = m, byrow = TRUE, dimnames = list(NULL, c("",""))) spec_DSMy <- matrix(c(), nrow = n, ncol = 2) infovar_SSMy <- matrix(c(), nrow = k, ncol = 2) varnames_SSMy <- c("", "") relnb_SSMy <- j DSMy <- bcaRel(tt_SSMy, spec_DSMy, infovar_SSMy, varnames_SSMy, relnb_SSMy)
This is a template of extmin.
DSMx_uproj <- extmin(DSMx, DSM1)
This is a template of dsrwon.
DSMx_uproj_xDSCn_DSMy <- dsrwon(DSMx_uproj, DSM1)
This is a template of elim.
DSMx_uproj_xDSCn_DSMy_dproj <- elim(DSMx_uproj_xDSCn_DSMy, i)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.