Publications by Anna Konstorum (
Mofa_2021Dataset_20samplesRemoved
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 (10613 sym/44 pcs) 19 img 2 tbl
Mofa_2021Dataset_20samplesRemoved_batchCorrected
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 (10637 sym/44 pcs) 19 img 2 tbl
mofa_2020Dataset_20samplesRemoved_batchCorrected
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_nobatchcorrection_2020_2021_removed50samples
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 (10464 sym/44 pcs) 19 img 2 tbl
mofa_50sampleRemoved_2020_2021
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 (10461 sym/44 pcs) 19 img 2 tbl
Publish Document
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
Document
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 (10530 sym/44 pcs) 19 img 2 tbl
Mofa_correctedVersion
Load libraries suppressPackageStartupMessages({library(MOFA2) library(kableExtra) library(data.table) library(ggplot2) library(tidyverse) library(here)}) Load data and Generate Mofa object newDf <- readRDS(here("./data/master_normalized_data_challenge2_train.RDS")) set.seed(1) knitr::opts_chunk$set(warning = FALSE, message = FALSE) add_cols <- fu...
397 sym R (9460 sym/45 pcs) 19 img 2 tbl
MOFA
Load libraries suppressPackageStartupMessages({library(MOFA2) library(kableExtra) library(data.table) library(ggplot2) library(tidyverse) library(here)}) Load data and Generate Mofa object knitr::opts_chunk$set(warning = FALSE, message = FALSE) add_cols <- function(df, cols) { add <- cols[!cols %in% names(df)] if(length(add) != 0) df[add] <- ...
333 sym R (8630 sym/39 pcs) 14 img 2 tbl
Trivial Models
Setup: Load libraries and helper functions suppressPackageStartupMessages({ library(verification) library(pROC) library(discretefit) library(dplyr) library(ggplot2) library(tidyr) library(tidyverse) library(corrplot) library(data.table) library(readr) library(kableExtra) library(glmnet) library(here) library(kableExtra) ...
1547 sym R (14794 sym/15 pcs) 1 img 2 tbl