## ----eval=FALSE----------------------------------------------------------
#  # try http:// if https:// URLs are not supported
#  if (!requireNamespace("BiocManager", quietly=TRUE))
#      install.packages("BiocManager")
#  BiocManager::install("iteremoval")

## ------------------------------------------------------------------------
library(iteremoval)
# input two datasets
removal.stat <- feature_removal(SWRG1, SWRG0, cutoff1=0.95, cutoff0=0.95, 
								 offset=c(0.25, 0.5, 2, 4))

## ----eval=TRUE-----------------------------------------------------------
# input SummarizedExperiment object
removal.stat <- feature_removal(SummarizedData, SummarizedData$Group==0, 
								 cutoff1=0.95, cutoff0=0.95, 
								 offset=c(0.25, 0.5, 2, 4))

## ----echo=TRUE-----------------------------------------------------------
ggiteration_trace(removal.stat) + theme_bw()

## ----echo=TRUE-----------------------------------------------------------
features <- feature_prevalence(removal.stat, index=255, hist.plot=TRUE)
features

## ----echo=TRUE-----------------------------------------------------------
feature_screen(features, prevalence=4)