Adiciona xlab e ylab ao grafico.

parent 32a5e6de
......@@ -161,6 +161,8 @@ grid <- cbind(grid[rep(1:nrow(grid), each = length(y)), ],
useOuterStrips(xyplot(py ~ y | factor(lambda) + factor(alpha),
data = grid, type = "h",
xlab = expression(y),
ylab = expression(p(y)),
panel = function(x, y, ...) {
m <- sum(x * y)
panel.xyplot(x, y, ...)
......
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