Skip to content
Snippets Groups Projects
Commit 1ecce7d1 authored by Walmes Marques Zeviani's avatar Walmes Marques Zeviani
Browse files

Remove source de urls dentro da vinheta.

parent 0e858d58
No related branches found
No related tags found
No related merge requests found
Show whitespace changes
Inline Side-by-side
inst/doc/v01_poisson.R
+ 0
− 10
View file @ 1ecce7d1
...@@ -73,11 +73,6 @@ colnames(aux)[1] <- "fit" ...@@ -73,11 +73,6 @@ colnames(aux)[1] <- "fit"
pred <- cbind(pred, exp(aux)) pred <- cbind(pred, exp(aux))
str(pred) str(pred)
urls <-
paste0("https://raw.githubusercontent.com/walmes/wzRfun/master/R/",
c("prepanel.cbH.R", "panel.cbH.R"))
sapply(urls, source)
xyplot(fit ~ K | umid, data = pred, xyplot(fit ~ K | umid, data = pred,
layout = c(NA, 1), as.table = TRUE, layout = c(NA, 1), as.table = TRUE,
ylab = "Número de vagens por vaso", ylab = "Número de vagens por vaso",
...@@ -90,11 +85,6 @@ xyplot(fit ~ K | umid, data = pred, ...@@ -90,11 +85,6 @@ xyplot(fit ~ K | umid, data = pred,
#----------------------------------------------------------------------- #-----------------------------------------------------------------------
# Comparações múltiplas. # Comparações múltiplas.
urls <-
paste0("https://raw.githubusercontent.com/walmes/wzRfun/master/R/",
c("apc.R"))
sapply(urls, source)
L <- by(X, INDICES = pred$umid, FUN = as.matrix) L <- by(X, INDICES = pred$umid, FUN = as.matrix)
names(L) <- levels(soja$umid) names(L) <- levels(soja$umid)
L <- lapply(L, "rownames<-", levels(soja$K)) L <- lapply(L, "rownames<-", levels(soja$K))
......
inst/doc/v01_poisson.html
+ 68
− 82
View file @ 1ecce7d1
Source diff could not be displayed: it is too large. Options to address this: view the blob.
vignettes/v01_poisson.Rmd
+ 0
− 10
View file @ 1ecce7d1
...@@ -92,11 +92,6 @@ colnames(aux)[1] <- "fit" ...@@ -92,11 +92,6 @@ colnames(aux)[1] <- "fit"
pred <- cbind(pred, exp(aux)) pred <- cbind(pred, exp(aux))
str(pred) str(pred)
urls <-
paste0("https://raw.githubusercontent.com/walmes/wzRfun/master/R/",
c("prepanel.cbH.R", "panel.cbH.R"))
sapply(urls, source)
xyplot(fit ~ K | umid, data = pred, xyplot(fit ~ K | umid, data = pred,
layout = c(NA, 1), as.table = TRUE, layout = c(NA, 1), as.table = TRUE,
ylab = "Número de vagens por vaso", ylab = "Número de vagens por vaso",
...@@ -109,11 +104,6 @@ xyplot(fit ~ K | umid, data = pred, ...@@ -109,11 +104,6 @@ xyplot(fit ~ K | umid, data = pred,
#----------------------------------------------------------------------- #-----------------------------------------------------------------------
# Comparações múltiplas. # Comparações múltiplas.
urls <-
paste0("https://raw.githubusercontent.com/walmes/wzRfun/master/R/",
c("apc.R"))
sapply(urls, source)
L <- by(X, INDICES = pred$umid, FUN = as.matrix) L <- by(X, INDICES = pred$umid, FUN = as.matrix)
names(L) <- levels(soja$umid) names(L) <- levels(soja$umid)
L <- lapply(L, "rownames<-", levels(soja$K)) L <- lapply(L, "rownames<-", levels(soja$K))
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment