Nothing
#' @title results extraction
#' @description This function extracts estimation results.
#' @param x returned object
#' @param pars Names of extracted parameters. They can be "theta" (person trait estimates), "alpha" (item discrimination parameters), "delta" (item location parameters), "tau" (item threshold parameters), "cor" (correlations among latent traits), "lambda" (regression coefficients linking person covariates to latent traits), "data" (GGUM.Data after deleting respondents who endorse the same response options across all items), "fit" (the stanfit object), and "dimension" (the input row vector mapping each item to each trait). Note that when the model is UM4 in which alpha is fixed to 1, the extracted alpha is a n*1 matrix where n equals to the number of items.
#' @return Selected results output
#' @examples
#' Data <- c(1,4,2,3)
#' Data <- matrix(Data,nrow = 2)
#' deli <- c(1,-1,2,1)
#' deli <- matrix(deli,nrow = 2)
#' ind <- c(1,2)
#' ind <- t(ind)
#' cova <- c(0.70, -1.25)
#' mod <- bmggum(GGUM.Data=Data,delindex=deli,trait=2,ind=ind,option=4,covariate=cova,iter=5,chains=1)
#' alpha <- extract(mod, 'alpha')
#' @export
extract <- function(x, pars){
UseMethod("extract")
}
#' @export
#' @method extract bmggum
extract.bmggum <- function(x, pars){
ret <- switch(pars,
theta=x[["Theta.est"]],
alpha=as.matrix(x[["Alpha.est"]]),
delta=x[["Delta.est"]],
tau=x[["Tau.est"]],
cor=x[["Cor.est"]],
lambda=x[["Lamda.est"]],
data=x[["Data"]],
fit=x[["Fit"]],
dimension=x[["Dimension"]])
ret
}
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.