
Asignación de variables
x<-3
y<-2
Impresión de resultados
x
## [1] 3
y
## [1] 2
Operaciones aritméticas
suma <- x+y
suma
## [1] 5
resta <- x-y
resta
## [1] 1
multiplicacion <- x*y
multiplicacion
## [1] 6
division <- x/y
division
## [1] 1.5
division_entera <- x%/%y
division_entera
## [1] 1
potencia <- x^2
potencia
## [1] 9
## Funciones matemáticas
raiz_cuadrada<- sqrt(x)
raiz_cuadrada
## [1] 1.732051
raiz_cubica <- x^(1/3)
raiz_cubica
## [1] 1.44225
exponencial <- exp(1)
exponencial
## [1] 2.718282
z<--4
z
## [1] -4
absoluto <- abs(z)
absoluto
## [1] 4
signo <- sign(z)
signo
## [1] -1
signo2<- sign(x)
signo2
## [1] 1
redondeo_arriba<- ceiling(x/y)
redondeo_arriba
## [1] 2
redondeo_abajo<- floor(x/y)
redondeo_abajo
## [1] 1
truncar <- trunc(division)
truncar
## [1] 1
Constantes
pi
## [1] 3.141593
radio<- 5
area_circulo<- pi*radio^2
area_circulo
## [1] 78.53982
Vectores
a <- c(1,2,3,4,5)
a
## [1] 1 2 3 4 5
longitud<- length(a)
longitud
## [1] 5
promedio<- mean(a)
promedio
## [1] 3
resumen<- summary(a)
resumen
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 1 2 3 3 4 5
orden_ascendente<- sort(a)
orden_ascendente
## [1] 1 2 3 4 5
?sort
orden_descendente <- sort(a,decreasing=TRUE)
orden_descendente
## [1] 5 4 3 2 1
b<- c(1,2,3,4,5)
b
## [1] 1 2 3 4 5
suma_vectores<- a+b
suma_vectores
## [1] 2 4 6 8 10
plot(a,b,type="b",main="Ventas totales por semana",xlab = "Semana",ylab = "MXN")

?plot
## Help on topic 'plot' was found in the following packages:
##
## Package Library
## graphics /Library/Frameworks/R.framework/Versions/4.2/Resources/library
## base /Library/Frameworks/R.framework/Resources/library
##
##
## Using the first match ...
LS0tCnRpdGxlOiAiQ29tYW5kb3MgYsOhc2ljb3MgUiIKYXV0aG9yOiAiTWFyaWFuYSBMZWFsIEzDs3BleiBBMDE1NzA5NzciCmRhdGU6ICIyMDIzLTAyLTE0IgpvdXRwdXQ6IAogIGh0bWxfZG9jdW1lbnQ6CiAgICB0b2M6IFRSVUUKICAgIHRvY19mbG9hdDogVFJVRQogICAgY29kZV9kb3dubG9hZDogVFJVRQotLS0KIVtdKC9Vc2Vycy9NYXJpYW5hL0Rlc2t0b3AvUkxPR08ucG5nKQoKIyMgQXNpZ25hY2nDs24gZGUgdmFyaWFibGVzCmBgYHtyfQp4PC0zCnk8LTIKYGBgCgoKIyMgSW1wcmVzacOzbiBkZSByZXN1bHRhZG9zCmBgYHtyfQp4CnkKYGBgCiMjIE9wZXJhY2lvbmVzIGFyaXRtw6l0aWNhcwpgYGB7cn0Kc3VtYSA8LSB4K3kKc3VtYQoKcmVzdGEgPC0geC15CnJlc3RhCgptdWx0aXBsaWNhY2lvbiA8LSB4KnkKbXVsdGlwbGljYWNpb24KCmRpdmlzaW9uIDwtIHgveQpkaXZpc2lvbgoKZGl2aXNpb25fZW50ZXJhIDwtIHglLyV5CmRpdmlzaW9uX2VudGVyYQoKcG90ZW5jaWEgPC0geF4yCnBvdGVuY2lhCgojIyBGdW5jaW9uZXMgbWF0ZW3DoXRpY2FzCmBgYHtyfQpyYWl6X2N1YWRyYWRhPC0gc3FydCh4KQpyYWl6X2N1YWRyYWRhCgpyYWl6X2N1YmljYSA8LSB4XigxLzMpCnJhaXpfY3ViaWNhCgpleHBvbmVuY2lhbCA8LSBleHAoMSkKZXhwb25lbmNpYWwKCno8LS00CnoKCmFic29sdXRvIDwtIGFicyh6KQphYnNvbHV0bwoKc2lnbm8gPC0gc2lnbih6KQpzaWdubwoKc2lnbm8yPC0gc2lnbih4KQpzaWdubzIKCgpyZWRvbmRlb19hcnJpYmE8LSBjZWlsaW5nKHgveSkKcmVkb25kZW9fYXJyaWJhCgpyZWRvbmRlb19hYmFqbzwtIGZsb29yKHgveSkKcmVkb25kZW9fYWJham8KCnRydW5jYXIgPC0gdHJ1bmMoZGl2aXNpb24pCnRydW5jYXIKYGBgCgojIyBDb25zdGFudGVzCmBgYHtyfQpwaQpyYWRpbzwtIDUKYXJlYV9jaXJjdWxvPC0gcGkqcmFkaW9eMgphcmVhX2NpcmN1bG8KYGBgCgojIyBWZWN0b3JlcwpgYGB7cn0KYSA8LSBjKDEsMiwzLDQsNSkKYQoKbG9uZ2l0dWQ8LSBsZW5ndGgoYSkKbG9uZ2l0dWQKCnByb21lZGlvPC0gbWVhbihhKQpwcm9tZWRpbwoKcmVzdW1lbjwtIHN1bW1hcnkoYSkKcmVzdW1lbgoKb3JkZW5fYXNjZW5kZW50ZTwtIHNvcnQoYSkKb3JkZW5fYXNjZW5kZW50ZQoKP3NvcnQKCm9yZGVuX2Rlc2NlbmRlbnRlIDwtIHNvcnQoYSxkZWNyZWFzaW5nPVRSVUUpCm9yZGVuX2Rlc2NlbmRlbnRlCgpiPC0gYygxLDIsMyw0LDUpCmIKCnN1bWFfdmVjdG9yZXM8LSBhK2IKc3VtYV92ZWN0b3JlcwoKcGxvdChhLGIsdHlwZT0iYiIsbWFpbj0iVmVudGFzIHRvdGFsZXMgcG9yIHNlbWFuYSIseGxhYiA9ICJTZW1hbmEiLHlsYWIgPSAiTVhOIikKP3Bsb3QKYGBg