##para guardar una un dato en variable **Tipo de dato numerico**
Precio1<-34.5
Precio2<-50
class(Precio1)
## [1] "numeric"
##En tipo de dato **entero**
Cantidad_L<-85L
class(Cantidad_L)
## [1] "integer"
##Tipo de dato **Texto**
UES<-"Universidad de El Salvador"
class(UES)
## [1] "character"
##para un tipo de dato logico
Estudiante<-TRUE
class(Estudiante)
## [1] "logical"
#comandos de Coercion
##Variable de tipo de dato **texto a numerico**
Salario_W<-"1100"
class(Salario_W)
## [1] "character"
Sal_W<-as.numeric(Salario_W)
class(Sal_W)
## [1] "numeric"
##convertimos numero a operador logico
as.logical(0)
## [1] FALSE
## [1] TRUE
#Operadores Aritmeticos
Precio<-12
Unidades_V<-35
Ingresos<-Precio*Unidades_V
print(Ingresos)
## [1] 420
impuesto_IVA<-0.13
Impuestos_Totales<-Ingresos*impuesto_IVA
print(Impuestos_Totales)
## [1] 54.6
##raiz cuadrada
Expo<-4^3
Rai<-sqrt(Expo)
print(Rai)
## [1] 8
# Operaciones Relacionales
## Comparacion de igualdad e indiferencia
Precio==12
## [1] TRUE
## [1] FALSE
## [1] FALSE