## ----setup, include=FALSE----------------------------------------------------- knitr::opts_chunk$set(echo = TRUE) ## ----installation, eval=FALSE------------------------------------------------- # if(!requireNamespace("BiocManager", quietly = TRUE)) # install.packages("BiocManager") # BiocManager::install("RNAsense") ## ----load data, message=TRUE-------------------------------------------------- library(RNAsense) data("MZsox") # load MZsox.RData in variable mydata print(MZsox) mydata <- MZsox ## ----initialization, message=FALSE, eval=TRUE--------------------------------- analyzeConditions <- c("WT", "MZsox") thCount <- 100 nrcores <- 1 library(SummarizedExperiment) #if(Sys.info()[[1]]=="Windows"){nrcores <- 1} # use parallelization only on Linux and Mac mydata <- mydata[seq(1,nrow(mydata), by=4),] vec2Keep <- which(vapply(1:dim(mydata)[1],function(i) !Reduce("&",assays(mydata)[[1]][i,]