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]
<<fig.width = 9, fig.height = 4.5, out.width = "0.95\\textwidth">>=
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]
<<fig.width = 9, fig.height = 4.5, out.width = "0.95\\textwidth">>=
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!
Please register or to comment