Arian Rios
16/1/2022
Entrada de los ingresos y gastos (vectores):
ingresos <- c(14574.49, 7606.46, 8611.41, 9175.41, 8058.65, 8105.44, 11496.28, 9766.09, 10305.32, 14379.96, 10713.97, 15433.50)
gastos <- c(12051.82, 5695.07, 12319.20, 12089.72, 8658.57, 840.20, 3285.73, 5821.12, 6976.93, 16618.61, 10054.37, 3803.96)
Calcular Utilidad como la Diferencia de Ingreso y Gasto:
utilidad <- ingresos - gastos
utilidad
## [1] 2522.67 1911.39 -3707.79 -2914.31 -599.92 7265.24 8210.55 3944.97
## [9] 3328.39 -2238.65 659.60 11629.54
Calcular el Impuesto como el 30% de la Utilidad y Redondear a 2 Puntos Decimales:
impuesto <- round(0.30 * utilidad,2)
impuesto
## [1] 756.80 573.42 -1112.34 -874.29 -179.98 2179.57 2463.17 1183.49
## [9] 998.52 -671.60 197.88 3488.86
Calcular la Utilidad Después de Impuestos:
utilidad.despues.de.impuestos <- utilidad - impuesto
utilidad.despues.de.impuestos
## [1] 1765.87 1337.97 -2595.45 -2040.02 -419.94 5085.67 5747.38 2761.48
## [9] 2329.87 -1567.05 461.72 8140.68
Calcular el Margen de Utilidad como Utilidad Después de Impuestos sobre Ingresos
Redondear a 2 Puntos Decimales, Luego Multiplicar por 100 para obtener el %:
margen.de.utilidad <- round(utilidad.despues.de.impuestos / ingresos, 2) * 100
margen.de.utilidad
## [1] 12 18 -30 -22 -5 63 50 28 23 -11 4 53
Calcular el promedio para los 12 meses de la Utilidad Después de Impuestos:
promedio.utilidad.despues.de.impuestos <- round(median(utilidad.despues.de.impuestos), 0)
promedio.utilidad.despues.de.impuestos
## [1] 1552
Encuentra los Meses Utilidad Después de Impuestos por encima de la Media:
meses.buenos <- utilidad.despues.de.impuestos > promedio.utilidad.despues.de.impuestos
meses.buenos
## [1] TRUE FALSE FALSE FALSE FALSE TRUE TRUE TRUE TRUE FALSE FALSE TRUE
Los Meses Malos son el Opuesto a los Meses Buenos:
meses.malos <- !meses.buenos
meses.malos
## [1] FALSE TRUE TRUE TRUE TRUE FALSE FALSE FALSE FALSE TRUE TRUE FALSE
El Mejor Mes es Donde la Utilidad Después de Impuestos es Igual al Máximo:
mejor.mes <- utilidad.despues.de.impuestos == max(utilidad.despues.de.impuestos)
mejor.mes
## [1] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE TRUE
El Peor Mes es Donde la Utilidad Después de Impuestos es Igual al Mínimo:
peor.mes <- utilidad.despues.de.impuestos == min(utilidad.despues.de.impuestos)
peor.mes
## [1] FALSE FALSE TRUE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
Convierte Todos los Cálculos a Unidades de Mil Dólares:
ingresos.1000 <- round(ingresos / 1000, 0)
gastos.1000 <- round(gastos / 1000, 0)
utilidad.1000 <- round(utilidad / 1000, 0)
utilidad.despues.de.impuestos.1000 <- round(utilidad.despues.de.impuestos / 1000, 0)
Imprime los Resultados
ingresos.1000
## [1] 15 8 9 9 8 8 11 10 10 14 11 15
gastos.1000
## [1] 12 6 12 12 9 1 3 6 7 17 10 4
utilidad.1000
## [1] 3 2 -4 -3 -1 7 8 4 3 -2 1 12
utilidad.despues.de.impuestos.1000
## [1] 2 1 -3 -2 0 5 6 3 2 -2 0 8
margen.de.utilidad
## [1] 12 18 -30 -22 -5 63 50 28 23 -11 4 53
meses.buenos
## [1] TRUE FALSE FALSE FALSE FALSE TRUE TRUE TRUE TRUE FALSE FALSE TRUE
meses.malos
## [1] FALSE TRUE TRUE TRUE TRUE FALSE FALSE FALSE FALSE TRUE TRUE FALSE
mejor.mes
## [1] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE TRUE
peor.mes
## [1] FALSE FALSE TRUE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
PORTAFOLIO WEB AQUÍ