#Obtener el logaritmo de 8

log(8)
## [1] 2.079442

Obtener el número de Euler

exp(1)
## [1] 2.718282

#Obtener la in Exp(1)

log(exp(1))
## [1] 1
5*4
## [1] 20

#Obtener el número pi

pi
## [1] 3.141593

#Ecuación cuadrática

a<-3
b<-2
c<--1
ls()
## [1] "a" "b" "c"
solution_1<-(-b+sqrt(b^2-4*a*c))/(2*a)

solution_1
## [1] 0.3333333
solution_2<-(-b-sqrt(b^2-4*a*c))/(2*a)
solution_2
## [1] -1
log(8)
## [1] 2.079442
log(exp(1))
## [1] 1
n<-1000
x<-seq(1,n)
sum(x)
## [1] 500500

#Matrices

m1 <- matrix(1:20, nrow = 4, ncol = 5)
print(m1)
##      [,1] [,2] [,3] [,4] [,5]
## [1,]    1    5    9   13   17
## [2,]    2    6   10   14   18
## [3,]    3    7   11   15   19
## [4,]    4    8   12   16   20
#Nota que para hacer alusión a un elemento particular de una matriz se deben especificar dos subíndices, el primero para el reglón y el segundo para la columna. Así, si queremos saber el valor del elemento en el renglón 3, columna 2, debemos escribir:

m1[1,1]
## [1] 1
m1[3,3]
## [1] 11
m1[4,5]
## [1] 20
#Para obtener un renglón completo de una matriz, por ejemplo e renglón 4, escribimos:
m1[1,]
## [1]  1  5  9 13 17
m1[4,]
## [1]  4  8 12 16 20
#Nos arroja dos componentes de la fila 2
m1[2, 1:2]
## [1] 2 6

#Generación de un data frame (Tabla)

idv <- 1:4
nombrev<-c("Alexa","Jazmin", "Walter", "Obbed")
edadv <- c(19, 22, 21, 23)
carrerav <- c("LAF", "LIT", "IIS","LLN")

Midf <- data.frame(id = 1:4,nombre = c("Alexa","Jazmin", "Walter", "Obbed"),edad = c(19, 22, 21, 23),carrera = c(c("LAF", "LIT", "IIS","LLN")))

str(Midf)
## 'data.frame':    4 obs. of  4 variables:
##  $ id     : int  1 2 3 4
##  $ nombre : chr  "Alexa" "Jazmin" "Walter" "Obbed"
##  $ edad   : num  19 22 21 23
##  $ carrera: chr  "LAF" "LIT" "IIS" "LLN"