U2A6 cadenas de Markov (Markov chains)

-> Introducciòn a la relaciòn entre eventos con anàlisis de cadenas de markov y anàlisis montecarlo

cadenas de Markov implementadas en R

-> instalar el paquete markovchain -> activar el paquete markov chain

library(markovchain)
## Package:  markovchain
## Version:  0.8.5-2
## Date:     2020-09-07
## BugReport: https://github.com/spedygiorgio/markovchain/issues
p = matrix(c(0,0.5,0.5,.5,0,.5,.5,.5,0),nrow = 3,byrow=TRUE      )
p
##      [,1] [,2] [,3]
## [1,]  0.0  0.5  0.5
## [2,]  0.5  0.0  0.5
## [3,]  0.5  0.5  0.0

El argumento “nrows” de la funcion matrix es para declarar el numero de filas que deseamos que nuestra matriz P posea, y el argumento “byrows” es para que almacene los elementos de la matriz almacenados en c(), fila por fila.

Crear la matriz de transición creamos el objeto “markovchain” de la siguiente forma:

mc <- new("markovchain", transitionMatrix=p, states=c("a","b","c"), name="Cadena 1")

la estructura del objeto mc es:

str(mc)
## Formal class 'markovchain' [package "markovchain"] with 4 slots
##   ..@ states          : chr [1:3] "a" "b" "c"
##   ..@ byrow           : logi TRUE
##   ..@ transitionMatrix: num [1:3, 1:3] 0 0.5 0.5 0.5 0 0.5 0.5 0.5 0
##   .. ..- attr(*, "dimnames")=List of 2
##   .. .. ..$ : chr [1:3] "a" "b" "c"
##   .. .. ..$ : chr [1:3] "a" "b" "c"
##   ..@ name            : chr "Cadena 1"

sumario de mc

summary(mc)
## Cadena 1  Markov chain that is composed by: 
## Closed classes: 
## a b c 
## Recurrent classes: 
## {a,b,c}
## Transient classes: 
## NONE 
## The Markov chain is irreducible 
## The absorbing states are: NONE

Visualizar de manera grafica esta cadena de markov

plot(mc)

apliaciones de las cadenas de markov en el ambito de la ingenieria industrial

Cadenas de Markov Aplicadas a la Evolución de los Usuarios Potenciales de Energía Fotovoltaica es el titulo del articulo donde usan las cadenas de markov para saber cuantos usuarios usaran la energia solar y cuantos la desecharan para seguir con la electricidad tradicional link: http://servicio.bc.uc.edu.ve/ingenieria/revista/Inge-Industrial/volII-n7/art2.pdf