Permalink
Browse files

removed some files

  • Loading branch information...
1 parent a009c69 commit 48238d2349eb55f461272dadd5b17215b9c399b1 @bobthecat committed Oct 18, 2011
Showing with 551 additions and 778 deletions.
  1. BIN .RData
  2. +284 −0 .Rhistory
  3. +0 −769 Presentation.R
  4. +104 −0 codebox.tmproj
  5. +3 −0 counts.r
  6. +14 −0 counts/count.r
  7. +36 −0 counts/count_both.c
  8. BIN counts/count_both.so
  9. +59 −0 davharris/table.graph.r
  10. +38 −0 population.plot.r
  11. BIN slopegraph.pdf
  12. +13 −9 table.graph.r
View
BIN .RData
Binary file not shown.
View
284 .Rhistory
@@ -0,0 +1,284 @@
+source('table.graph.r')
+table.graph(cars, label.cex=0.7, mar=c(5, 5, 1, 5))
+table.graph(cars, label.cex=0.7, mar=c(5, 5, 1, 5), digits=1)
+table.graph(cars, label.cex=0.7, mar=c(5, 5, 1, 5), digits=0)
+table.graph(cars, label.cex=0.7, mar=c(5, 5, 1, 5), digits=2)
+head(cars)
+head(mtcars)
+?mtcars
+head(lynx)
+lynx
+head(orange)
+head(Orange)
+source('table.graph.r')
+table.graph(mtcars[,c("", "")], label.cex=0.7, mar=c(5, 5, 1, 5), digits=2)
+table.graph(cars, label.cex=0.7, mar=c(5, 5, 1, 5), digits=2)
+source('table.graph.r')
+table.graph(cars, label.cex=0.7, mar=c(5, 5, 1, 5), digits=2)
+?sprintf
+sprintf("%f", pi)
+pi
+sprintf("%f", 123.22222229)
+sprintf("%f", 123.2222689)
+sprintf("%", 123.2222689)
+sprintf("%d", 123.2222689)
+sprintf("$d", 123.2222689)
+sprintf("%1$d", 123.2222689)
+sprintf("%1", 123.2222689)
+sprintf("%.", 123.2222689)
+sprintf("%", 123.2222689)
+sprintf("%s", 123.2222689)
+sprintf("%s", 0.0000000021)
+sprintf("%s", 1111111.2)
+dim(cars)
+dim(mtcars)
+LETTERS
+length(LETTERS)
+c(LETTERS, paste(LETTERS, LETTERS, sep=''))
+c(LETTERS, paste(LETTERS, LETTERS, sep=''))[1:50]
+length(111111)
+source("table.graph.r")
+rownames(cars) <- c(LETTERS, paste(LETTERS, LETTERS, sep=''))[1:50]
+table.graph(cars, label.cex=0.7, title.cex=1.2, mar=c(5, 5, 1, 5))
+table.graph(cars, label.cex=0.7, title.cex=1.2, mar=c(5, 5, 1, 5))
+q()
+source("table.graph.r")
+table.graph(cars, label.cex=0.7, title.cex=1.2, mar=c(5, 5, 1, 5))
+ls()
+rm(cars)
+table.graph(cars, label.cex=0.7, title.cex=1.2, mar=c(5, 5, 1, 5))
+?cars
+head(uspop)
+head(WorldPhones)
+table.graph(WorldPhones[,1:2], label.cex=0.7, title.cex=1.2, mar=c(5, 5, 1, 5))
+head(trees)
+source("table.graph.r")
+table.graph(WorldPhones[,1:2], label.cex=0.7, title.cex=1.2, mar=c(5, 5, 1, 5))
+q()
+matplot(WorldPhones, xaxt='n', type='b', pch=as.character(as.vector(WorldPhones)))
+?par
+matplot(WorldPhones, xaxt='n', type='b', pch='n')
+matplot(WorldPhones, xaxt='n', type='b', pch=NA)
+data=WorlPhones
+data=WorldPhones
+matplot(data, type='b', pch=NA, axes=FALSE, xlab='', ylab='')
+ axis(3, labels=rownames(data), at=1:7)
+matplot(data, type='b', pch=NA, axes=FALSE, xlab='', ylab='')
+ mtext(3, labels=rownames(data), at=1:7)
+?mtext
+ matplot(data, type='b', pch=NA, axes=FALSE, xlab='', ylab='')
+ mtext(text = rownames(data), side = 3, at=1:7, line = 1)
+ matplot(data, type='b', pch=NA, axes=FALSE, xlab='', ylab='')
+ mtext(text = rownames(data), side = 3, at=1:nrow(data), line = 1)
+ mtext(text = colnames(data), side = 2, at=1:ncol(data), line = 1)
+nrow(data)
+ matplot(data, type='b', pch=NA, axes=FALSE, xlab='', ylab='')
+ mtext(text = rownames(data), side = 3, at=1:nrow(data), line = 1)
+ mtext(text = colnames(data), side = 2, line = 1)
+ matplot(data, type='b', pch=NA, axes=FALSE, xlab='', ylab='')
+ mtext(text = rownames(data), side = 3, at=1:nrow(data), line = 1)
+ mtext(text = colnames(data), side = 2, at=data[,1], line = 1)
+ matplot(data, type='b', pch=NA, axes=FALSE, xlab='', ylab='')
+ mtext(text = rownames(data), side = 3, at=1:nrow(data), line = 1)
+ mtext(text = colnames(data), side = 2, at=data[,1], line = 1, las=1)
+data[,1]
+ matplot(data, type='b', pch=NA, axes=FALSE, xlab='', ylab='')
+ mtext(text = rownames(data), side = 3, at=1:nrow(data), line = 1)
+ mtext(text = colnames(data), side = 2, at=data[1,], line = 1, las=1)
+?sprintf
+sprintf("%1.0f", WorldPhones)
+sprintf("%2.0f", WorldPhones)
+sprintf("%2.0f", pi)
+sprintf("%1.0g", WorldPhones)
+sprintf("%2.0g", WorldPhones)
+sprintf("%5.0g", WorldPhones)
+sprintf("%5.0f", WorldPhones)
+sprintf("%4.0f", WorldPhones)
+sprintf("%4f", WorldPhones)
+sprintf("%4.2f", WorldPhones)
+sprintf("%.2f", WorldPhones)
+sprintf("%2f", WorldPhones)
+sprintf("%.2f", WorldPhones)
+sprintf("%6.2f", WorldPhones)
+as.vector(data)
+?text
+source('slopegraph.r')
+slopegraph(data=WorldPhones)
+source('slopegraph.r')
+slopegraph(data=WorldPhones)
+WorldPhones
+slopegraph(data=WorldPhones)
+source('slopegraph.r')
+slopegraph(data=WorldPhones)
+source('slopegraph.r')
+slopegraph(data=WorldPhones)
+source('slopegraph.r')
+slopegraph(data=WorldPhones)
+source('slopegraph.r')
+slopegraph(data=WorldPhones)
+source('slopegraph.r')
+\
+slopegraph(data=WorldPhones)
+\
+source('slopegraph.r')
+slopegraph(data=WorldPhones)
+source('slopegraph.r')
+slopegraph(data=WorldPhones)
+?matplot
+source('slopegraph.r')
+slopegraph(data=WorldPhones)
+library(TeachingDemos)
+?shadowtext
+source('slopegraph.r')
+slopegraph(data=WorldPhones)
+source('slopegraph.r')
+slopegraph(data=WorldPhones)
+ plot(1:10, 1:10, bg='aliceblue')
+ rect(3,3,5,8, col='navy')
+ text(5,6, 'Test 1', col='lightsteelblue')
+ shadowtext(5,4, 'Test 2', col='lightsteelblue')
+library(plotrix)
+?boxed.labels
+source('slopegraph.r')
+slopegraph(data=WorldPhones)
+source('slopegraph.r')
+slopegraph(data=WorldPhones)
+source('slopegraph.r')
+slopegraph(data=WorldPhones)
+source('slopegraph.r')
+slopegraph(data=WorldPhones)
+?matplot
+source('slopegraph.r')
+slopegraph(data = WorldPhones, mar=c(5, 5, 4, 5))
+pdf('slope.pdf', height=7, width=7)
+slopegraph(data = WorldPhones, mar=c(5, 5, 4, 5))
+dev.off()
+pdf('slope.pdf', height=7, width=7)
+slopegraph(data = WorldPhones, mar=c(5, 5, 4, 5))
+title(main="YEARS")
+dev.off()
+pdf('slope.pdf', height=7, width=7)
+slopegraph(data = WorldPhones, mar=c(5, 5, 4, 5))
+title(main="YEARS", line=2)
+dev.off()
+pdf('slope.pdf', height=7, width=7)
+slopegraph(data = WorldPhones, mar=c(5, 5, 4, 5))
+title(main="YEARS", line=3)
+dev.off()
+pdf('slope.pdf', height=7, width=7)
+slopegraph(data = WorldPhones, mar=c(5, 7, 4, 5))
+title(main="YEARS", line=3)
+dev.off()
+pdf('slope.pdf', height=7, width=8)
+slopegraph(data = WorldPhones, mar=c(5, 5, 4, 5))
+title(main="YEARS", line=3)
+dev.off()
+?par
+par()
+slopegraph(data = WorldPhones, oma=c(0, 1, 0, 0))
+pdf('slope.pdf', height=7, width=8)
+slopegraph(data = WorldPhones, oma=c(0, 1, 0, 0))
+dev.off()
+pdf('slope.pdf', height=7, width=8)
+slopegraph(data = WorldPhones, oma=c(0, 5, 0, 0))
+dev.off()
+pdf('slope.pdf', height=7, width=8)
+slopegraph(data = WorldPhones, oma=c(0, 0, 0, 0))
+dev.off()
+pdf('slope.pdf', height=7, width=8)
+slopegraph(data = WorldPhones, mar=c(5, 8, 4, 2))
+dev.off()
+?matplot
+source('slopegraph.r')
+source('slopegraph.r')
+source('slopegraph.r')
+source('slopegraph.r')
+source('slopegraph.r')
+slopegraph(data = WorldPhones, mymain = "YEARS", mar=c(5, 8, 4, 5))
+source('slopegraph.r')
+slopegraph(data = WorldPhones, mymain = "YEARS", mar=c(5, 8, 4, 5))
+source('slopegraph.r')
+slopegraph(data = WorldPhones, mymain = "YEARS", mar=c(5, 8, 4, 5))
+WorldPhones
+slopegraph(data = WorldPhones, mymain = "YEARS", mar=c(5, 10, 4, 5))
+source('slopegraph.r')
+slopegraph(data = WorldPhones, mymain = "YEARS")
+source('slopegraph.r')
+slopegraph(data = WorldPhones, mymain = "YEARS", mar=c(5, 5, 4, 5))
+source('slopegraph.r')
+slopegraph(data = WorldPhones, mymain = "YEARS", mar=c(5, 5, 4, 5))
+source('slopegraph.r')
+slopegraph(data = WorldPhones, mymain = "YEARS", mar=c(5, 5, 4, 5))
+slopegraph(data = WorldPhones, mymain = "YEARS", mar=c(5, 5, 4, 5), oma=c(0,1,0,1))
+slopegraph(data = WorldPhones, mymain = "YEARS", mar=c(5, 5, 4, 5), oma=c(0,1,0,1))
+slopegraph(data = WorldPhones, mymain = "YEARS", mar=c(5, 5, 4, 5), oma=c(0,5,0,5))
+slopegraph(data = WorldPhones, mymain = "YEARS", mar=c(5, 5, 4, 5))
+source('slopegraph.r')
+slopegraph(data = WorldPhones, mymain = "YEARS", mar=c(5, 5, 5, 5))
+source('slopegraph.r')
+slopegraph(data = WorldPhones, mymain = "YEARS", mar=c(5, 5, 5, 5))
+?boxed.labels
+source('slopegraph.r')
+pdf('slopegraph.pdf', height=7, width=8)
+slopegraph(data = WorldPhones, mymain = "YEARS", mar=c(5, 5, 5, 5))
+dev.off()
+?WorldPhones
+head(airmiles)
+head(AirPassengers)
+head(airquality)
+head(austres)
+head9beaver1)
+head(beaver1)
+head(discoveries)
+head(euro)
+head(UCBAdmissions)
+WorldPhones
+source('slopegraph.r')
+pdf('slopegraph.pdf', height=7, width=8)
+slopegraph(data = WorldPhones[,1:3], mymain = "YEARS", mar=c(5, 5, 5, 5))
+dev.off()
+WorldPhones[,1:3]
+class(WorldPhones[,1:3])
+class(WorldPhones)
+source('slopegraph.r')
+source('slopegraph.r')
+pdf('slopegraph.pdf', height=7, width=8)
+slopegraph(data = WorldPhones[,1:3], mymain = "YEARS", mar=c(5, 5, 5, 5))
+dev.off()
+source('slopegraph.r')
+slopegraph(data = WorldPhones[,1:3], mymain = "YEARS", mar=c(5, 5, 5, 5))
+source('slopegraph.r')
+slopegraph(data = WorldPhones[,1:3], mymain = "YEARS", mar=c(5, 5, 5, 5))
+WorldPhones[,1:3]
+source('slopegraph.r')
+slopegraph(data = WorldPhones[,1:3], mymain = "YEARS", mar=c(5, 5, 5, 5))
+source('slopegraph.r')
+slopegraph(data = WorldPhones[,1:3], mymain = "YEARS", mar=c(5, 5, 5, 5))
+source('slopegraph.r')
+slopegraph(data = WorldPhones[,1:3], mymain = "YEARS", mar=c(5, 5, 5, 5))
+source('slopegraph.r')
+slopegraph(data = WorldPhones[,1:3], mymain = "YEARS", mar=c(5, 5, 5, 5))
+source('slopegraph.r')
+slopegraph(data = WorldPhones[,1:3], mymain = "YEARS", mar=c(5, 5, 5, 5))
+slopegraph(data = WorldPhones[,1:3], mymain = "YEARS", round.method = "signif", mar=c(5, 5, 5, 5))
+slopegraph(data = WorldPhones[,1:3], mymain = "YEARS", rounding.method = "signif", mar=c(5, 5, 5, 5))
+slopegraph(data = WorldPhones[,1:3], mymain = "YEARS", rounding.method = "round", mar=c(5, 5, 5, 5))
+slopegraph(data = WorldPhones[,1:3], mymain = "YEARS", mar=c(5, 5, 5, 5))
+source('slopegraph.r')
+pdf('slopegraph.pdf', height=7, width=8)
+slopegraph(data = WorldPhones[,1:3], mymain = "YEARS", mar=c(5, 5, 5, 5))
+dev.off()
+q()
+library(affydata)
+data(dilution)
+data(Dilution)
+ eset <- rma(Dilution)
+source('Affy_QA.r')
+Affy_QA(eset)
+class(eset)
+class(Dilution)
+Affy_QA(Dilution)
+library(genetics)
+?check.HWE
+getwd()
+q()
Oops, something went wrong.

0 comments on commit 48238d2

Please sign in to comment.