Remove source de urls dentro da vinheta.

parent 0e858d58
......@@ -73,11 +73,6 @@ colnames(aux)[1] <- "fit"
pred <- cbind(pred, exp(aux))
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,
layout = c(NA, 1), as.table = TRUE,
ylab = "Número de vagens por vaso",
......@@ -90,11 +85,6 @@ xyplot(fit ~ K | umid, data = pred,
#-----------------------------------------------------------------------
# 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)
names(L) <- levels(soja$umid)
L <- lapply(L, "rownames<-", levels(soja$K))
......
This diff is collapsed.
......@@ -92,11 +92,6 @@ colnames(aux)[1] <- "fit"
pred <- cbind(pred, exp(aux))
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,
layout = c(NA, 1), as.table = TRUE,
ylab = "Número de vagens por vaso",
......@@ -109,11 +104,6 @@ xyplot(fit ~ K | umid, data = pred,
#-----------------------------------------------------------------------
# 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)
names(L) <- levels(soja$umid)
L <- lapply(L, "rownames<-", levels(soja$K))
......
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