Comandos Básicos R

Operaciones básicas

x = 3
y = 2
x
## [1] 3
y
## [1] 2
resta = x-y
resta
## [1] 1
multi = x*y
multi
## [1] 6
divi = x/y
divi
## [1] 1.5
divi_ent = x%/%y
divi_ent
## [1] 1
resi = x%%y
resi
## [1] 1
potencia = x^2
potencia
## [1] 9
expo = exp(1)
expo
## [1] 2.718282
absoluto = abs(x)
absoluto
## [1] 3
signo = sign(x)
signo
## [1] 1
redondeo = ceiling(divi)
redondeo
## [1] 2
redondeo_abajo = floor(divi)
redondeo_abajo
## [1] 1
truncar = trunc(divi)
truncar
## [1] 1
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
b = c(1:100)
b
##   [1]   1   2   3   4   5   6   7   8   9  10  11  12  13  14  15  16  17  18
##  [19]  19  20  21  22  23  24  25  26  27  28  29  30  31  32  33  34  35  36
##  [37]  37  38  39  40  41  42  43  44  45  46  47  48  49  50  51  52  53  54
##  [55]  55  56  57  58  59  60  61  62  63  64  65  66  67  68  69  70  71  72
##  [73]  73  74  75  76  77  78  79  80  81  82  83  84  85  86  87  88  89  90
##  [91]  91  92  93  94  95  96  97  98  99 100
c = seq(2,5, by=0.5)
c
## [1] 2.0 2.5 3.0 3.5 4.0 4.5 5.0
d = rep(1:2, times=3)
d
## [1] 1 2 1 2 1 2
e = rep(1:2, each=3)
e
## [1] 1 1 1 2 2 2
f = c("pera", "manzana", "kiwi", "fresa")
f
## [1] "pera"    "manzana" "kiwi"    "fresa"
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_Ascenden = sort(a)
orden_Ascenden
## [1] 1 2 3 4 5
orden_descenden = sort(a, decreasing=TRUE)
orden_descenden
## [1] 5 4 3 2 1
g = c(1,2,3,4,5)
suma_vect = a+g
suma_vect
## [1]  2  4  6  8 10

Gráficas

plot(a,g, main="Ventas por Mes", xlab="Mes", ylab="M USD", type ="b")

Condicionales

if (x>= 70){
  print("pasa")
} else{
    print("no pasa")
}
## [1] "no pasa"

Tabla

df1 = data.frame(a,g)
df1
##   a g
## 1 1 1
## 2 2 2
## 3 3 3
## 4 4 4
## 5 5 5

Ejercicio 1

nom = c("fer", "luis", "victor")
peso = c(60, 80, 70)
alt = c(1.58, 1.80, 1.70)
df = data.frame(nom,alt,peso)
df$IMC = df$peso/df$alt^2
df
##      nom  alt peso      IMC
## 1    fer 1.58   60 24.03461
## 2   luis 1.80   80 24.69136
## 3 victor 1.70   70 24.22145

df$estado = ifelse(df$IMC < 18.5, "Bajo peso",
             ifelse(df$IMC < 25, "Normal",
             ifelse(df$IMC < 30, "Sobrepeso", "Obesidad")))
df
##      nom  alt peso      IMC    estado
## 1    fer 1.58   60 24.03461    Normal
## 2   luis 1.80   80 24.69136    Normal
## 3 victor 1.70   70 24.22145    Normal