Commit 1ecce7d1 authored by Walmes Marques Zeviani's avatar Walmes Marques Zeviani
Browse files

Remove source de urls dentro da vinheta.

parent 0e858d58
...@@ -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))
......
This diff is collapsed.
...@@ -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))
......
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