Asignacion de variables

x<-3
y<-2

Impresion de resultados

x
## [1] 3
y
## [1] 2

Operaciones aritmeticas

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 matematicas

raiz_cuadrada <- sqrt(x)
raiz_cuadrada
## [1] 1.732051
raiz_cubica <-(1/3)
raiz_cubica
## [1] 0.3333333
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
## starting httpd help server ... done
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
LS0tDQp0aXRsZTogIkNPTUFORE9TIEJBU0lDT1MgUiINCmF1dGhvcjogIkxlc2x5IERhcmlhbiBSb21lcm8gVmF6cXVleiAtIEEwMTc3MTEyNyINCmRhdGU6ICIyMDIzLTAyLTE3Ig0Kb3V0cHV0Og0KICBodG1sX2RvY3VtZW50Og0KICAgIHRvYzogdHJ1ZQ0KICAgIHRvY19mbG9hdDogdHJ1ZQ0KICAgIGNvZGVfZG93bmxvYWQ6IHRydWUNCi0tLQ0KDQohW10oQzpcXFVzZXJzXFxsZXNkYVxcT25lRHJpdmVcXEVzY3JpdG9yaW9cXFJfUkxvZ28ud2luZS5wbmcpDQoNCiMjIEFzaWduYWNpb24gZGUgdmFyaWFibGVzDQpgYGB7cn0NCng8LTMNCnk8LTINCmBgYA0KDQojIyBJbXByZXNpb24gZGUgcmVzdWx0YWRvcw0KYGBge3J9DQp4DQp5DQpgYGANCg0KIyMgT3BlcmFjaW9uZXMgYXJpdG1ldGljYXMNCmBgYHtyfQ0Kc3VtYSA8LSB4K3kNCnN1bWENCg0KcmVzdGEgPC0geC15DQpyZXN0YQ0KDQptdWx0aXBsaWNhY2lvbiA8LSB4KnkNCm11bHRpcGxpY2FjaW9uDQoNCmRpdmlzaW9uIDwtIHgveQ0KZGl2aXNpb24NCg0KZGl2aXNpb25fZW50ZXJhIDwtIHglLyV5DQpkaXZpc2lvbl9lbnRlcmENCg0KcG90ZW5jaWEgPC0geF4yDQpwb3RlbmNpYQ0KYGBgDQoNCiMjIEZ1bmNpb25lcyBtYXRlbWF0aWNhcw0KYGBge3J9DQpyYWl6X2N1YWRyYWRhIDwtIHNxcnQoeCkNCnJhaXpfY3VhZHJhZGENCg0KcmFpel9jdWJpY2EgPC0oMS8zKQ0KcmFpel9jdWJpY2ENCg0KZXhwb25lbmNpYWwgPC0gZXhwKDEpDQpleHBvbmVuY2lhbA0KDQp6IDwtIC00DQp6DQoNCmFic29sdXRvIDwtIGFicyh6KQ0KYWJzb2x1dG8NCg0Kc2lnbm8gPC0gc2lnbih6KQ0Kc2lnbm8NCg0Kc2lnbm8yIDwtIHNpZ24oeCkNCnNpZ25vMg0KDQpyZWRvbmRlb19hcnJpYmEgPC0gY2VpbGluZyh4L3kpDQpyZWRvbmRlb19hcnJpYmENCg0KcmVkb25kZW9fYWJham8gPC0gZmxvb3IgKHgveSkNCnJlZG9uZGVvX2FiYWpvDQoNCnRydW5jYXIgPC0gdHJ1bmMoZGl2aXNpb24pDQp0cnVuY2FyDQoNCmBgYA0KDQojIyBDb25zdGFudGVzDQpgYGB7cn0NCnBpDQpyYWRpbzwtNQ0KYXJlYV9jaXJjdWxvIDwtIHBpKnJhZGlvXjINCmFyZWFfY2lyY3Vsbw0KDQpgYGANCg0KIyMgVmVjdG9yZXMNCmBgYHtyfQ0KYSA8LSBjKDEsMiwzLDQsNSkNCmENCg0KbG9uZ2l0dWQgPC0gbGVuZ3RoKGEpDQpsb25naXR1ZA0KDQpwcm9tZWRpbyA8LSBtZWFuKGEpDQpwcm9tZWRpbw0KDQpyZXN1bWVuIDwtIHN1bW1hcnkoYSkNCnJlc3VtZW4NCg0Kb3JkZW5fYXNjZW5kZW50ZSA8LSBzb3J0KGEpDQpvcmRlbl9hc2NlbmRlbnRlDQoNCj9zb3J0DQoNCm9yZGVuX2Rlc2NlbmRlbnRlIDwtIHNvcnQoYSxkZWNyZWFzaW5nPVRSVUUpDQpvcmRlbl9kZXNjZW5kZW50ZQ0KDQpiIDwtIGMoMSwyLDMsNCw1KQ0KYg0KDQpzdW1hX3ZlY3RvcmVzIDwtIGErYg0Kc3VtYV92ZWN0b3Jlcw0KDQpwbG90KGEsYiwgdHlwZT0iYiIsIG1haW49IlZlbnRhcyBUb3RhbGVzIHBvciBTZW1hbmEiLCB4bGFiPSJTZW1hbmEiLCB5bGFiPSJNWE4iKQ0KP3Bsb3QNCg0KYGBgDQoNCg==