Introducción a Data Science: Programación Estadística con R
Esta es la documentación del curso de programación en R junto a las respectivas sesiones y tareas a realizar cada semana.
En este documento se recopilaron todas las instrucciones que el curso solicitaba por consola para cada tarea.
Sesión 1
install.packages("curl",dependencies = TRUE)
install.packages("httr",dependencies = TRUE)
install.packages("swirl",dependencies = TRUE)
library("swirl")
select_language()
install_course_github("ifunam", "programacion-estadistica-r")
help.start()
?print
help('-')
apropos("class")
example("read.table")
??regression
help.search("regression")
library(help="stats")
vignette("tests")
vignette()
Sesión 2
3+7
mi_variable <- (180/6)-15
(180/6)-15 -> mi_variable
mi_variable
y <-c(561,1105,1729,2465, 2821)
print(y)
1:100
c(1.1, 2.2, 3.3, 4.4) - c(1, 1, 1, 1)
c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10) - c(1, 2)
ls()
"¡Hola Mundo!"
colores <- c("rojo","azul","verde","azul","rojo")
print(colores)
complejo<-2+1i
mi_variable==15
length(complejo)<-3
print(complejo)
2^1024
0/0
fecha_primer_curso_R <-Sys.Date()
print(fecha_primer_curso_R)
vector("numeric", length= 10)
vector("character", length = 10)
vector("logical",length = 10)
list(0,"Hola",TRUE)
c(T, 19, 1+3i)
c<-vector("numeric",length = 5)
print(c)
as.logical(c)
class(c)
class(as.logical(c))
m <- matrix(data=1:12,nrow=4,ncol=3)
print(m)
factor(colores)
data.frame(llave=y,color=colores)
Sesion3
mi_vector <- 11:30
print(mi_vector)
mi_vector[3]
mi_vector[c(1,2,3,4,5)]
mi_vector[c(4,6,13)]
mi_vector[c(6,13,4)]
mi_vector[[3]]
mi_vector[-9:-15]
mi_vector[rep(c(TRUE,FALSE),10)]
mi_vector[c(FALSE,FALSE,TRUE)]
mi_vector > 20
mi_arreglo <-array(c(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18),dim=c(3,3,2))
print(mi_arreglo)
mi_arreglo[1,3,2]
mi_arreglo[1:2,1:2,1]
mi_matriz<- matrix(1:9,nrow=3,ncol=3)
mi_matriz[1,]
mi_matriz[,1]
mi_matriz[2:3,]
mi_matriz[c(1,3),]
carro <-list(color="rojo", nllantas=4, marca="Renault", ncilindros=4)
carro$color
carro[c("ncilindros","nllantas")]
carro[["marca"]]
carro[["mar",exact=FALSE]]
camioneta <-list(color="azul", nllantas=4, marca= "BMW",ncilindros=6)
cochera <- list(carro, camioneta)
cochera
cochera[[c(2, 1)]]
cars
cars$speed
cars$dist>100
cars$speed[cars$dist>100]
Sesión 4
datos <- read.table("swirl_temp/inmigintnalpry.csv",header=TRUE, sep=",", fileEncoding = "latin1")
datos_2 <- read.table("swirl_temp/inmigintnalpry.csv", header=TRUE, sep=",")
View(datos)
inicial <-read.table("swirl_temp/inmigintnalpry.csv", header=TRUE, sep=",", fileEncoding = "latin1", nrow = 100)
clases <- sapply(inicial, class)
clases
datos <- read.table("swirl_temp/inmigintnalpry.csv",header=TRUE, sep=",", fileEncoding = "latin1", colClasses=clases)
save(datos, clases,file="swirl_temp/datos_inmigrates.RData")
save(datos,file="C:/Documents and Settings/Mi Usuario/Mis Documentos/datos_inmigrates.RData")
rm(datos,clases)
ls()
load("swirl_temp/datos_inmigrates.RData")
ls()
write.table(datos,file="swirl_temp/datos.txt")
help(write.csv)
Sesión 5
c(1, 03, 2016)
sucesor <- function(x) { #Funcion sucesor
x + 1
}
sucesor(5)
sucesor
diferencia_cuadrada <- function(x, y=2) { #funcion diferencia_cuadrada
x^2 - y^2
}
diferencia_cuadrada(3)
diferencia_cuadrada(10, 5)
diferencia_cuadrada(y = 10, x = 5)
numeros_por_vocales <- function(...){ #Funcion Vocales
chartr("aeio", "4310", tolower(paste(...)))
}
numeros_por_vocales()
formals(mean)
#operador Binario
operador_binario <- function(fun, a, b){ #Función operador binario
fun(a, b)
}
operador_binario(`%/%`, 7, 3)
Sesión 6
help("apply")
mi_matriz <- matrix(data=1:16,nrow=4, ncol=4)
mi_matriz
apply(X=mi_matriz, MARGIN=2, FUN=min)
apply(mi_matriz, 1, min)
mi_lista <- list("Introducción", "a", "la", "Programación", "Estadística", "con", "R")
mi_lista
formals(lapply)
mayusculas <- lapply(mi_lista, toupper)
mayusculas
class(mayusculas)
asa_datos <- read.csv("swirl_temp/ASA_estadisticasPasajeros(3).csv")
View(asa_datos)
lapply(asa_datos, class)
asa_datos$Descripcion
unique(asa_datos$Descripcion)
unique(asa_datos$Estado)
sum(asa_datos$Pasajeros.nacionales)
asa_pasajeros <-asa_datos[,c("Pasajeros.nacionales", "Pasajeros.internacionales")]
View(asa_pasajeros)
lapply(asa_pasajeros, sum)
total_pasajeros <- sapply(asa_pasajeros, sum)
total_pasajeros
table(asa_datos$Estado)
tapply(asa_datos$Pasajeros.nacionales, asa_datos$Estado, sum)
tapply(asa_datos$Pasajeros.nacionales, asa_datos$Codigo.IATA, mean)
Sesion 7
demo(graphics)
plot(1:5)
plot(c(1, 2, 3), c(4, 5, 6))
?plot
plot(c(1, 2, 3), c(4, 5, 6), type="l")
plot(6:10, type="s")
plot(1:10, type="b")
plot(1:5, main="Mi gráfica")
plot(1:5, main="Mi gráfica", xlab="x", ylab="y")
points(c(1, 5), c(4, 2), col="green")
lines(c(1, 4), c(2, 5), col="yellow")
abline(h=3,col="red",lty=2)
abline(v=3,col="red",lty=2)
abline(h=1:5,v=1:5, col="purple")
data("iris")
class(iris)
head(iris)
plot(iris)
plot(iris$Petal.Length, iris$Petal.Width)
hist(iris$Petal.Length, col="red")
hist(iris$Petal.Length, col="red", freq=FALSE)
hist(iris$Petal.Length, col="red", breaks=5)
?boxplot
boxplot(Sepal.Width ~ Species, data=iris, col=2:4)
pie(c(50, 50, 50), labels=levels(iris$Species))
Sesion 8
?par
par()
par_orig <- par()
par("col")
par(col="blue")
data("iris")
plot(iris)
par("col")
plot(iris, col=iris$Species)
names(iris)
plot(iris$Sepal.Length, iris$Petal.Length,col = iris$Species)
par(pch=15)
plot(iris$Sepal.Length,iris$Petal.Length, col = iris$Species)
plot(iris$Sepal.Length,iris$Petal.Length, col = iris$Species,pch="A")
plot(iris$Sepal.Length, iris$Petal.Length,col = iris$Species)
plot(1:26,pch=0:25)
plot(iris$Sepal.Length, iris$Petal.Length,col = iris$Species, pch = 21, bg = "blue")
plot(iris$Sepal.Length, iris$Petal.Length, col = iris$Species, cex = 2)
plot(iris$Sepal.Length, iris$Petal.Length,col = iris$Species, cex = 2)
legend(x = 4.5, y = 7, legend =levels(iris$Species), col = c(1:3), pch =16)
par(par_orig)
Sesión 9
colors()
help("grep")
grep("yellow", colors(), value=TRUE)
length(colors())
palette()
plot(1:8, col=1:8, main="Colores por índice", pch=17, cex=3)
plot(1:12, col=1:12,main="Colores reciclados", pch=18, cex=3)
paleta_arcoiris <- rainbow(10)
paleta_arcoiris
palette(paleta_arcoiris)
palette()
plot(1:10, col=1:10, main="Paleta Arcoiris",pch=17, cex=3)
paleta_calida <- heat.colors(10)
palette(paleta_calida)
plot(1:10, col=1:10, main="Paleta Cálida",pch=17, cex=3)
mi_paleta <- c("red", "green", "#0019FFFF")
plot(1:10, col=mi_paleta, main="Mi Paleta",pch=17, cex=3)
palette(mi_paleta)
plot(1:10, col=1:10, main="Mi Paleta",pch=17, cex=3)
palette("default")
Sesión 10
plot(1:20, type="n")
text(5, 5, "¡Hola Mundo!")
?text
text(11, 11, "¡Hola Mundo! x2", cex=2)
text(7, 7, "¡Hola Mundo con Serif!", family="serif")
text(9, 9, "¡Hola Mundo con Mono!", family="mono")
text(13, 13, "¡Hola Mundo con Sans!", family="sans")
demo(plotmath)
plot(1:10,type="n", main=expression(alpha + beta))
plot(1:10, type="n", xlab =expression(paste("Valores de ", x^phi1)))
?plotmath
t <- 10
plot(1:t, main=substitute(paste("La gráfica del vector 1:", x), list(x=t)))
t<- 20
plot(1:t, main=substitute(paste("La gráfica del vector 1:", x), list(x=t)))
?substitute
Sesión 11
data(iris)
head(iris)
x <- iris$Sepal.Length
y <- iris$Petal.Length
z <- iris$Sepal.Width
?rgl
open3d()
plot3d(iris$Sepal.Length, iris$Petal.Length, iris$Sepal.Width)
plot3d(iris$Sepal.Length, iris$Petal.Length, iris$Sepal.Width, type="s")
plot3d(iris$Sepal.Length, iris$Petal.Length, iris$Sepal.Width, type="s", col=rainbow(150))
plot3d(iris$Sepal.Length, iris$Petal.Length, iris$Sepal.Width, type="s", col=as.integer(iris$Species))
plot3d(iris$Sepal.Length, iris$Petal.Length, iris$Sepal.Width, type="s", col=as.integer(iris$Species), radius=1.5)
plot3d(iris$Sepal.Length, iris$Petal.Length, iris$Sepal.Width, type="l", col=as.integer(iris$Species), xlab ="Sepal.Length", ylab = "Petal.Length", zlab = "Sepal.Width")
?plot3d
Sesión 12
texto <- "¡Hola Mundo!"
texto[1]
texto[2]
?substring
substring(texto, 7, 11)
substring(texto, 7, 11) <- "Swirl"
texto
nchar(texto)
paste("¡Adiós", "Mundo!")
paste("¡Adiós", "Mundo!", sep="_")
i <-9
sprintf("El cuadrado de %d es %d", i, i^2)
?sprintf
strsplit("Me/gusta/programar/en/R", "/")
chartr("o", "a", "¡Hola Mundo!")
patron <- "H(a|ä|ae)ndel"
musicos
grep(patron, musicos)
nuevo_patron <- ".(a|ä|ae|e)ndel"
grep(nuevo_patron, musicos)
regexpr(patron,musicos)
gregexpr(patron, "Georg Friedrich Händel, en inglés George Frideric Handel fue un compositor alemán.")
?regexpr
Sesión 13
data(diamonds)
View(diamonds)
?qplot
qplot(color, data=diamonds)
qplot(carat, price, data=diamonds)
qplot(log(carat), log(price), data=diamonds)
qplot(carat, x*y*z,data=diamonds)
qplot(carat, price, data=diamonds, color=color)
qplot(carat, price, data=diamonds, shape=cut)
qplot(carat, price,data=diamonds, alpha=I(1/10))
qplot(carat, price, data=diamonds, alpha=I(1/100))
qplot(carat, price, data=diamonds, size=table)
qplot(carat, price, data=diamonds, facets = color ~ .)
qplot(carat, price, data=diamonds, geom = c("point","smooth"))
qplot(color, price/carat, data=diamonds, geom = "jitter")
qplot(color, price/carat, data=diamonds, geom = "boxplot")
Sesión 14
?Normal
help(Distributions)
?rbinom
rbinom(1, 7, 0.5)
resultado <- rbinom(100000, 7, 0.5)
tail(resultado)
tail(resultado > 5)
mean(resultado > 5)
?set.seed
Estas son todas las instrucciones del curso en R, a continuación se adjuntara la imagen de “avance de curso” respectiva a esta certificación