## ----setup, include = FALSE----------------------------------------------
knitr::opts_chunk$set(collapse = TRUE,
                      cache = FALSE,
                      comment = "#>")

## ----packageLoad, message=FALSE------------------------------------------
library(tidyverse)
library(pathwayPCA)

## ----tumour_data_load----------------------------------------------------
data("colonSurv_df")
colonSurv_df

## ----pathway_list_load---------------------------------------------------
data("colon_pathwayCollection")
colon_pathwayCollection
str(colon_pathwayCollection$pathways, list.len = 10)

## ----data_types----------------------------------------------------------
# Original integer column
head(colonSurv_df$OS_event, 10)

# Integer to Character
head(as.character(colonSurv_df$OS_event), 10)

# Integer to Logical
head(as.logical(colonSurv_df$OS_event), 10)

# Integer to Factor
head(as.factor(colonSurv_df$OS_event), 10)

## ----create_OmicsSurv_object---------------------------------------------
colon_OmicsSurv <- CreateOmics(
  assayData_df = colonSurv_df[, -(2:3)],
  pathwayCollection_ls = colon_pathwayCollection,
  response = colonSurv_df[, 1:3],
  respType = "surv"
)

## ----print_colonOmicsSurv------------------------------------------------
colon_OmicsSurv

## ----create_OmicsReg_object----------------------------------------------
colon_OmicsReg <- CreateOmics(
  assayData_df = colonSurv_df[, -(2:3)],
  pathwayCollection_ls = colon_pathwayCollection,
  response = colonSurv_df[, 1:2],
  respType = "reg"
)
colon_OmicsReg

## ----create_OmicsCateg_object--------------------------------------------
colon_OmicsCateg <- CreateOmics(
  assayData_df = colonSurv_df[, -(2:3)],
  pathwayCollection_ls = colon_pathwayCollection,
  response = colonSurv_df[, c(1, 3)],
  respType = "categ"
)
colon_OmicsCateg

## ----getAssay_get--------------------------------------------------------
getAssay(colon_OmicsSurv)

## ----getAssay_set--------------------------------------------------------
getAssay(colon_OmicsSurv) <- colonSurv_df[, (3:12)]

## ----view_new_colon_OS---------------------------------------------------
colon_OmicsSurv

## ----getAssay_set2-------------------------------------------------------
getAssay(colon_OmicsSurv) <- colonSurv_df[, -(1:2)]

## ----inspect_updated_pathwayCollection-----------------------------------
getPathwayCollection(colon_OmicsSurv)

## ----sessionDetails------------------------------------------------------
sessionInfo()