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) #