Introducción

Este proyecto consiste en el análisis financiero de los reportes trimestrales de dos empresas, utilizando el marco de referencia de la clase de Finanzas Corporativas y haciendo uso de la herramienta R, en conjunción con rmarkdown.

El trabajo se realizará en equipos de 3 personas. Cada equipo le será asignado una empresa para analizar, la segunda es la empresa P&G con el que se ha trabajo en clases.

Se deberá entregar un archivo .rmarkdown que contenga los scripts y los textos, junto con un word (o html) generado por dicho markdown.

Para reducir el riesgo de errores, se recomienda encarecidamente que se instale la última versión de R (3.6.1 al momento de redacción), y finalmente que se actualizen a la ultima versión todas las paqueterías usando el siguiente script:

update.packages(ask = FALSE)

Se pide al alumno usar la librería de pander para imprimir tablas. Este puede ser instalado corriendo el siguiente script:

install.packages(‘pander’)

Para la realización del proyecto, se dará a cada equipo dos archivos .rds con los estados financieros de dos empresas. Cada uno es una lista que contiene tres data.tables (balance_sheet, income_statement y cash_flow). Para que R pueda leer los .rds, deben guardar el rscript o rmarkdown primero, y después pasar los archivos al directorio del proyecto. Finalmente use este script:

data <- readRDS(“pg-statement.rds”)

Entregables

  1. Breve introducción del proyecto que incluya los objetivos, descripción de las empresas investigadas, descripción del proceso, marco teórico utilizado y resultados. (Max. 2 cuartillas)

  2. Tabla por empresa con tres columnas: concepto (element) y dos columnas con los valores reportados (por ejemplo 2018 y 2019). Ej:

  pandoc.table(
    balance[1:4, cols],
    style = 'rmarkdown',
    split.table = 300,
    justify = c("left", "right", "right"),
    col.names = c("Concepto", "2018", "2019"),
    emphasize.strong.rows = which(balance[1:4,]$level == 1)
  )
Concepto 2018 2019
Assets 118310 121673
   Assets, Current 23320 22312
     Cash and Cash Equivalents, at Carrying Value 2569 2738
     Available-for-sale Securities, Current 9281 7085
  1. Tabla por empresa con 5 columnas: concepto, porcientos integrales, variacion y variacion porcentual. Este debe seguir con una nota donde se realiza un breve analisis de cada empresa y se realiza una comparación. Ej:
Concepto P.I. 2018 (%) P.I. 2019 (%) Var. 2018 (%) Var. P.I. 2018 (%)
Assets 3.43 4.02 3.01 -0.59
  1. Sección de razones financieras. Cada razón debe tener un título (#### Subtitulo en markdown) seguido de la fórmula de la razón, los resultados y un breve análisis y comparación. Se deben realizar todas las razones financieras vistas en la presentación de clase. Ej:

Rotación de activos totales

# Asignar elementId como nombre de las filas de ambos estados
rownames(balance) <- balance$elementId
rownames(estado) <- estado$elementId

# Indices de columnas fecha
b.2018 <- which(startsWith(colnames(balance), "2018"))
b.2019 <- which(startsWith(colnames(balance), "2019"))
e.2018 <- which(startsWith(colnames(estado), "2018"))
e.2019 <- which(startsWith(colnames(estado), "2019"))

Rot.Inv.2018 <- round(
  estado["us-gaap_Revenues", e.2018] / balance["us-gaap_Assets", b.2018],
  2)
Rot.Inv.2019 <- round(
  estado["us-gaap_Revenues", e.2019] / balance["us-gaap_Assets", b.2019],
  2)

\[RI=\frac{Ventas}{Activos_{Totales}}\]

La rotación de activos de P&G de 2018 y 2019 fue de \(RI_{2018}=\) 0.43 y \(RI_{2019}=\) 0.42

  1. Conclusiones

Calificaciones