diff --git a/R/Charnet.R b/R/Charnet.R index 8d2355266c9fbc2bbbe875ef1f540ba952517083..1bf53bd91a22e7d5a4f826047c705f4329c19a23 100644 --- a/R/Charnet.R +++ b/R/Charnet.R @@ -309,7 +309,7 @@ NULL #' data(CharnetEx1.17) #' str(CharnetEx1.17) #' -#' detach("package:lattice") +#' # detach("package:lattice") #' library(ggplot2) #' #' ggplot(CharnetEx1.17, aes(x = x, y = y)) + @@ -340,7 +340,7 @@ NULL #' data(CharnetEx1.18) #' str(CharnetEx1.18) #' -#' detach("package:lattice") +#' # detach("package:lattice") #' library(ggplot2) #' #' with(CharnetEx1.18, { @@ -467,7 +467,7 @@ NULL #' #' xtabs(~varied + fert, data = CharnetEx10.7) #' -#' detach("package:ggplot2") +#' # detach("package:ggplot2") #' library(lattice) #' #' xyplot(prod ~ prec | fert, @@ -722,7 +722,7 @@ NULL #' data(CharnetEx2.15) #' str(CharnetEx2.15) #' -#' detach("package:lattice") +#' # detach("package:lattice") #' library(ggplot2) #' #' # Considerando a notas médias na prova de química @@ -776,7 +776,7 @@ NULL #' data(CharnetEx2.8) #' str(CharnetEx2.8) #' -#' detach("package:lattice") +#' # detach("package:lattice") #' library(ggplot2) #' #' ggplot(CharnetEx2.8, aes(x = x, y = y)) + diff --git a/R/Paula.R b/R/Paula.R index 993d4b93b871add768939c85d50c47eb4ff37a3a..01cd12fab25323f063547d5313d7418c385f01b1 100644 --- a/R/Paula.R +++ b/R/Paula.R @@ -1816,16 +1816,15 @@ NULL #' data(PaulaEx3.7.20) #' str(PaulaEx3.7.20) #' -# Transformar variáveis. -#' PaulaEx3.7.20 <- transform( -#' PaulaEx3.7.20, -#' PaulaEx3.7.20$trat = as.factor(PaulaEx3.7.20$trat), -#' PaulaEx3.7.20$sit = as.factor(PaulaEx3.7.20$sit)) +#' # Transformar variáveis. +#' PaulaEx3.7.20 <- transform(PaulaEx3.7.20, +#' trat = as.factor(PaulaEx3.7.20$trat), +#' sit = as.factor(PaulaEx3.7.20$sit)) #' #' library(car) #' -#' scatterplotMatrix(~idade + mdd + im + cl + md + tmax + trat + tsobre + -#' sit, +#' scatterplotMatrix(~idade + mdd + im + cl + md + tmax + trat + +#' tsobre + sit, #' spread = FALSE, #' pch = 20, #' lwd = 2,