Skip to content

Get Ready for the Retake

Data Download

Get the data for the data analysis. There are two different options to get and load the data.

  • A - Import data from a R object (easy)
  • B - Import data from text files (a bit more difficult)

You do not need both! Choose the option you prefer.

## clean/reset environment 
rm(list = ls()) 

## Your current (working) directory
getwd()

## Change working directory (if needed)
# setwd("my/folder")

## Create new working directory (if needed)
# dir.create("Apple"); setwd("Apple")

Version A

## URL (Uniform Resource Locator)
apple.url <- "https://www.gdc-docs.ethz.ch/Varia/Wassermann2019/data/Apple_2019.RData"

## Download data (R data image file)
utils::download.file(apple.url, destfile = "Wassermann_2019.RData")

## Load and verify the apple data
load("Wassermann_2019.RData")
apple

# What you should get:
#
# phyloseq-class experiment-level object
# otu_table()   OTU Table:         [ 3128 taxa and 48 samples ]
# sample_data() Sample Data:       [ 48 samples by 7 sample variables ]
# tax_table()   Taxonomy Table:    [ 3128 taxa by 7 taxonomic ranks ]
# phy_tree()    Phylogenetic Tree: [ 3128 tips and 3127 internal nodes ]

Version B

## Download data (R data image file)
apple.url <- "https://www.gdc-docs.ethz.ch/Varia/Wassermann2019/data/Wassermann2019.zip"
utils::download.file(apple.url, destfile = "Wassermann2019.zip")
unzip("Wassermann2019.zip")
file.remove("Wassermann2019.zip")
list.files()

## Package you need
library(phyloseq) # > https://bioconductor.org/packages/release/bioc/html/phyloseq.html 

## Phyloseq Import
otu  <- "pApple_MiSeq250_16S_OTU_Count_Sintax.txt"
map  <- "pApple_MiSeq250_16S_MapFile.txt"
tree <- "pApple_MiSeq250_16S_OTU_MSA.tre"
# ref  <- "pApple_MiSeq250_16S_OTU.fa"

apple <- import_qiime(otufilename = otu, mapfilename = map, treefilename = tree)
apple

What you should get:
#
# phyloseq-class experiment-level object
# otu_table()   OTU Table:         [ 3128 taxa and 48 samples ]
# sample_data() Sample Data:       [ 48 samples by 7 sample variables ]
# tax_table()   Taxonomy Table:    [ 3128 taxa by 7 taxonomic ranks ]
# phy_tree()    Phylogenetic Tree: [ 3128 tips and 3127 internal nodes ]

R Scripts (working on it)

You also have the choice between an R script or and R-Markdown version. If you are not familiar with R-Markdown start with the R script.

## R Script for Re-Analysis
script.url <- "https://www.gdc-docs.ethz.ch/Varia/Wassermann2019/scripts/Wassermann2019.R"
utils::download.file(script.url, destfile = "Wassermann2019.R")
file.edit("Wassermann2019.R")

Careful! With R-Markdown, the working directory is defined by the location of the Rmd file and should not be changed.

## R-Markdown Script for Re-Analysis
md.url <- "https://www.gdc-docs.ethz.ch/Varia/Wassermann2019/scripts/Wassermann2019.Rmd"
utils::download.file(md.url, destfile = "Wassermann2019.Rmd")
file.edit("Wassermann2019.Rmd")