dev.off()
rm(list=ls())
source('C:/Users/rjudson/Desktop/162 ER assay selection v2/ER_assay_select.R')
prep.data()
prep.data.2()
ls()
rm(list=ls())
ls()
source('C:/Users/rjudson/Desktop/162 ER assay selection v2/ER_assay_select.R')
prep.data.2()
cutoff.scan(T)
source('C:/Users/rjudson/Desktop/162 ER assay selection v2/ER_assay_select.R')
ls()
source('C:/Users/rjudson/Desktop/162 ER assay selection v2/ER_assay_select.R')
names(REFCHEM.DATA)
source('C:/Users/rjudson/Desktop/162 ER assay selection v2/ER_assay_select.R')
source('C:/Users/rjudson/Desktop/162 ER assay selection v2/ER_assay_select.R')
assay.scan.2(F)
assay.scan.2(F)
code.list.invitor
code.list.invitro
dim(xp)
xp[1:3,]
source('C:/Users/rjudson/Desktop/162 ER assay selection v2/ER_assay_select.R')
source('C:/Users/rjudson/Desktop/162 ER assay selection v2/ER_assay_select.R')
source('C:/Users/rjudson/Desktop/162 ER assay selection v2/ER_assay_select.R')
assay.scan.2(F)
source('C:/Users/rjudson/Desktop/162 ER assay selection v2/ER_assay_select.R')
assay.scan.2(F)
yiv
xiv
yiv <- as.numeric(yiv)
yiv
source('C:/Users/rjudson/Desktop/162 ER assay selection v2/ER_assay_select.R')
assay.scan.2(F)
assay.scan.2(F)
length(xiv)
length(yiv)
a <- sum(xiv*yiv)
b <- sum(xiv*(1-yiv))
c <- sum((1-xiv)*yiv)
d <- sum((1-xiv)*(1-yiv))
txt <- TxT(a,b,c,d)
txt
source('C:/Users/rjudson/Desktop/162 ER assay selection v2/ER_assay_select.R')
assay.scan.2(F)
res
source('C:/Users/rjudson/Desktop/162 ER assay selection v2/ER_assay_select.R')
assay.scan.2(F)
source('C:/Users/rjudson/Desktop/162 ER assay selection v2/ER_assay_select.R')
source('C:/Users/rjudson/Desktop/162 ER assay selection v2/ER_assay_select.R')
assay.scan.2(F)
source('C:/Users/rjudson/Desktop/162 ER assay selection v2/ER_assay_select.R')
source('C:/Users/rjudson/Desktop/162 ER assay selection v2/ER_assay_select.R')
assay.scan.2(F)
yiv
dim(xp)
xp
length(xp)
xp[1:10]
xp["C80057"]
length(code.list)
source('C:/Users/rjudson/Desktop/162 ER assay selection v2/ER_assay_select.R')
xiv <- xp[is.element(code.list,code.list.invitro)]
xiv
source('C:/Users/rjudson/Desktop/162 ER assay selection v2/ER_assay_select.R')
assay.scan.2(F)
res
source('C:/Users/rjudson/Desktop/162 ER assay selection v2/ER_assay_select.R')
assay.scan.2(F)
res.all
assay.scan.2(T)
source('C:/Users/rjudson/Desktop/162 ER assay selection v2/ER_assay_select.R')
source('C:/Users/rjudson/Desktop/162 ER assay selection v2/ER_assay_select.R')
source('C:/Users/rjudson/Desktop/162 ER assay selection v2/ER_assay_select.R')
plot.stats.1(F)
plot.stats.1(T)
plot.stats.2(F)
plot.stats.2(T)
source('C:/Users/rjudson/Desktop/162 ER assay selection v2/ER_assay_select.R')
plot.stats.1(T)
source('C:/Users/rjudson/Desktop/162 ER assay selection v2/ER_assay_select.R')
source('C:/Users/rjudson/Desktop/162 ER assay selection v2/ER_assay_select.R')
assay.scan.2(F)
res.all
assay.scan.2(T)
source('C:/Users/rjudson/Desktop/162 ER assay selection v2/ER_assay_select.R')
source('C:/Users/rjudson/Desktop/162 ER assay selection v2/ER_assay_select.R')
source('C:/Users/rjudson/Desktop/162 ER assay selection v2/ER_assay_select.R')
source('C:/Users/rjudson/Desktop/162 ER assay selection v2/ER_assay_select.R')
source('C:/Users/rjudson/Desktop/162 ER assay selection v2/ER_assay_select.R')
plot.stats.1(T)
index.sample.stats.1(T,F)
names(SAMPLE.STATS.ALLCHEMS.1)
NASSAY
source('C:/Users/rjudson/Desktop/162 ER assay selection v2/ER_assay_select.R')
index.sample.stats.1(T,F)
source('C:/Users/rjudson/Desktop/162 ER assay selection v2/ER_assay_select.R')
index.sample.stats.1(F,F)
source('C:/Users/rjudson/Desktop/162 ER assay selection v2/ER_assay_select.R')
?points
source('C:/Users/rjudson/Desktop/162 ER assay selection v2/ER_assay_select.R')
index.sample.stats.1(F,F)
source('C:/Users/rjudson/Desktop/162 ER assay selection v2/ER_assay_select.R')
index.sample.stats.1(F,F)
source('C:/Users/rjudson/Desktop/162 ER assay selection v2/ER_assay_select.R')
source('C:/Users/rjudson/Desktop/162 ER assay selection v2/ER_assay_select.R')
fix()
index.sample.stats.1(T,F)
SAMPLE.STATS.ALLCHEMS.1[1:10,]
x <- SAMPLE.STATS.ALLCHEMS.1[,"ba.refchem.invivo"]
y <- SAMPLE.STATS.ALLCHEMS.1[,"ba.min"]
plot(x~y)
z <- x-y
hist(z)
source('C:/Users/rjudson/Desktop/162 ER assay selection v2/ER_assay_select.R')
fix()
index.sample.stats.1(F,F)
BEST.MODEL
x <- SAMPLE.STATS.ALLCHEMS.1[,"ba.refchem.invivo"]
y <- SAMPLE.STATS.ALLCHEMS.1[,"ba.min"]
z <- x-y
hist(z)
index.sample.stats.1(T,F)
index.sample.stats.1(F,T)
names(ALL.DATA)
source('C:/Users/rjudson/Desktop/162 ER assay selection v2/ER_assay_select.R')
export.all.data()
dim(temp)
source('C:/Users/rjudson/Desktop/162 ER assay selection v2/ER_assay_select.R')
source('C:/Users/rjudson/Desktop/162 ER assay selection v2/ER_assay_select.R')
source('C:/Users/rjudson/Desktop/162 ER assay selection v2/ER_assay_select.R')
export.all.data()
names(ALL.DATA)
source('C:/Users/rjudson/Desktop/162 ER assay selection v2/ER_assay_select.R')
names(ALL.DATA)
export.all.data()
source('C:/Users/rjudson/Desktop/162 ER assay selection v2/ER_assay_select.R')
export.all.data()
source('C:/Users/rjudson/Desktop/162 ER assay selection v2/ER_assay_select.R')
export.all.data()
cs
source('C:/Users/rjudson/Desktop/162 ER assay selection v2/ER_assay_select.R')
export.all.data()
atemp
cs
t(cs)
cs
source('C:/Users/rjudson/Desktop/162 ER assay selection v2/ER_assay_select.R')
source('C:/Users/rjudson/Desktop/162 ER assay selection v2/ER_assay_select.R')
source('C:/Users/rjudson/Desktop/162 ER assay selection v2/ER_assay_select.R')
export.all.data()
rs
dim(rs)
length(rs)
source('C:/Users/rjudson/Desktop/162 ER assay selection v2/ER_assay_select.R')
?write.xlsx
source('C:/Users/rjudson/Desktop/162 ER assay selection v2/ER_assay_select.R')
export.all.data()
rs <- as.data.frame(rs)
rs
source('C:/Users/rjudson/Desktop/162 ER assay selection v2/ER_assay_select.R')
export.all.data()
source('C:/Users/rjudson/Desktop/162 ER assay selection v2/ER_assay_select.R')
export.all.data(T)
source('C:/Users/rjudson/Desktop/162 ER assay selection v2/ER_assay_select.R')
export.all.data(T)
dev.off()
dev.off()
dev.off()
source('C:/Users/rjudson/Desktop/162 ER assay selection v2/ER_assay_select.R')
export.all.data(T)
source('C:/Users/rjudson/Desktop/162 ER assay selection v2/ER_assay_select.R')
dim(MAT.MED)
MAT.MED[1:4,]
names(FULL.DATA)
names(FULL.MODEL)
FULL.<ODEL[1:10,]
FULL.MODEL[1:10,]
MED.MAT[1:10,]
MAT.MED[1:10,]
source('C:/Users/rjudson/Desktop/162 ER assay selection v2/ER_assay_select.R')
assay.auc.hm(F)
dim(x)
dim(data)
dim(MAT.MED)
source('C:/Users/rjudson/Desktop/162 ER assay selection v2/ER_assay_select.R')
assay.auc.hm(F)
names(MAT.MED)
hist(MAT.MED[,5])
hist(MAT.MED[,12])
hist(MAT.MED[,16])
source('C:/Users/rjudson/Desktop/162 ER assay selection v2/ER_assay_select.R')
assay.auc.hm(F)
cm
source('C:/Users/rjudson/Desktop/162 ER assay selection v2/ER_assay_select.R')
assay.auc.hm(F)
source('C:/Users/rjudson/Desktop/162 ER assay selection v2/ER_assay_select.R')
assay.auc.hm(F)
hist(data[,1])
hist(data[,110])
hist(data[,10])
source('C:/Users/rjudson/Desktop/162 ER assay selection v2/ER_assay_select.R')
assay.auc.hm(F)
hist(data[,10])
hist(data[,9])
hist(data[,8])
hist(data[,1])
cm
hist(data[,13])
source('C:/Users/rjudson/Desktop/162 ER assay selection v2/ER_assay_select.R')
assay.auc.hm(F)
hist(data[,13])
hist(data[,10])
source('C:/Users/rjudson/Desktop/162 ER assay selection v2/ER_assay_select.R')
assay.auc.hm(F)
source('C:/Users/rjudson/Desktop/162 ER assay selection v2/ER_assay_select.R')
assay.auc.hm(F)
source('C:/Users/rjudson/Desktop/162 ER assay selection v2/ER_assay_select.R')
assay.auc.hm(F)
source('C:/Users/rjudson/Desktop/162 ER assay selection v2/ER_assay_select.R')
source('C:/Users/rjudson/Desktop/162 ER assay selection v2/ER_assay_select.R')
assay.auc.hm(F)
source('C:/Users/rjudson/Desktop/162 ER assay selection v2/ER_assay_select.R')
assay.auc.hm(F)
source('C:/Users/rjudson/Desktop/162 ER assay selection v2/ER_assay_select.R')
assay.auc.hm(F)
assay.auc.hm(T)
?heatmap
source('C:/Users/rjudson/Desktop/162 ER assay selection v2/ER_assay_select.R')
count.misclassified.chems()
source('C:/Users/rjudson/Desktop/162 ER assay selection v2/ER_assay_select.R')
count.misclassified.chems()
dim(hit.mat)
dim(mat.full)
rownames(mat.full)[1:10]
rownames(hit.mat)[1:10]
names(mat.full)
source('C:/Users/rjudson/Desktop/162 ER assay selection v2/ER_assay_select.R')
count.misclassified.chems()
data[1:10,]
source('C:/Users/rjudson/Desktop/162 ER assay selection v2/ER_assay_select.R')
count.misclassified.chems()
source('C:/Users/rjudson/Desktop/162 ER assay selection v2/ER_assay_select.R')
count.misclassified.chems()
source('C:/Users/rjudson/Desktop/162 ER assay selection v2/ER_assay_select.R')
source('C:/Users/rjudson/Desktop/162 ER assay selection v2/ER_assay_select.R')
count.misclassified.chems()
source('C:/Users/rjudson/Desktop/162 ER assay selection v2/ER_assay_select.R')
count.misclassified.chems()
hist(rowMax(data))
max(data)
source('C:/Users/rjudson/Desktop/162 ER assay selection v2/ER_assay_select.R')
count.misclassified.chems()
max(data)
hist(rowMax(data))
source('C:/Users/rjudson/Desktop/162 ER assay selection v2/ER_assay_select.R')
count.misclassified.chems()
source('C:/Users/rjudson/Desktop/162 ER assay selection v2/ER_assay_select.R')
source('C:/Users/rjudson/Desktop/162 ER assay selection v2/ER_assay_select.R')
count.misclassified.chems()
names(FULL.MODEL)
source('C:/Users/rjudson/Desktop/162 ER assay selection v2/ER_assay_select.R')
source('C:/Users/rjudson/Desktop/162 ER assay selection v2/ER_assay_select.R')
count.misclassified.chems(T)
source('C:/Users/rjudson/Desktop/162 ER assay selection v2/ER_assay_select.R')
dev.off()
dev.off()
dev.off()
count.misclassified.chems(T)
source('C:/Users/rjudson/Desktop/162 ER assay selection v2/ER_assay_select.R')
dev.off()
dev.off()
count.misclassified.chems(T)
source('C:/Users/rjudson/Desktop/162 ER assay selection v2/ER_assay_select.R')
misclass.hm(F)
source('C:/Users/rjudson/Desktop/162 ER assay selection v2/ER_assay_select.R')
source('C:/Users/rjudson/Desktop/162 ER assay selection v2/ER_assay_select.R')
misclass.hm(F)
?heatmap
source('C:/Users/rjudson/Desktop/162 ER assay selection v2/ER_assay_select.R')
misclass.hm(F)
misclass.hm(T)
source('C:/Users/rjudson/Desktop/162 ER assay selection v2/ER_assay_select.R')
misclass.hm(T)
source('C:/Users/rjudson/Desktop/162 ER assay selection v2/ER_assay_select.R')
misclass.hm(T)
source('C:/Users/rjudson/Desktop/162 ER assay selection v2/ER_assay_select.R')
misclass.hm(T)
source('C:/Users/rjudson/Desktop/162 ER assay selection v2/ER_assay_select.R')
misclass.hm(T)
misclass.hm(F)
misclass.hm(F)
source('C:/Users/rjudson/Desktop/162 ER assay selection v2/ER_assay_select.R')
misclass.hm(F)
misclass.hm(T)
source('C:/Users/rjudson/Desktop/162 ER assay selection v4/ER_assay_select.R')
source('C:/Users/rjudson/Desktop/162 ER assay selection v4/ER_assay_select.R')
plot.stats.1(F)
text(15,0.7,"A",cex=2,pos=4)
source('C:/Users/rjudson/Desktop/162 ER assay selection v4/ER_assay_select.R')
text(15,0.75,"A",cex=2,pos=4)
source('C:/Users/rjudson/Desktop/162 ER assay selection v4/ER_assay_select.R')
source('C:/Users/rjudson/Desktop/162 ER assay selection v4/ER_assay_select.R')
plot.stats.1(F)
plot.stats.1(T)
source('C:/Users/rjudson/Desktop/162 ER assay selection v4/ER_assay_select.R')
assay.scan.1(T)
assay.scan.1(to.file=T,do.prep=T)
source('C:/Users/rjudson/Desktop/162 ER assay selection v4/ER_assay_select.R')
assay.scan.1(to.file=T,do.prep=T)
ls()
names(FULL.MODEL)
names(BOOT.AUC)
ls()assay.scan.2(F)
assay.scan.2(F)
source('C:/Users/rjudson/Desktop/162 ER assay selection v4/ER_assay_select.R')
source('C:/Users/rjudson/Desktop/162 ER assay selection v4/ER_assay_select.R')
assay.scan.2(F)
dev.off()
dev.off()
dev.off()
dev.off()
dev.off()
assay.scan.2(F)
assay.scan.2(T)
source('C:/Users/rjudson/Desktop/162 ER assay selection v4/ER_assay_select.R')
source('C:/Users/rjudson/Desktop/162 ER assay selection v4/ER_assay_select_v02.R')
source('C:/Users/rjudson/Desktop/162 ER assay selection v4/ER_assay_select_v02.R')
ls()
name(BOOT.AUC)
names(BOOT.AUC)
BOOT.AUC[1:10]
BOOT.AUC[1:10,]
ls()
names(ALL.DATA)
ALL.DATA[1:3,]
ls()
FULL.MODEL[1:3,]
BOOT.AUC[1:10,]
BOOTSTRAP.DATA[1:10,]
MAT.MED{1:10,}
MAT.MED[1:10,]
max(MAT.MED)
hist(MAT.MED[,1])
source('C:/Users/rjudson/Desktop/162 ER assay selection v4/ER_assay_select_v02.R')
names(BOOT.AUC)
hist(BOOT.AUC[,"AUC"])
source('C:/Users/rjudson/Desktop/162 ER assay selection v4/ER_assay_select_v02.R')
source('C:/Users/rjudson/Desktop/162 ER assay selection v4/ER_assay_select_v02.R')
source('C:/Users/rjudson/Desktop/162 ER assay selection v4/ER_assay_select_v02.R')
source('C:/Users/rjudson/Desktop/162 ER assay selection v4/ER_assay_select_v02.R')
source('C:/Users/rjudson/Desktop/162 ER assay selection v4/ER_assay_select_v02.R')
rm(list=ls())
source('C:/Users/rjudson/Desktop/162 ER assay selection v4/ER_assay_select_v02.R')
prep.data.2()
prep.data.2()
source('C:/Users/rjudson/Desktop/162 ER assay selection v4/R/ER_assay_select_v02.R')
prep.data.2()
source('C:/Users/rjudson/Desktop/162 ER assay selection v4/R/ER_assay_select_v02.R')
source('C:/Users/rjudson/Desktop/162 ER assay selection v4/R/ER_assay_select_v02.R')
source('C:/Users/rjudson/Desktop/162 ER assay selection v4/R/ER_assay_select_v02.R')
source('C:/Users/rjudson/Desktop/162 ER assay selection v4/R/ER_assay_select_v02.R')
summarize.boot()
file <- "../bootstrap/mat.max.rds"
saveRDS(MAT.MAX(file))
saveRDS(MAT.MAX,file)
cutoff.scan(T,2)
source('C:/Users/rjudson/Desktop/162 ER assay selection v4/R/ER_assay_select_v02.R')
source('C:/Users/rjudson/Desktop/162 ER assay selection v4/R/ER_assay_select_v02.R')
source('C:/Users/rjudson/Desktop/162 ER assay selection v4/R/ER_assay_select_v02.R')
source('C:/Users/rjudson/Desktop/162 ER assay selection v4/R/ER_assay_select_v02.R')
assay.scan.2(F,"allchems",0.1,2)
assay.scan.2(T,"allchems",0.1,2)
source('C:/Users/rjudson/Desktop/162 ER assay selection v4/R/ER_assay_select_v02.R')
source('C:/Users/rjudson/Desktop/162 ER assay selection v4/R/ER_assay_select_v02.R')
source('C:/Users/rjudson/Desktop/162 ER assay selection v4/R/ER_assay_select_v02.R')
MAT.MED[1:10,]
dim(MAT.MED)
colMax(MAT.MED)
colMax
x <- colMax(MAT.MED)
x
source('C:/Users/rjudson/Desktop/162 ER assay selection v4/R/ER_assay_select_v02.R')
normalize.auc()
x <- colMax(MAT.MED)
x
source('C:/Users/rjudson/Desktop/162 ER assay selection v4/R/ER_assay_select_v02.R')
cutoff.scan(T,2)
source('C:/Users/rjudson/Desktop/162 ER assay selection v4/R/ER_assay_select_v02.R')
source('C:/Users/rjudson/Desktop/162 ER assay selection v4/R/ER_assay_select_v02.R')
source('C:/Users/rjudson/Desktop/162 ER assay selection v4/R/ER_assay_select_v02.R')
ls()
namesFULL.MODEL
names(FULL.MODEL)
dim(FULL.MODEL)
dim(MAT.MED)
MAT.MED[1:4,]
FULL.MODEL[1:4,]
source('C:/Users/rjudson/Desktop/162 ER assay selection v4/R/ER_assay_select_v02.R')
export.auc()
source('C:/Users/rjudson/Desktop/162 ER assay selection v4/R/ER_assay_select_v02.R')
export.AUC()
source('C:/Users/rjudson/Desktop/162 ER assay selection v4/R/ER_assay_select_v02.R')
export.AUC()
source('C:/Users/rjudson/Desktop/162 ER assay selection v4/R/ER_assay_select_v02.R')
export.AUC()
source('C:/Users/rjudson/Desktop/162 ER assay selection v4/R/ER_assay_select_v02.R')
cutoff.scan(T,2)
source('C:/Users/rjudson/Desktop/162 ER assay selection v4/R/ER_assay_select_v02.R')
assay.scan.2()
coefs
mask
amask
source('C:/Users/rjudson/Desktop/162 ER assay selection v4/R/ER_assay_select_v02.R')
assay.scan.2()
coefs
names(res)
source('C:/Users/rjudson/Desktop/162 ER assay selection v4/R/ER_assay_select_v02.R')
source('C:/Users/rjudson/Desktop/162 ER assay selection v4/R/ER_assay_select_v02.R')
source('C:/Users/rjudson/Desktop/162 ER assay selection v4/R/ER_assay_select_v02.R')
source('C:/Users/rjudson/Desktop/162 ER assay selection v4/R/ER_assay_select_v02.R')
source('C:/Users/rjudson/Desktop/162 ER assay selection v4/R/ER_assay_select_v02.R')
source('C:/Users/rjudson/Desktop/162 ER assay selection v4/R/ER_assay_select_v02.R')
source('C:/Users/rjudson/Desktop/162 ER assay selection v4/R/ER_assay_select_v02.R')
source('C:/Users/rjudson/Desktop/162 ER assay selection v4/R/ER_assay_select_v02.R')
source('C:/Users/rjudson/Desktop/162 ER assay selection v4/R/ER_assay_select_v02.R')
assay.scan.2()
assay.scan.2(T)
res.all
res.amask.all
res.coefs.all
source('C:/Users/rjudson/Desktop/162 ER assay selection v4/R/ER_assay_select_v02.R')
res.coefs.all
source('C:/Users/rjudson/Desktop/162 ER assay selection v4/R/ER_assay_select_v02.R')
dev.off()
dev.off()
dev.off()
assay.scan.2(T)
source('C:/Users/rjudson/Desktop/162 ER assay selection v4/R/ER_assay_select_v02.R')
assay.scan.2(T)
cutoff.scan(T,2)
export.AUC()
summarize.sample.stats()
plot.stats.1(T)
index.sample.stats.1(T)
index.sample.stats.1(F,T)
source('C:/Users/rjudson/Desktop/162 ER assay selection v4/R/ER_assay_select_v02.R')
index.sample.stats.1(F,T)
?axis
source('C:/Users/rjudson/Desktop/162 ER assay selection v4/R/ER_assay_select_v02.R')
index.sample.stats.1(F,F)
source('C:/Users/rjudson/Desktop/162 ER assay selection v4/R/ER_assay_select_v02.R')
index.sample.stats.1(F,F)
source('C:/Users/rjudson/Desktop/162 ER assay selection v4/R/ER_assay_select_v02.R')
index.sample.stats.1(F,F)
index.sample.stats.1(F,T)
?plot
source('C:/Users/rjudson/Desktop/162 ER assay selection v4/R/ER_assay_select_v02.R')
index.sample.stats.1(F,F)
source('C:/Users/rjudson/Desktop/162 ER assay selection v4/R/ER_assay_select_v02.R')
source('C:/Users/rjudson/Desktop/162 ER assay selection v4/R/ER_assay_select_v02.R')
index.sample.stats.1(F,F)
index.sample.stats.1(F,T)
source('C:/Users/rjudson/Desktop/162 ER assay selection v4/R/ER_assay_select_v02.R')
index.sample.stats.1(F,T)
source('C:/Users/rjudson/Desktop/162 ER assay selection v4/R/ER_assay_select_v02.R')
index.sample.stats.1(F,T)
source('C:/Users/rjudson/Desktop/162 ER assay selection v4/R/ER_assay_select_v02.R')
index.sample.stats.1(F,T)
source('C:/Users/rjudson/Desktop/162 ER assay selection v4/R/ER_assay_select_v02.R')
index.sample.stats.1(F,T)
source('C:/Users/rjudson/Desktop/162 ER assay selection v4/R/ER_assay_select_v02.R')
index.sample.stats.1(F,T)
source('C:/Users/rjudson/Desktop/162 ER assay selection v4/R/ER_assay_select_v02.R')
index.sample.stats.1(F,T)
export.all.data()
export.all.data(T)
source('C:/Users/rjudson/Desktop/162 ER assay selection v4/R/ER_assay_select_v02.R')
count.misclassified.chems()
count.misclassified.chems(T)
source('C:/Users/rjudson/Desktop/162 ER assay selection v4/R/ER_assay_select_v02.R')
source('C:/Users/rjudson/Desktop/162 ER assay selection v4/R/ER_assay_select_v02.R')
export.all.data(T)
misclass.hm(F)
misclass.hm(T)
misclass.hm(F)
data[1:3,]
hist(MAT.MED[,"ATG_ERE_CIS"])
names(MAT.MED)
hist(MAT.MED[,"ATG_ERE_CIS_up"])
source('C:/Users/rjudson/Desktop/162 ER assay selection v4/R/ER_assay_select_v02.R')
source('Z:/ACToR/judson_projects/162 ER assay selection v5/R/ER_assay_select_v02.R')
plot.stats.1(F)
plot.stats.1(T)
source('Z:/ACToR/judson_projects/162 ER assay selection v5/R/ER_assay_select_v02.R')
cutoff.scan(F)
source('Z:/ACToR/judson_projects/162 ER assay selection v5/R/ER_assay_select_v02.R')
cutoff.scan(T)
source('Z:/ACToR/judson_projects/162 ER assay selection v5/R/ER_assay_select_v02.R')
source('Z:/ACToR/judson_projects/162 ER assay selection v5/R/ER_assay_select_v02.R')
cutoff.scan(T)
source('Z:/ACToR/judson_projects/162 ER assay selection v5/R/ER_assay_select_v02.R')
cutoff.scan(T)
source('Z:/ACToR/judson_projects/162 ER assay selection v5/R/ER_assay_select_v02.R')
source('Z:/ACToR/judson_projects/162 ER assay selection v5/R/ER_assay_select_v02.R')
cutoff.scan(T)
source('Z:/ACToR/judson_projects/162 ER assay selection v5/R/ER_assay_select_v02.R')
index.sample.stats.1(F,F)
index.sample.stats.1(F,T)
source('Z:/ACToR/judson_projects/162 ER assay selection v5/R/ER_assay_select_v02.R')
misclass.hm(T)
