Simple Imputation (simputation)

Published by onesixx on 21-03-2921-03-29

https://cran.r-project.org/web/packages/simputation/simputation.pdf

# https://cran.r-project.org/web/packages/simputation/simputation.pdf
dd <- as.data.table(iris)
irisNA <- copy(dd)
irisNA[1:3, 'Sepal.Length'] <- NA

my_model <- lm(Sepal.Length ~ Sepal.Width + Species, data=dd)

irisNA %>% impute(Sepal.Length ~ my_model)

# https://cran.r-project.org/web/packages/simputation/simputation.pdf
data(iris)
dd <- as.data.table(iris)

irisNA <- copy(as.data.table(iris))
irisNA[1:4, "Sepal.Length"] <- NA
irisNA[3:7, "Sepal.Width"]  <- NA
irisNA %>% head(10)


irisNA %>% impute_lm(Sepal.Length ~ Sepal.Width + Species)                  # impute a single variable (Sepal.Length)
irisNA %>% impute_rlm(Sepal.Length + Sepal.Width ~ Species + Petal.Length)  # impute both Sepal.Length and Sepal.Width, using robust linear regression
irisNA %>% impute_rlm(Sepal.Length + Sepal.Width ~ Species + Petal.Length + Petal.Width) 

irisNA %>% impute_median(Sepal.Length ~ Species)
irisNA %>% impute_median(.-Species    ~ Species)
irisNA %>% impute_median(Sepal.Length+Sepal.Width+Petal.Length+Petal.Width  ~ Species) # same above

irisNA %>% impute_knn(Sepal.Length ~ Species, 
						pool = c("complete", "univariate", "multivariate"),
						k = 5,
						backend = getOption("simputation.hdbackend", default = c("simputation", "VIM")))
irisNA %>% impute_knn(Sepal.Length + Sepal.Width  ~ Species, 
						pool = c("complete", "univariate", "multivariate"),
						k = 5,
						backend = getOption("simputation.hdbackend", default = c("simputation", "VIM")))

Simple Imputation (simputation)

onesixx

Reshaping

seq()

Reshaping

group , cycle by rule

Reshaping

match

Simple Imputation (simputation)

onesixx

Related Posts

Reshaping

seq()

Reshaping

group , cycle by rule

Reshaping

match