(original) (raw)

################################################### ### chunk number 1: ################################################### options(width=40) ################################################### ### chunk number 2: ################################################### x <- c(2, 5, 4, 10, 8) ################################################### ### chunk number 3: ################################################### x ^ 2 ################################################### ### chunk number 4: ################################################### x - 3 ################################################### ### chunk number 5: ################################################### sqrt(x-5) ################################################### ### chunk number 6: ################################################### 1 / 1:10 ################################################### ### chunk number 7: ################################################### seq(1964, 2008, by=2) ################################################### ### chunk number 8: ################################################### rev( seq(0, 1000, by=25) ) ################################################### ### chunk number 9: ################################################### fagos <- c(33.2, 180.5, 280.3, 244.8, 252.4, 178.2, 211.2, 196.2, 176.8, 185.7) suma <- 0 for (i in 1:length(fagos)) { suma <- suma + fagos[i] } suma ################################################### ### chunk number 10: ################################################### sum(fagos) ################################################### ### chunk number 11: ################################################### sum(fagos) / length(fagos) ################################################### ### chunk number 12: ################################################### mean(fagos) ################################################### ### chunk number 13: ################################################### apropos("median") median(fagos) ################################################### ### chunk number 14: ################################################### a <- sort(fagos) mean(a[5:6]) ################################################### ### chunk number 15: ################################################### x <- c(3.5, 8, 10) y <- c(100:1, -2) z <- c(TRUE, FALSE, NA) w <- c("TRUE", "FALSE") k <- c("hola", 5.6, TRUE) ################################################### ### chunk number 16: ################################################### class(w) ################################################### ### chunk number 17: ################################################### bacterias <- c(4.6e6, 3.54e6, 1.71e6) bacterias names(bacterias) <- c("E. coli MG1655", "Geobacter WCH70", "Helicobacter pylori P12") bacterias ################################################### ### chunk number 18: ################################################### names(bacterias) <- c("E. coli MG1655", "Geobacter WCH70") bacterias ################################################### ### chunk number 19: ################################################### x <- 10:1 x[7] ################################################### ### chunk number 20: ################################################### names(x) <- letters[1:10] ################################################### ### chunk number 21: ################################################### x["c"] ################################################### ### chunk number 22: ################################################### y <- c("a", "d") x[y] ################################################### ### chunk number 23: ################################################### x[x > 5] ################################################### ### chunk number 24: ################################################### x > 5 z <- x > 3 & x < 8 x[z] ################################################### ### chunk number 25: ################################################### a <- 0:-25 names(a) <- letters[1:26] a[c(5,10,25)] a[c("z", "f", "l")] a[rep(c(FALSE, TRUE), 13)] ################################################### ### chunk number 26: ################################################### pos <- c(1:4, 6:9, 11:24, 26) a[pos] ################################################### ### chunk number 27: ################################################### -c(5,10,25) a[-c(5,10,25)] ################################################### ### chunk number 28: ################################################### fagos ################################################### ### chunk number 29: ################################################### plot(fagos) ################################################### ### chunk number 30: ################################################### plot(sort(fagos)) ################################################### ### chunk number 31: ################################################### plot(fagos, col="blue") ################################################### ### chunk number 32: ################################################### plot(fagos, type="l") ################################################### ### chunk number 33: ################################################### plot(fagos, type="o", col="blue") ################################################### ### chunk number 34: ################################################### plot(fagos, ylab="Fagos (en kb)") ################################################### ### chunk number 35: ################################################### plot(fagos, xlab="Los 10 fagos m�s grandes") ################################################### ### chunk number 36: ################################################### plot(fagos, col="blue", type="o", ylab="Tama�o del genoma (en kb)", xlab="Los 10 fagos m�s grandes") ################################################### ### chunk number 37: ################################################### plot(fagos, col="blue", type="o", ylab="Tama�o del genoma (en kb)", xlab="Los 10 fagos m�s grandes", main="Primera gr�fica", col.main="red") ################################################### ### chunk number 38: ################################################### plot(fagos, col="blue", type="o", ylab="Tama�o del genoma (en kb)", xlab="Los 10 fagos m�s grandes", main="Primera gr�fica", col.main="red", lty=2, lwd=2) ################################################### ### chunk number 39: ################################################### fagos2 <- seq(25, 250, by=25) ################################################### ### chunk number 40: ################################################### plot(fagos, col="blue", type="o", ylab="Tama�o del genoma (en kb)", xlab="Los 10 fagos m�s grandes", main="Segunda gr�fica", col.main="red") lines(fagos2, col="forest green", type="o", lty=2, lwd=1.5) ################################################### ### chunk number 41: ################################################### plot(fagos, col="blue", type="o", ylab="Tama�o del genoma (en kb)", xlab="Los 10 fagos m�s grandes", main="Segunda gr�fica", col.main="red") lines(fagos2, col="forest green", type="o", lty=2, lwd=1.5, pch=18) ################################################### ### chunk number 42: ################################################### plot(sort(fagos), col="blue", type="o", ylab="Tama�o del genoma (en kb)", xlab="Los 10 fagos m�s grandes", main="Segunda gr�fica", col.main="red") lines(fagos2, col="forest green", type="o", lty=2, lwd=1.5, pch=18) ################################################### ### chunk number 43: ################################################### args(abline) ################################################### ### chunk number 44: ################################################### plot(fagos, col="blue", type="o", ylab="Tama�o del genoma (en kb)", xlab="Los 10 fagos m�s grandes", main="Segunda gr�fica", col.main="red") lines(fagos2, col="forest green", type="o", lty=2, lwd=1.5, pch=18) abline(a = 200, b = 0, col="red") ################################################### ### chunk number 45: ################################################### plot(fagos, col="blue", type="o", ylab="Tama�o del genoma (en kb)", xlab="Los 10 fagos m�s grandes", main="Segunda gr�fica", col.main="red", ylim=c(150, 250)) lines(fagos2, col="forest green", type="o", lty=2, lwd=1.5, pch=18) abline(a = 200, b = 0, col="red") ################################################### ### chunk number 46: ################################################### plot(fagos2, fagos, col="blue", type="o", ylab="Tama�o del genoma (en kb)", xlab="Vector fagos2", main="3ra gr�fica", col.main="red") abline(a = 200, b = 0, col="red") ################################################### ### chunk number 47: eval=FALSE ################################################### ## ?pie ################################################### ### chunk number 48: ################################################### pub <- c(44, 42, 45) names(pub) <- c("Maria", "Jorge", "Pedro") pie(pub, col=heat.colors(3)) ################################################### ### chunk number 49: ################################################### barplot(pub, col=heat.colors(3)) ################################################### ### chunk number 50: ################################################### barplot(pub, col=c("blue", "green", "purple")) ################################################### ### chunk number 51: ################################################### barplot(pub, col=rainbow(3), ylim=c(41, 45), xpd=FALSE) ################################################### ### chunk number 52: ################################################### dotchart(pub, main="Publicaciones", col=rainbow(3), pch=16) ################################################### ### chunk number 53: ################################################### barplot(pub, col=rainbow(3), ylim=c(0, 55)) legend("top", names(pub), col=rainbow(3), pch=16) ################################################### ### chunk number 54: ################################################### plot(fagos, col="blue", type="o", ylab="Tama�o del genoma (en kb)", xlab="Los 10 fagos m�s grandes", main="Otra gr�fica", col.main="red") lines(fagos2, col="forest green", type="o", lty=2, lwd=1.5, pch=18) abline(a = 200, b = 0, col="red") legend("bottom", c("Fagos", "Fagos2"), col=c("blue", "forest green"), lty=c(1,2), pch=c(1, 18), lwd=c(1, 1.5)) ################################################### ### chunk number 55: ################################################### x <- runif(100) y <- rnorm(100) ################################################### ### chunk number 56: ################################################### islas <- sort(islands, decreasing=TRUE)[1:8] ################################################### ### chunk number 57: ################################################### sessionInfo()