Author: Peiyuan Zhu
Date: 2024-05-06

# Template

#### Peiyuan Zhu

#### 2024-05-06

This is a template of bca.

#`{r} 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.

#`{r} 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.

#`{r} DSMx_uproj <- extmin(DSMx, DSM1) #`

This is a template of dsrwon.

#`{r} DSMx_uproj_xDSCn_DSMy <- dsrwon(DSMx_uproj, DSM1) #`

This is a template of elim.

#`{r} DSMx_uproj_xDSCn_DSMy_dproj <- elim(DSMx_uproj_xDSCn_DSMy, i) #`