Nothing
params <-
list(EVAL = TRUE)
## ---- SETTINGS-knitr, include=FALSE-------------------------------------------
stopifnot(require(knitr))
opts_chunk$set(
eval = if (isTRUE(exists("params"))) params$EVAL else FALSE
, dev = "png"
)
## ----amputeData,message=FALSE-------------------------------------------------
require(miceRanger)
set.seed(1)
# Load data
data(iris)
# Ampute the data. iris contains no missing values by default.
ampIris <- amputeData(iris,perc=0.25)
miceObj <- miceRanger(
ampIris
, m=6
, verbose=FALSE
)
## ----plotDistributions--------------------------------------------------------
plotDistributions(miceObj,vars='allNumeric')
## ----plotCorrelations---------------------------------------------------------
plotCorrelations(miceObj,vars='allNumeric')
## ----plotVarConvergence-------------------------------------------------------
plotVarConvergence(miceObj,vars='allNumeric')
## ----plotModelError-----------------------------------------------------------
plotModelError(miceObj,vars='allNumeric')
## ----plotVarImportance--------------------------------------------------------
plotVarImportance(miceObj)
## ----plotImputationVariance, fig.height = 4, fig.width = 8--------------------
plotImputationVariance(miceObj,ncol=2,widths=c(5,3))
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.