>cat 3_2014-05-06_ceu-sort-svs-NA12878-filter.bedpe | awk '$1=='21' || $4=='21'' | cut -f11 | sort | uniq -c
212 TYPE:DELETION
43 TYPE:DUPLICATION
5 TYPE:INTERCHROM
10 TYPE:INVERSION
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/usr/bin/perl | |
use strict; | |
use warnings; | |
use Getopt::Std; | |
#################################################################################### | |
# vcfsorter.pl | |
# | |
# Copyright (C) 2011 German Gaston Leparc | |
# |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
wget http://downloads.sourceforge.net/project/flashpage/FLASH-1.2.11.tar.gz | |
tar -xvf FLASH-1.2.11.tar.gz | |
cd FLASH-1.2.11 | |
make | |
./flash |
IGV provides functionality that allows a user to create a script to take screenshots of regions of interest.
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
library("devtools") | |
install_github("dfjenkins3/ASSIGN") | |
library("ASSIGN") | |
data(trainingData1) | |
data(testData1) | |
data(geneList1) | |
tempdir <- "test2" | |
trainingLabel1 <- list(control = list(bcat=1:10, e2f3=1:10, | |
myc=1:10, ras=1:10, src=1:10), | |
bcat = 11:19, e2f3 = 20:28, myc= 29:38, |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
setwd("C:/Users/dfj/Desktop/") | |
data("trainingData1") | |
data("testData1") | |
data("geneList1") | |
trainingLabel1 <- list(control = list(bcat=1:10), bcat = 11:19) | |
testLabel1 <- rep(c("subtypeA","subtypeB"),c(53,58)) | |
tempdir <- "delta_test9" |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#install reference batch from github | |
library(devtools) | |
install_github("wevanjohnson/sva-devel", ref="reference_batch") | |
library(sva) | |
#example ComBat call with reference batch | |
combat<-ComBat(dat=indata, batch=c(rep(1,100),rep(2,100)), mod=NULL, ref.batch=2) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
# Comparing GenTox with Bacterial.Mutagenesis | |
```{r} | |
library(Biobase) | |
setwd(file.path("C:","Users","djenk","OneDrive","grad_school","05-2015_fall", | |
"BS830_microarray","20151218-Final_Project")) | |
#TG-GATEs Data (Discovery Set) | |
load("Rat.Liver.in_vivo.repeat.annotated.RData") |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
# Comparing GenTox with Bacterial.Mutagenesis | |
```{r} | |
library(Biobase) | |
setwd(file.path("C:","Users","djenk","OneDrive","grad_school","05-2015_fall", | |
"BS830_microarray","20151218-Final_Project")) | |
#TG-GATEs Data (Discovery Set) | |
load("Rat.Liver.in_vivo.repeat.annotated.RData") |
OlderNewer