Commit 99b7075b by Walmes Marques Zeviani

### Finaliza os slides da Gamma-Count.

parent c4631ba9
Pipeline #4855 failed with stage
 ... ... @@ -76,7 +76,7 @@ set_parent("slides-mrdcr.Rnw") \framebreak \item A distribuição acumulada do tempo até $\vartheta_{n}$ é \item $$F_n(T) = \Pr(\vartheta_n \leq T) = \int_{0}^{T}$$F_n(T) = \Pr(\vartheta_n \leq T) = \int_{0}^{T} \frac{\beta^{n\alpha}}{\Gamma(n\alpha)}\cdot t^{n\alpha-1}\cdot \exp\{-\beta t\}\,\text{d}t. \item Seja $[0,T)$ um intervalo e $N_{T}$ a v.a. número de eventos ... ... @@ -102,7 +102,8 @@ set_parent("slides-mrdcr.Rnw") &= \left[ \int_{0}^{T} \frac{\beta^{n\alpha}}{\Gamma(n\alpha)} t^{n\alpha-1}\cdot \exp\{-\beta t\}\, \text{d}t \right] - \exp\{-\beta t\}\, \text{d}t \right] \\ &\quad - \left[ \int_{0}^{T} \frac{\beta^{(n+1)\alpha}}{\Gamma((n+1)\alpha)} t^{(n+1)\alpha-1}\cdot ... ... @@ -111,6 +112,40 @@ set_parent("slides-mrdcr.Rnw") \end{itemize} \end{frame} \begin{frame}[fragile] <>= library(MRDCr) grid <- expand.grid(lambda = c(2, 8, 15), alpha = c(0.5, 1, 2.5)) y <- 0:30 py <- mapply(FUN = dgcnt, lambda = grid$lambda, alpha = grid$alpha, MoreArgs = list(y = y), SIMPLIFY = FALSE) grid <- cbind(grid[rep(1:nrow(grid), each = length(y)), ], y = y, py = unlist(py)) useOuterStrips(xyplot(py ~ y | factor(lambda) + factor(alpha), ylab = expression(f(y)), xlab = expression(y), data = grid, type = "h", panel = function(x, y, ...) { m <- sum(x * y) panel.xyplot(x, y, ...) panel.abline(v = m, lty = 2) }), strip = strip.custom( strip.names = TRUE, var.name = expression(lambda == ""), sep = ""), strip.left = strip.custom( strip.names = TRUE, var.name = expression(alpha == ""), sep = "")) @ \end{frame} \begin{frame}[allowframebreaks] \frametitle{Parametrização para modelo de regressão} \begin{itemize} ... ... @@ -167,39 +202,6 @@ llgcnt @ \end{frame} \begin{frame}[fragile] <>= grid <- expand.grid(lambda = c(2, 8, 15), alpha = c(0.5, 1, 2.5)) y <- 0:30 py <- mapply(FUN = dgcnt, lambda = grid$lambda, alpha = grid$alpha, MoreArgs = list(y = y), SIMPLIFY = FALSE) grid <- cbind(grid[rep(1:nrow(grid), each = length(y)), ], y = y, py = unlist(py)) useOuterStrips(xyplot(py ~ y | factor(lambda) + factor(alpha), ylab = expression(f(y)), xlab = expression(y), data = grid, type = "h", panel = function(x, y, ...) { m <- sum(x * y) panel.xyplot(x, y, ...) panel.abline(v = m, lty = 2) }), strip = strip.custom( strip.names = TRUE, var.name = expression(lambda == ""), sep = ""), strip.left = strip.custom( strip.names = TRUE, var.name = expression(alpha == ""), sep = "")) @ \end{frame} \begin{frame}{Estudos de caso} {\it Vignette} \href{run:../doc/v06_gamma_count.html}{\tt gamma\_count.html} ... ... @@ -211,8 +213,3 @@ useOuterStrips(xyplot(py ~ y | factor(lambda) + factor(alpha), \item[\tt cambras]: Gols do Campeonato Brasileiro de 2010. \end{description} \end{frame} \begin{frame} \frametitle{Conclusões} TODO \end{frame}
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!