Skip to content

Instantly share code, notes, and snippets.

View ohofmann's full-sized avatar

Oliver Hofmann ohofmann

  • University of Melbourne
  • Melbourne, Australia
View GitHub Profile
### KNITR SETUP
```{r setup, echo=FALSE}
opts_chunk$set(tidy=TRUE, cache=FALSE, highlight=TRUE, figalign="center", warning=FALSE, error=FALSE, message=FALSE, fig.height=11, fig.width=11)
```
### EXAMPLE CHUNK
```{r libraries}
library(ggplot2)
library(xtable)
@ohofmann
ohofmann / knitr.rmd
Created June 11, 2012 16:49 — forked from jnhutchinson/knitr.rmd
example knitr.r
### KNITR SETUP
```{r setup, echo=FALSE}
opts_chunk$set(tidy=TRUE, cache=FALSE, highlight=TRUE, figalign="center", warning=FALSE, error=FALSE, message=FALSE, fig.height=11, fig.width=11)
```
### EXAMPLE CHUNK
```{r libraries}
library(ggplot2)
library(xtable)
@ohofmann
ohofmann / gist:2882220
Created June 6, 2012 14:27
Amplicon filtering workflow
about title: "Variant filtering from amplicon data"
PICARD_HOME="/n/HSPH/local/share/java/picard/"
GATK_HOME="/n/HSPH/local/share/java/gatk/"
SNPEFF_HOME="/n/HSPH/local/share/java/snpeff/"
SNPEFF_CONF="/n/HSPH/local/share/java/snpeff/snpEff.config"
HG19="/n/scratch00/hsph/biodata/genomes/Hsapiens/hg19/seq/hg19.fa"
HG19CHR='../chrTargets.bed'
TARGETS="../exonTargetsSorted.bed"
DBSNP132="/n/scratch00/hsph/biodata/genomes/Hsapiens/hg19/variation/dbsnp_132.vcf"
about title: "Variant filtering from amplicon data"
PICARD_HOME="/n/HSPH/local/share/java/picard/"
GATK_HOME="/n/HSPH/local/share/java/gatk/"
SNPEFF_HOME="/n/HSPH/local/share/java/snpeff/"
SNPEFF_CONF="/n/HSPH/local/share/java/snpeff/snpEff.config"
HG19="/n/scratch00/hsph/biodata/genomes/Hsapiens/hg19/seq/hg19.fa"
HG19CHR='../chrTargets.bed'
TARGETS="../exonTargetsSorted.bed"
DBSNP132="/n/scratch00/hsph/biodata/genomes/Hsapiens/hg19/variation/dbsnp_132.vcf"
about title: "Variant filtering from amplicon data"
PICARD_HOME="/n/HSPH/local/share/java/picard/"
GATK_HOME="/n/HSPH/local/share/java/gatk/"
SNPEFF_HOME="/n/HSPH/local/share/java/snpeff/"
SNPEFF_CONF="/n/HSPH/local/share/java/snpeff/snpEff.config"
HG19="/n/scratch00/hsph/biodata/genomes/Hsapiens/hg19/seq/hg19.fa"
HG19CHR='../chrTargets.bed'
TARGETS="../exonTargetsSorted.bed"
DBSNP132="/n/scratch00/hsph/biodata/genomes/Hsapiens/hg19/variation/dbsnp_132.vcf"
about title: "Variant filtering from amplicon data"
PICARD_HOME="/n/HSPH/local/share/java/picard/"
GATK_HOME="/n/HSPH/local/share/java/gatk/"
SNPEFF_HOME="/n/HSPH/local/share/java/snpeff/"
SNPEFF_CONF="/n/HSPH/local/share/java/snpeff/snpEff.config"
HG19="/n/scratch00/hsph/biodata/genomes/Hsapiens/hg19/seq/hg19.fa"
HG19CHR='../chrTargets.bed'
TARGETS="../exonTargetsSorted.bed"
DBSNP132="/n/scratch00/hsph/biodata/genomes/Hsapiens/hg19/variation/dbsnp_132.vcf"
Try to de-convolute the array relationships by looking at the SNP
# probes
snpProbes <- grep('rs', fData(lumiData)$TargetID)
betas <- estimateBeta(lumiData)
betasSNP <- exprs(betas)[snpProbes, ]
labels <- paste(pData(lumiData)$Subject,
pData(lumiData)$sampleID,
pData(lumiData)$Tissue,
sep='_')
# Start with basic quality controls from lumi, highlight
# samples by tissue information, also extract gender information
colors <- brewer.pal(3, 'Set1')
tissues <- pData(lumiData)$Tissue
gender <- pData(lumiData)$Sex
# Basic sample relations
pdf('sampleRelations_mds_0.1_withRedos.pdf')
plotSampleRelation(lumiData, method='mds', cv.Th=0.1, col=colors[tissues])
dev.off()
library(ReadqPCR)
library(NormqPCR)
library(pheatmap)
library(RColorBrewer)
library(ggplot2)
######################################################################
# Setup
######################################################################
# Pairwise correlations
library(simpleaffy)
library(mouse430a2.db)
library(arrayQualityMetrics)
library(RColorBrewer)
library(pheatmap)
#library(pathprint)
#library(ggplot2)
#library(ggdendro)
#library("AnnotationDbi")