A11_MAE118_GR16051

DESARROLLO DE LA GUIA I

library(ggplot2)
library(dplyr)

## 
## Adjuntando el paquete: 'dplyr'

## The following objects are masked from 'package:stats':
## 
##     filter, lag

## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union

Precio <- 12.5
class(Precio)

## [1] "numeric"

# Efectivamente, es numérico.
Cantidad <- 100L
class(Cantidad)

## [1] "integer"

Universidad <- "Universidad de El Salvador"
class(Universidad)

## [1] "character"

Es_Estudiante <- T
class(Es_Estudiante)

## [1] "logical"

#Tenemos un número guardado como texto
Salario_txt <- "1500"
class(Salario_txt)

## [1] "character"

#Conviertiéndolo a número real
Salario_num <- as.numeric(Salario_txt)
class(Salario_num)

## [1] "numeric"

Salario_num

## [1] 1500

Salario_txt

## [1] "1500"

as.logical(0)

## [1] FALSE

as.logical(1)

## [1] TRUE

Precio_producto <- 15
Unidades_vendidas <- 48
Ingreso_total <- Precio_producto * Unidades_vendidas
print(Ingreso_total)

## [1] 720

ISR <- Ingreso_total/10 #Calculando el 10% de retención
Ingreso_neto <- Ingreso_total - ISR
print(ISR)

## [1] 72

print(Ingreso_neto)

## [1] 648

area_cuadrada <- 10**10
print(area_cuadrada)

## [1] 1e+10

class(area_cuadrada)

## [1] "numeric"

area_alt <- 10^2
print(area_alt)

## [1] 100

raiz_cuadrada <- sqrt(area_cuadrada)
print(raiz_cuadrada)

## [1] 1e+05

raiz_alt <- sqrt(area_alt)
print(raiz_alt)

## [1] 10

raiz_alt = raiz_cuadrada

Precio_producto == 35 #¿El precio es igual a $35?

## [1] FALSE

Precio_producto != 35 #¿Entonces es diferente?

## [1] TRUE

Ingreso_total == 720

## [1] TRUE

Ingreso_total < 721

## [1] TRUE

Ingreso_total > 721

## [1] FALSE

Unidades_vendidas >= 44

## [1] TRUE

Unidades_vendidas <= 47

## [1] FALSE