Publications by Ostin Molina
Laboratorio 1
El consumo de la energía eléctrica depende del PIB per cápita y el precio de la energía eléctrica La energía eléctrica es cada vez más importante a nivel mundial, debido a que forma parte del crecimiento y desarrollo económico del país tomando en cuenta que conforme avanza la tecnología y con la modernización de las ciudades enton...
3070 sym R (1777 sym/13 pcs) 1 img
Laboratorio 8
LAB 8 library(vars) ## Warning: package 'vars' was built under R version 4.1.3 ## Loading required package: MASS ## Loading required package: strucchange ## Loading required package: zoo ## ## Attaching package: 'zoo' ## The following objects are masked from 'package:base': ## ## as.Date, as.Date.numeric ## Loading required package: sand...
141 sym R (156500 sym/115 pcs) 13 img
Laboratorio 7
PRISON #Cargar datos library(vars) library(fpp2) #Cargar datos series<-prison ?prison ## starting httpd help server ... done prison ## ACTFRemanded ACTFSentenced ACTMRemanded ACTMSentenced NSWFRemanded ## 2005 Q1 2 5 65 106 182 ## 2005 Q2 4 6 ...
48 sym R (31391 sym/30 pcs) 4 img
Laboratorio 10
summary(cars) ## speed dist ## Min. : 4.0 Min. : 2.00 ## 1st Qu.:12.0 1st Qu.: 26.00 ## Median :15.0 Median : 36.00 ## Mean :15.4 Mean : 42.98 ## 3rd Qu.:19.0 3rd Qu.: 56.00 ## Max. :25.0 Max. :120.00 library(fpp2) ## Warning in register(): Can't find generic `scale_type` in pac...
10618 sym R (2945 sym/24 pcs) 9 img
Laboratorio 6
LAB6 library(pdfetch) library(tidyverse) ## -- Attaching packages --------------------------------------- tidyverse 1.3.1 -- ## v ggplot2 3.3.5 v purrr 0.3.4 ## v tibble 3.1.6 v dplyr 1.0.7 ## v tidyr 1.2.0 v stringr 1.4.0 ## v readr 2.1.2 v forcats 0.5.1 ## -- Conflicts ------------------------------------------ tid...
66 sym R (4681 sym/49 pcs) 5 img
Laboratorio 5
MODELOS ARIMA data("h02") plot(h02) autoplot(h02) + ylab("Retail index") + xlab("Year") plot(decompose(h02)) adf.test(h02) # p-value<.05 para que sea estacionaria ## Warning in adf.test(h02): p-value smaller than printed p-value ## ## Augmented Dickey-Fuller Test ## ## data: h02 ## Dickey-Fuller = -9.5147, Lag order = 5, p-value = 0.0...
553 sym R (4658 sym/37 pcs) 7 img
Laboratorio 2
R Markdown library(readr) nacimientos_1 <- read_csv("nacimientos 1.csv") ## New names: ## * `` -> ...1 ## Rows: 168 Columns: 2 ## -- Column specification -------------------------------------------------------- ## Delimiter: "," ## dbl (2): ...1, x ## ## i Use `spec()` to retrieve the full column specification for this data. ## i Specify t...
1062 sym R (807 sym/8 pcs) 1 img
Laboratorio 4
Ejercicio 1 #El modelo más adecuado es el 1, debido a que al verificar las gráficas, me parece un modelo AR, al cual se le aplican 2 diferenciaciones para obtener un P value menor a 0.05, considero que no es apropiado aplicar otros modelos porque la gráfica tiende a ser bastante clara…. set.seed(300) timeseries=ts(arima.sim(list(order = c(1...
951 sym R (3551 sym/52 pcs) 24 img
Laboratorio 9
R Markdown This is an R Markdown document. Markdown is a simple formatting syntax for authoring HTML, PDF, and MS Word documents. For more details on using R Markdown see http://rmarkdown.rstudio.com. When you click the Knit button a document will be generated that includes both content as well as the output of any embedded R code chunks with...
608 sym R (37446 sym/64 pcs) 4 img
Laboratorio 3
R Markdown Ejercicio 1: Se tiene una población de insectos que se duplica cada año, además mueren 10 insectos por la edad. Se sabe que la población inicial es de 50 insectos. ¿Cuál será la población para el año 11? primer_orden <- function(A, B, y0, x) { if(A==1){yx = (A^x)*y0+B*x} else{yx = (A^x)*y0+B*((1-A^x)/(1-A))} } yx=pri...
808 sym R (1862 sym/6 pcs)