Corrige expressão no gráfico de média variância da Binomial Negativa

docs/cap02_revisao-de-literatura.Rnw

@@ -379,10 +379,10 @@ labels <- substitute(
 ## Gráfico
 
 ## Curva identidade representando a Poisson
-par(mar = c(4, 4, 3, 3))
+par(mar = c(4, 4.2, 3, 3))
 curve(mu + 1*0,
       from = 0, to = 10, xname = "mu",
-      ylab = expression(V(Y) == mu %.% (mu + mu^2~"/"~phi)),
+      ylab = expression(V(Y) == mu + mu^2~"/"~phi),
       xlab = expression(E(Y) == mu))
 grid()
 ## Curvas da relação média e variância da Binomial Negativa