In anderct105/Dataset_R: Package to Handle Permutations

knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)

Este es un mini ejemplo de como crear una viñeta para el paquete permupack. Veremos como obtener, a partir de una matriz de resultado (de una competición, por ejemplo) una lista de permutaciones que representen los rankings y, posteriormente, como estimar de esas permutaciones las marginales de primer orden. Para concluir, visualizaremos esas marginales en un gráfico.

Lo primero, crearemos una matriz de resultados aleatorios, muestreando varias distribuciones Beta, cada una representando a un jugador o judagora.

num.permus <- 100
scores <- cbind(rbeta(num.permus, 1, 1),
                rbeta(num.permus, 5, 1),
                rbeta(num.permus, 2, 6),
                rbeta(num.permus, 10, 10),
                rbeta(num.permus, 1, 3))
head(scores)

Una vez tenemos las puntuaciones, cargamos la librería y creamos la lista de permutaciones.

library(permupack)
permu.list <- getPermutationFromScores(scores=scores, 
                                       type="ranking", decreasing=FALSE)

A partir de la lista, podemos obtener la matriz de marginales de primer orden y podemos visualizarla en un gráfico. Para esto, es estrictamente necesario tener instalados los paquetes ggplot2 y reshape2.

margs <- getFirstOrderMarginals(permu.list, smoothed=TRUE)
margs
plot <- plotFirstOrderMarginals(permu.list, smoothed=TRUE)
plot

El plot generado es un objeto de ggplot, por lo que podemos modificarlo.

library(ggplot2)
plot + scale_fill_gradient(low="yellow", high="darkblue")

anderct105/Dataset_R documentation built on Dec. 24, 2021, 12:16 a.m.