# Set working directory
setwd("/Volumes/bioinfomatics$/jurtasun/Courses/CBW2022/LMS_RNASeq/course/exercises")
getwd()
## [1] "/Volumes/bioinfomatics$/jurtasun/Courses/CBW2022/LMS_RNASeq/course/exercises"
Read in count data and sample description. Create col_data and check dimensions.
Construct DESeqDataSet object using count data and sample description.
Perform rlog and vs transformation on the
Draw a heatmap of count matrix based on the top 40 highly expressed genes using rlog and vst data.
Generate a SDM to see the clustering of count data
Perform the Principal Component Analysis using rlog method and find out the % significance values of first two principal components