Publications by Anna Konstorum (

Document

06.10.2023

Load libraries suppressPackageStartupMessages({ library(MOFA2) library(kableExtra) library(data.table) library(ggplot2) library(tidyverse) library(readr) library(here) library(matrixStats) library(imputeTS) library('ComplexUpset') library("ComplexHeatmap") library(mice) library(VIM) library(impute) library(pvca) library(Biobase) library(lme4)}) Lo...

547 sym R (66778 sym/258 pcs) 39 img

Document

05.10.2023

Load libraries suppressPackageStartupMessages({library(MOFA2) library(kableExtra) library(data.table) library(ggplot2) library(tidyverse) library(readr) library(here) library(matrixStats) library(imputeTS) library('ComplexUpset') library("ComplexHeatmap") library(mice) library(VIM) library(impute) library(pvca) library(Biobase) library(lme4)}) Fin...

491 sym R (52896 sym/218 pcs) 27 img

Document

05.10.2023

Load libraries suppressPackageStartupMessages({library(MOFA2) library(kableExtra) library(data.table) library(ggplot2) library(tidyverse) library(readr) library(here) library(matrixStats) library(imputeTS) library('ComplexUpset') library("ComplexHeatmap") library(mice) library(VIM) library(impute) library(pvca) library(Biobase) library(lme4)}) Fin...

509 sym R (48484 sym/217 pcs) 27 img

imputation2021

03.10.2023

Load libraries suppressPackageStartupMessages({library(MOFA2) library(kableExtra) library(data.table) library(ggplot2) library(tidyverse) library(readr) library(here) library(matrixStats) library(imputeTS) library('ComplexUpset') library("ComplexHeatmap") library(mice) library(VIM) library(impute)}) Find features in other experiments cells <- read...

537 sym R (52144 sym/242 pcs) 29 img

imputationTechniques_2020

27.09.2023

Load libraries suppressPackageStartupMessages({library(MOFA2) library(kableExtra) library(data.table) library(ggplot2) library(tidyverse) library(readr) library(here) library(matrixStats) library(imputeTS) library('ComplexUpset') library("ComplexHeatmap")}) Find features in other experiments cells <- read_tsv(here("./data/2021LD_pbmc_cell_frequenc...

381 sym R (22558 sym/126 pcs) 25 img

BatchCorrectedData

19.09.2023

Load libraries suppressPackageStartupMessages({library(MOFA2) library(kableExtra) library(data.table) library(ggplot2) library(tidyverse) library(here)}) Load data and Generate Mofa object set.seed(1) knitr::opts_chunk$set(warning = FALSE, message = FALSE) add_cols <- function(df, cols) { add <- cols[!cols %in% names(df)] if(length(add) != 0)...

422 sym R (9339 sym/44 pcs) 19 img 2 tbl

BatchCorrected_50samplesRemoved

19.09.2023

Load libraries suppressPackageStartupMessages({library(MOFA2) library(kableExtra) library(data.table) library(ggplot2) library(tidyverse) library(here)}) Load data and Generate Mofa object set.seed(1) knitr::opts_chunk$set(warning = FALSE, message = FALSE) imputationTestingList <- list() add_cols <- function(df, cols) { add <- cols[!cols %in% ...

396 sym R (10506 sym/44 pcs) 19 img 2 tbl

mofa_2020

20.09.2023

Load libraries suppressPackageStartupMessages({library(MOFA2) library(kableExtra) library(data.table) library(ggplot2) library(tidyverse) library(here)}) Load data and Generate Mofa object set.seed(1) knitr::opts_chunk$set(warning = FALSE, message = FALSE) add_cols <- function(df, cols) { add <- cols[!cols %in% names(df)] if(length(add) != 0)...

396 sym R (9430 sym/44 pcs) 19 img 2 tbl

MOFA_dataset2020_20sample removed

20.09.2023

Load libraries suppressPackageStartupMessages({library(MOFA2) library(kableExtra) library(data.table) library(ggplot2) library(tidyverse) library(here)}) Load data and Generate Mofa object set.seed(1) knitr::opts_chunk$set(warning = FALSE, message = FALSE) imputationTestingList <- list() add_cols <- function(df, cols) { add <- cols[!cols %in% ...

396 sym R (10638 sym/44 pcs) 19 img 2 tbl

mofa_2020Dataset_20samplesRemoved

20.09.2023

Load libraries suppressPackageStartupMessages({library(MOFA2) library(kableExtra) library(data.table) library(ggplot2) library(tidyverse) library(here)}) Load data and Generate Mofa object set.seed(1) knitr::opts_chunk$set(warning = FALSE, message = FALSE) imputationTestingList <- list() add_cols <- function(df, cols) { add <- cols[!cols %in% ...

396 sym R (10612 sym/44 pcs) 19 img 2 tbl