diff --git a/DESCRIPTION b/DESCRIPTION
index 43c1be4fbc6d3a6cd066e419fa3ab9f8a05c88bc..bb03c21660951f9ea9bd6f82026b7871df02a6f2 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -35,6 +35,7 @@ Suggests:
ggplot2,
car,
knitr,
- rmarkdown
+ rmarkdown,
+ shiny
VignetteBuilder: knitr
RoxygenNote: 5.0.1
diff --git a/NAMESPACE b/NAMESPACE
index 6ae926839dd1829f1016a96f766d970ff184ad97..81af5000662971054455d407632998b64d9ac972 100644
--- a/NAMESPACE
+++ b/NAMESPACE
@@ -1,2 +1,3 @@
-# Generated by roxygen2: do not edit by hand
+# Generated by roxygen2 (4.1.1): do not edit by hand
+export(labestDataView)
diff --git a/R/BanzattoQd5.2.1.R b/R/BanzattoQd5.2.1.R
new file mode 100644
index 0000000000000000000000000000000000000000..9897a3986fe4dc60ab1f9e16ddc1dc36e1e6b800
--- /dev/null
+++ b/R/BanzattoQd5.2.1.R
@@ -0,0 +1,54 @@
+#' @name BanzattoQd5.2.1
+#' @title Peneira e densidade de plantio na produção de amendoim
+#' @description Dados de um experimento fatorial que estudou o efeito de
+#' densidade de plantio e tamanho da peneiras comerciais, de crivos
+#' circulares, para classificação das sementes da produção de
+#' amendoim (\emph{Arachis hypogaea} L.) variedade Tatu V 53. O
+#' experimento foi instalado em delineamento de blocos casualizados.
+#' @format Um \code{data.frame} com 27 observações e 4 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{densid}}{Densidade de plantio expresso em número de
+#' plantas por metro linear de cultivo.}
+#'
+#' \item{\code{peneira}}{Diâmetro dos crivos cículares da peneira usada
+#' para classificar as sementes (18/64, 20/64 e 22/64 polegadas).}
+#'
+#' \item{\code{bloco}}{Fator considerado para garatir controle local.}
+#'
+#' \item{\code{prod}}{Produção média de amendoim em vagens (g) por
+#' planta.}
+#'
+#' }
+#'
+#' Cada parcela tinha 4 linhas de cultivo, espaçadas de 50 cm, com 7
+#' metros de comprimento, resultando em uma área de 14 m\eqn{^2}. As
+#' duas linhas externas de cada parcela e meio metro de cada extremidade
+#' das linhas centrais foram consideradas como bordadura, fazendo-se as
+#' avaliações apenas no comprimento restante das duas linhas centrais, o
+#' que resultou em uma área útil de 6 m\eqn{^2}.
+#' @keywords DBC FAT2
+#' @source Banzatto, D. A., Kronka, S. D. (2013). Experimentação
+#' Agrícola (4th ed.). Jaboticabal, SP: Funep. (Quadro 5.2.1,
+#' pág. 102)
+#' @examples
+#'
+#' library(lattice)
+#'
+#' data(BanzattoQd5.2.1)
+#'
+#' addmargins(with(BanzattoQd5.2.1,
+#' tapply(X = prod,
+#' INDEX = list(interaction(peneira, densid),
+#' bloco),
+#' FUN = sum)))
+#'
+#' xyplot(prod ~ densid, data = BanzattoQd5.2.1,
+#' groups = peneira, type = c("p", "a"),
+#' auto.key = list(title = "Peneira", cex.title = 1,
+#' columns = 1, corner = c(0.95, 0.95)),
+#' xlab = "Densidade de plantio (plantas/metro linear)",
+#' ylab = "Produção média de amendoim em vagem (g/planta)")
+#'
+NULL
diff --git a/R/BanzattoQd5.2.4.R b/R/BanzattoQd5.2.4.R
new file mode 100644
index 0000000000000000000000000000000000000000..25550fa11f913442b1bef0e0d21a3fcacff9dfff
--- /dev/null
+++ b/R/BanzattoQd5.2.4.R
@@ -0,0 +1,40 @@
+#' @name BanzattoQd5.2.4
+#' @title Efeito de recipientes para para duas espécies de Eucalipto
+#' @description Experimento em esquema fatorial 3 \eqn{\times} 2 para
+#' estudar o efeito de 3 tipos de recipientes para a produção de
+#' mudas de duas espécies de Eucalipto. O experimento foi instalado
+#' em delineamento inteiramente casualizado.
+#' @format Um \code{data.frame} com 24 observações e 4 variáveis, em que
+#' \describe{
+#'
+#' \item{\code{recipie}}{São os níveis de recipiente estudados: SPP -
+#' saco plático pequeno, SPG - saco plástico grande e Lam -
+#' laminado.}
+#'
+#' \item{\code{especie}}{São as espécies de Eucalipto: \emph{Eucalyptus
+#' citriodora} e \emph{Eucalyptus grandis}}.
+#'
+#' \item{\code{rept}}{Identifica as repetições de cada combinação dos
+#' fatores recipiente e espécie.}
+#'
+#' \item{\code{alt}}{Altura das mudas aos 80 dias de idade (cm).}
+#'
+#' }
+#' @keywords DIC FAT2
+#' @source Banzatto, D. A., Kronka, S. D. (2013). Experimentação
+#' Agrícola (4th ed.). Jaboticabal, SP: Funep. (Quadro 5.2.4,
+#' pág. 107)
+#' @examples
+#'
+#' library(lattice)
+#'
+#' data(BanzattoQd5.2.4)
+#'
+#' xyplot(alt ~ recipie, data = BanzattoQd5.2.4,
+#' groups = especie, type = c("p", "a"),
+#' auto.key = list(title = "Espécie", cex.title = 1, font = 3,
+#' columns = 1, corner = c(0.95, 0.95)),
+#' xlab = "Recipiente",
+#' ylab = "Altura das mudas aos 80 dias de idade (cm)")
+#'
+NULL
diff --git a/R/labestDataView.R b/R/labestDataView.R
new file mode 100644
index 0000000000000000000000000000000000000000..3011c0000e0ff5a9bc5aa5442ee9005991829719
--- /dev/null
+++ b/R/labestDataView.R
@@ -0,0 +1,43 @@
+#' @name labestDataView
+#' @title Shiny App para Visualização e Download dos Datasets
+#' @author Walmes Zeviani e Eduardo Ribeiro Jr.
+#' @description Essa função abre uma interface \pkg{shiny} para
+#' visualizar as tabelas de dados e consultar a documentação. Além
+#' disso, tem um botão para salvar o dado em txt.
+#' @section Warning: Para funcionar, é necessário ter o pacote shiny
+#' instalado. Para abrir a documentação dos datasets é necessário
+#' informar o número da porta que o navegador usa
+#' (\code{http://127.0.0.1:XXXXX}) para exibir a documentação em
+#' html. Para ter esse número, peça a documentação de alguma
+#' função antes de chamar a aplicação. Veja na seção exemplos como
+#' fazer.
+#' @return Abre uma aplicação web com shiny.
+#' @usage labestDataView()
+#' @export
+#' @examples
+#' \dontrun{
+#'
+#' options(help.ports = 1111)
+#' help(BanzattoQd1.2.3, help_type = "html")
+#' help(package = "labestData", help_type = "html")
+#'
+#' labestDataView()
+#'
+#' }
+labestDataView <- function() {
+ if (!requireNamespace(package = "shiny", quietly = TRUE)) {
+ stop("Pacote `shiny` não encontrado. Instale-o, por favor.",
+ call. = FALSE)
+ }
+ appDir <- system.file("ShinyApps",
+ "labestDataView",
+ package = "labestData")
+ if (appDir == "") {
+ stop(paste(
+ "Não foi possível encontrar diretório",
+ "com a aplicação Shiny.",
+ "Tente reinstalar o `labestData`."),
+ call. = FALSE)
+ }
+ shiny::runApp(appDir, display.mode = "normal")
+}
diff --git a/data-raw/BanzattoQd5.2.1.txt b/data-raw/BanzattoQd5.2.1.txt
new file mode 100644
index 0000000000000000000000000000000000000000..9e59cc4ef8c692c1a577453c3a4b2809449a8adc
--- /dev/null
+++ b/data-raw/BanzattoQd5.2.1.txt
@@ -0,0 +1,28 @@
+densid peneira bloco prod
+10 18 I 11.82
+15 18 I 12.34
+20 18 I 13.41
+10 20 I 6.97
+15 20 I 8.96
+20 20 I 8.48
+10 22 I 7.53
+15 22 I 6.71
+20 22 I 7.82
+10 18 II 12.03
+15 18 II 14.08
+20 18 II 12.98
+10 20 II 10.26
+15 20 II 9.02
+20 20 II 9.66
+10 22 II 7.67
+15 22 II 7.87
+20 22 II 9.44
+10 18 III 12.55
+15 18 III 12.13
+20 18 III 13.35
+10 20 III 9.02
+15 20 III 9.84
+20 20 III 8.5
+10 22 III 7.81
+15 22 III 9.49
+20 22 III 9.37
diff --git a/data-raw/BanzattoQd5.2.4.txt b/data-raw/BanzattoQd5.2.4.txt
new file mode 100644
index 0000000000000000000000000000000000000000..60fc5f98c78974f330b7f440fe67626b258db3ea
--- /dev/null
+++ b/data-raw/BanzattoQd5.2.4.txt
@@ -0,0 +1,25 @@
+recipie especie rept alt
+SPP E. citriodora 1 26.2
+SPP E. grandis 1 24.8
+SPG E. citriodora 1 25.7
+SPG E. grandis 1 19.6
+Lam E. citriodora 1 22.8
+Lam E. grandis 1 19.8
+SPP E. citriodora 2 26
+SPP E. grandis 2 24.6
+SPG E. citriodora 2 26.3
+SPG E. grandis 2 21.1
+Lam E. citriodora 2 19.4
+Lam E. grandis 2 21.4
+SPP E. citriodora 3 25
+SPP E. grandis 3 26.7
+SPG E. citriodora 3 25.1
+SPG E. grandis 3 19
+Lam E. citriodora 3 18.8
+Lam E. grandis 3 22.8
+SPP E. citriodora 4 25.4
+SPP E. grandis 4 25.2
+SPG E. citriodora 4 26.4
+SPG E. grandis 4 18.6
+Lam E. citriodora 4 19.2
+Lam E. grandis 4 21.3
diff --git a/data/BanzattoQd5.2.1.rda b/data/BanzattoQd5.2.1.rda
new file mode 100644
index 0000000000000000000000000000000000000000..1ffbe78de3f75a2b5b3fc3d5913b38ecae4a90d9
Binary files /dev/null and b/data/BanzattoQd5.2.1.rda differ
diff --git a/data/BanzattoQd5.2.4.rda b/data/BanzattoQd5.2.4.rda
new file mode 100644
index 0000000000000000000000000000000000000000..9196d4e39d1b8923c362ab4bdd9d3c0cc799b465
Binary files /dev/null and b/data/BanzattoQd5.2.4.rda differ
diff --git a/inst/ShinyApps/labestDataView/palatino.css b/inst/ShinyApps/labestDataView/palatino.css
new file mode 100644
index 0000000000000000000000000000000000000000..9eb9bda5d51cd416931694a7fbfa017cec2990c6
--- /dev/null
+++ b/inst/ShinyApps/labestDataView/palatino.css
@@ -0,0 +1,442 @@
+/*
+ =============================================================================
+ Arquivo de definições CSS para usar em arquivos R Markdown
+
+ Walmes Zeviani
+
+ --------------------------------------------
+
+ O padrão do markdown fica em:
+ /usr/lib/R/site-library/markdown/resources/markdown.css
+ =============================================================================
+
+ Esse estilo usa fonte serif (Palatino) e palheta de cores para o
+ código R inspirados no tema default do Emacs.
+
+ */
+
+/*
+ -----------------------------------------------------------------------------
+ Fonte, paragráfo, cores, margens, legendas
+ -----------------------------------------------------------------------------
+ */
+
+body, td, caption {
+ font-family: "Palatino Linotype", "Book Antiqua", Palatino, serif;
+ background-color: white;
+ font-size: 14px;
+}
+
+body {
+ max-width: 800px;
+ margin: auto;
+ /* padding: 5em; */
+ line-height: 22px;
+}
+
+tt, code, pre {
+ /* font-family: "Lucida Console", Monaco, monospace; */
+ /* font-family: Consolas, "Courier New", Courier, monospace; */
+ font-family: "Andale Mono", monospace;
+}
+
+code, pre {
+ font-size: 13px;
+}
+
+p {
+ margin-top: 1em;
+ margin-bottom: 1em;
+}
+
+/* Será usando para tabelas. */
+figcaption {
+ width: 95%;
+ margin-left: 2.5%;
+ margin-top: 0.5em;
+ margin-bottom: 0.5em;
+ font-size: 14px;
+}
+
+figcaption.tab {
+ width: 95%;
+ margin-left: 2.5%;
+ margin-top: 0.25em;
+ margin-bottom: -0.5em;
+ font-size: 14px;
+}
+
+/*
+ -----------------------------------------------------------------------------
+ Estilo de código de acordo com edit-emacs.css ou o mais próximo do
+ emacs possível.
+ -----------------------------------------------------------------------------
+ */
+
+/* Parênteses, colchetes, chaves, pontuação, !, <-, ... */
+pre .paren {
+ color: rgb(104, 118, 135)
+}
+
+/* Palavras reservadas: NULL, NA, Inf, NaN, TRUE, FALSE, T, F */
+pre .literal {
+ /* color: #990073 */
+ color: #00CC00
+}
+
+/* Números. */
+pre .number {
+ /* color: #099; */
+ color: #006332;
+}
+
+/* Comentários. */
+pre .comment {
+ /* color: #ac2020; */
+ color: #998;
+ font-style: italic
+}
+
+/* Funções especiais: function, require, if, else, stop, for, return,
+ while, break, ... */
+pre .keyword {
+ /* color: #900; */
+ color: #0000FF;
+ font-weight: bold
+}
+
+/* Texto para nome de objetos (preto). */
+pre .identifier {
+ color: rgb(0, 0, 0);
+}
+
+/* Strings. */
+pre .string {
+ /* color: #bd8d8b; */
+ color: #d14;
+}
+
+/*
+ -----------------------------------------------------------------------------
+ Tabelas
+ -----------------------------------------------------------------------------
+ */
+
+/* Center the table and add top/bottom margins */
+table {
+ /* page-break-before: always; */
+ /* display: table; */
+ /* float: left; */
+ /* margin: auto; */
+ margin-left: auto;
+ margin-right: auto;
+ margin-top: 1em;
+ margin-bottom: 1em;
+ border: none;
+ border-top: 2px solid #000000;
+ border-bottom: 2px solid #000000;
+ border-left: 0px;
+ border-right: 0px;
+ /* border-collapse: separate; */
+ border-collapse: collapse;
+}
+
+table.none {
+ border-top: 0px solid #000000;
+ border-bottom: 0px solid #000000;
+}
+
+table.wide {
+ width: 95%;
+}
+
+th, td, tr {
+ color: #000000;
+ border-bottom: 0px;
+ border-top: 0px;
+ border-left: 0px;
+ border-right: 0px;
+ padding-left: 15px;
+ padding-right: 15px;
+ padding-top: 1px;
+ padding-bottom: 0px;
+}
+
+th {
+ border-bottom: 1px solid #000000;
+}
+
+th.none {
+ border-bottom: 0px solid #000000;
+}
+
+/*
+ -----------------------------------------------------------------------------
+ Padrões para fazer destaque de cédulas ou valores
+ -----------------------------------------------------------------------------
+ */
+
+/* Texto na cor vermelha. */
+td.red {
+ /* color: #FF0000; */
+ color: #CC0000;
+}
+
+/* Texto na cor azul. */
+td.blue {
+ /* color: #0000FF; */
+ color: #0000CC;
+}
+
+/* Cédula com cor ciza de fundo. */
+td.shade {
+ background-color: #CCCCCC;
+}
+
+/* Linha embaixo. */
+td.line {
+ border-bottom: 1px solid #000000;
+}
+
+/* Negrito. */
+td.bold {
+ font-weight: bold;
+}
+
+/* Itálico. */
+td.italic {
+ font-style: italic;
+}
+
+/*
+ -----------------------------------------------------------------------------
+ Títulos de sessões
+ -----------------------------------------------------------------------------
+ */
+
+h1 {
+ font-size:2.2em;
+ line-height:1.1em;
+}
+
+h2 {
+ font-size: 1.6em;
+ padding-top: 0.7em;
+ padding-bottom: 0.7em;
+}
+
+h3 {
+ font-size:1.3em;
+}
+
+h4 {
+ font-size:1.0em;
+}
+
+h5 {
+ font-size:0.9em;
+}
+
+h6 {
+ font-size:0.8em;
+}
+
+/*
+ -----------------------------------------------------------------------------
+ Links
+ -----------------------------------------------------------------------------
+ */
+
+a {
+ /* text-decoration: underline; */
+ text-decoration: none;
+ /* background-color: #F8F8F8; */
+ color: #007560;
+}
+
+a:visited {
+ /* color: #0075EE; */
+ color: rgb(50%, 0%, 50%);
+}
+
+/*
+ -----------------------------------------------------------------------------
+ Imagens
+ -----------------------------------------------------------------------------
+ */
+
+pre, img {
+ max-width: 100%;
+}
+
+/*
+ -----------------------------------------------------------------------------
+ Blocos de código/verbatim
+ -----------------------------------------------------------------------------
+ */
+
+/* Blocos de código criados com tripla crase. */
+pre code {
+ /* margin-top: -0.75em; */
+ /* margin-bottom: -0.75em; */
+ /* margin-left: 3em; */
+ display: block;
+ padding: 0.5em;
+ /* padding-left: 0.75em; */
+ /* padding-right: 0.75em; */
+ /* padding-top: 0em; */
+ /* padding-bottom: 0em; */
+ /* background-color: #333333; */
+ /* border: 1px; */
+ /* font-size: 115%; */
+ line-height: 125%;
+}
+
+/* Código sem classe, inline e blocos de warning e error do R. */
+code {
+ /* border: 1px solid #ccc; */
+ /* border-left: 2px dotted #ccc; */
+ /* border-right: 2px dotted #ccc; */
+ background-color: #E6E6E6;
+}
+
+/* Código de classe R, input, output, exceto warnings e errors. */
+code[class] {
+ /* background-color: #F8F8F8; */
+ /* background-color: #E6E6E6; */
+ /* background-color: #EEEEEE; */
+ /* border: 1px; */
+ background-color: #F2F2F2;
+}
+
+
+/*
+ -----------------------------------------------------------------------------
+ Ambiente/bloco de parafrase ou quotation
+ -----------------------------------------------------------------------------
+ */
+
+blockquote {
+ color:#666666;
+ margin:0;
+ padding-left: 1em;
+ border-left: 0.5em #EEE solid;
+}
+
+/*
+ -----------------------------------------------------------------------------
+ Linhas horizontais.
+ -----------------------------------------------------------------------------
+ */
+
+hr {
+ height: 0px;
+ border-bottom: none;
+ border-top-width: 1px;
+ /* border-top-style: dotted; */
+ border-top-style: solid;
+ border-top-color: #999999;
+}
+
+hr.white {
+ border-top-color: #FFFFFF;
+}
+
+/*
+ -----------------------------------------------------------------------------
+ Caixas de alerta, notificação, erro, etc:
+ http://www.cssportal.com/blog/css-notification-boxes/
+ -----------------------------------------------------------------------------
+ */
+
+.alert-box {
+ color: #555;
+ border-radius: 5px;
+ /* font-family:Tahoma, Geneva, Arial, sans-serif; */
+ font-size: 14px;
+ /* padding:10px 10px 10px 36px; */
+ padding: 10px 10px 10px 20px;
+ margin: 10px;
+}
+
+.alert-box span {
+ font-weight:bold;
+ text-transform:uppercase;
+}
+
+.error {
+ background:#ffecec;
+ border:1px solid #f5aca6;
+}
+.success {
+ background:#e9ffd9;
+ border:1px solid #a6ca8a;
+}
+.warning {
+ background:#fff8c4;
+ border:1px solid #f2c779;
+}
+.notice {
+ background:#e3f7fc;
+ border:1px solid #8ed9f6;
+}
+
+/*
+ -----------------------------------------------------------------------------
+ Ainda não descobri para que servem as definições abaixo
+ -----------------------------------------------------------------------------
+ */
+
+@media print {
+ * {
+ background: transparent !important;
+ color: black !important;
+ filter:none !important;
+ -ms-filter: none !important;
+ }
+
+ body {
+ font-size:12pt;
+ max-width:100%;
+ }
+
+ a, a:visited {
+ text-decoration: underline;
+ }
+
+ hr {
+ visibility: hidden;
+ page-break-before: always;
+ }
+
+ pre, blockquote {
+ padding-right: 1em;
+ page-break-inside: avoid;
+ }
+
+ tr, img {
+ page-break-inside: avoid;
+ }
+
+ img {
+ max-width: 100% !important;
+ }
+
+ @page :left {
+ margin: 15mm 20mm 15mm 10mm;
+ }
+
+ @page :right {
+ margin: 15mm 10mm 15mm 20mm;
+ }
+
+ p, h2, h3 {
+ orphans: 3; widows: 3;
+ }
+
+ h2, h3 {
+ page-break-after: avoid;
+ }
+}
+
+/* ----------------------------------------------------------------------------- */
diff --git a/inst/ShinyApps/labestDataView/server.R b/inst/ShinyApps/labestDataView/server.R
new file mode 100644
index 0000000000000000000000000000000000000000..04b44e16bc065d8c9d5995cdef5e916609bcecd8
--- /dev/null
+++ b/inst/ShinyApps/labestDataView/server.R
@@ -0,0 +1,51 @@
+library(shiny)
+library(xtable)
+
+howmanydigits <- function(x) {
+ x <- na.omit(x)
+ if (is.numeric(x) && all(x%%1 == 0)) {
+ 0
+ } else if (is.numeric(x)) {
+ 1 + floor(log10(1/min(diff(sort(unique(x))))))
+ } else {
+ 0
+ }
+}
+
+shinyServer(function(input, output) {
+ output$TABLE <- renderPrint({
+ da <- eval(parse(text = input$DATASET))
+ a <- switch(class(da),
+ data.frame = da,
+ numeric = {
+ da <- data.frame(da)
+ names(da) <- input$DATASET
+ da
+ },
+ integer = {
+ da <- data.frame(da)
+ names(da) <- input$DATASET
+ da
+ })
+ dig <- sapply(a, howmanydigits)
+ print(xtable(a, digits = c(0, dig)), type = "html")
+ })
+ output$DOWNLOADDATA <- downloadHandler(
+ filename = function() {
+ sprintf("%s.txt", input$DATASET)
+ },
+ content = function(file) {
+ write.table(eval(parse(text = input$DATASET)),
+ file = file,
+ sep = "\t",
+ row.names = FALSE,
+ quote = FALSE)
+ })
+ output$LINK <- renderUI({
+ HTML(sprintf(paste0('<center><a href="http://127.0.0.1:%d',
+ '/library/labestData/html/%s.html" target="_blank">',
+ 'Documentação</a></center>'),
+ input$PORTA,
+ input$DATASET))
+ })
+})
diff --git a/inst/ShinyApps/labestDataView/ui.R b/inst/ShinyApps/labestDataView/ui.R
new file mode 100644
index 0000000000000000000000000000000000000000..08d2cc47ab13820e7797100b72a3286232e65be5
--- /dev/null
+++ b/inst/ShinyApps/labestDataView/ui.R
@@ -0,0 +1,38 @@
+library(shiny)
+library(xtable)
+library(labestData, lib.loc = "/home/walmes/R/")
+
+L <- ls("package:labestData")
+i <- sapply(L,
+ function(x) {
+ class(eval(parse(text = x)))
+ })
+L <- L[i %in% c("data.frame", "numeric", "integer")]
+
+shinyUI(fluidPage(
+ includeCSS("palatino.css"),
+ # titlePanel("labestData"),
+ h1("labestData"),
+ h3("Conjuntos de Dados para Ensino de Estatística"),
+ tags$em("pet.estatistica.ufpr@gmail.com"),
+ hr(),
+ sidebarLayout(
+ sidebarPanel(
+ selectInput(inputId = "DATASET",
+ label = "Escolha o dataset:",
+ choices = L,
+ selected = sample(1:length(L))),
+ hr(),
+ numericInput(inputId ="PORTA",
+ label = "Porta:",
+ value = options()$html.port),
+ uiOutput("LINK"),
+ hr(),
+ downloadButton(outputId = "DOWNLOADDATA",
+ label = "Download tsv")
+ ),
+ mainPanel(
+ htmlOutput("TABLE")
+ ) # mainPanel
+ ) # sidebarLayout
+)) # fluidPage shinyUI
diff --git a/man/BanzattoQd5.2.1.Rd b/man/BanzattoQd5.2.1.Rd
new file mode 100644
index 0000000000000000000000000000000000000000..03812a5139afb19ba0835a9a02da909741a6f292
--- /dev/null
+++ b/man/BanzattoQd5.2.1.Rd
@@ -0,0 +1,61 @@
+% Generated by roxygen2 (4.1.1): do not edit by hand
+% Please edit documentation in R/BanzattoQd5.2.1.R
+\name{BanzattoQd5.2.1}
+\alias{BanzattoQd5.2.1}
+\title{Peneira e densidade de plantio na produção de amendoim}
+\format{Um \code{data.frame} com 27 observações e 4 variáveis, em que
+
+\describe{
+
+\item{\code{densid}}{Densidade de plantio expresso em número de
+ plantas por metro linear de cultivo.}
+
+\item{\code{peneira}}{Diâmetro dos crivos cículares da peneira usada
+ para classificar as sementes (18/64, 20/64 e 22/64 polegadas).}
+
+\item{\code{bloco}}{Fator considerado para garatir controle local.}
+
+\item{\code{prod}}{Produção média de amendoim em vagens (g) por
+ planta.}
+
+}
+
+Cada parcela tinha 4 linhas de cultivo, espaçadas de 50 cm, com 7
+metros de comprimento, resultando em uma área de 14 m\eqn{^2}. As
+duas linhas externas de cada parcela e meio metro de cada extremidade
+das linhas centrais foram consideradas como bordadura, fazendo-se as
+avaliações apenas no comprimento restante das duas linhas centrais, o
+que resultou em uma área útil de 6 m\eqn{^2}.}
+\source{
+Banzatto, D. A., Kronka, S. D. (2013). Experimentação
+ Agrícola (4th ed.). Jaboticabal, SP: Funep. (Quadro 5.2.1,
+ pág. 102)
+}
+\description{
+Dados de um experimento fatorial que estudou o efeito de
+ densidade de plantio e tamanho da peneiras comerciais, de crivos
+ circulares, para classificação das sementes da produção de
+ amendoim (\emph{Arachis hypogaea} L.) variedade Tatu V 53. O
+ experimento foi instalado em delineamento de blocos casualizados.
+}
+\examples{
+library(lattice)
+
+data(BanzattoQd5.2.1)
+
+addmargins(with(BanzattoQd5.2.1,
+ tapply(X = prod,
+ INDEX = list(interaction(peneira, densid),
+ bloco),
+ FUN = sum)))
+
+xyplot(prod ~ densid, data = BanzattoQd5.2.1,
+ groups = peneira, type = c("p", "a"),
+ auto.key = list(title = "Peneira", cex.title = 1,
+ columns = 1, corner = c(0.95, 0.95)),
+ xlab = "Densidade de plantio (plantas/metro linear)",
+ ylab = "Produção média de amendoim em vagem (g/planta)")
+}
+\keyword{DBC}
+\keyword{FAT2}
+
diff --git a/man/BanzattoQd5.2.4.Rd b/man/BanzattoQd5.2.4.Rd
new file mode 100644
index 0000000000000000000000000000000000000000..e751554869e667839bd2886fee292af47b51bb40
--- /dev/null
+++ b/man/BanzattoQd5.2.4.Rd
@@ -0,0 +1,47 @@
+% Generated by roxygen2 (4.1.1): do not edit by hand
+% Please edit documentation in R/BanzattoQd5.2.4.R
+\name{BanzattoQd5.2.4}
+\alias{BanzattoQd5.2.4}
+\title{Efeito de recipientes para para duas espécies de Eucalipto}
+\format{Um \code{data.frame} com 24 observações e 4 variáveis, em que
+\describe{
+
+\item{\code{recipie}}{São os níveis de recipiente estudados: SPP -
+ saco plático pequeno, SPG - saco plástico grande e Lam -
+ laminado.}
+
+\item{\code{especie}}{São as espécies de Eucalipto: \emph{Eucalyptus
+ citriodora} e \emph{Eucalyptus grandis}}.
+
+\item{\code{rept}}{Identifica as repetições de cada combinação dos
+ fatores recipiente e espécie.}
+
+\item{\code{alt}}{Altura das mudas aos 80 dias de idade (cm).}
+
+}}
+\source{
+Banzatto, D. A., Kronka, S. D. (2013). Experimentação
+ Agrícola (4th ed.). Jaboticabal, SP: Funep. (Quadro 5.2.4,
+ pág. 107)
+}
+\description{
+Experimento em esquema fatorial 3 \eqn{\times} 2 para
+ estudar o efeito de 3 tipos de recipientes para a produção de
+ mudas de duas espécies de Eucalipto. O experimento foi instalado
+ em delineamento inteiramente casualizado.
+}
+\examples{
+library(lattice)
+
+data(BanzattoQd5.2.4)
+
+xyplot(alt ~ recipie, data = BanzattoQd5.2.4,
+ groups = especie, type = c("p", "a"),
+ auto.key = list(title = "Espécie", cex.title = 1, font = 3,
+ columns = 1, corner = c(0.95, 0.95)),
+ xlab = "Recipiente",
+ ylab = "Altura das mudas aos 80 dias de idade (cm)")
+}
+\keyword{DIC}
+\keyword{FAT2}
+
diff --git a/man/labestDataView.Rd b/man/labestDataView.Rd
new file mode 100644
index 0000000000000000000000000000000000000000..325383f79b4ca00d6ad4977ccaabebaf5480f31d
--- /dev/null
+++ b/man/labestDataView.Rd
@@ -0,0 +1,40 @@
+% Generated by roxygen2 (4.1.1): do not edit by hand
+% Please edit documentation in R/labestDataView.R
+\name{labestDataView}
+\alias{labestDataView}
+\title{Shiny App para Visualização e Download dos Datasets}
+\usage{
+labestDataView()
+}
+\value{
+Abre uma aplicação web com shiny.
+}
+\description{
+Essa função abre uma interface \pkg{shiny} para
+ visualizar as tabelas de dados e consultar a documentação. Além
+ disso, tem um botão para salvar o dado em txt.
+}
+\section{Warning}{
+ Para funcionar, é necessário ter o pacote shiny
+ instalado. Para abrir a documentação dos datasets é necessário
+ informar o número da porta que o navegador usa
+ (\code{http://127.0.0.1:XXXXX}) para exibir a documentação em
+ html. Para ter esse número, peça a documentação de alguma
+ função antes de chamar a aplicação. Veja na seção exemplos como
+ fazer.
+}
+\examples{
+\dontrun{
+
+options(help.ports = 1111)
+help(BanzattoQd1.2.3, help_type = "html")
+help(package = "labestData", help_type = "html")
+
+labestDataView()
+
+}
+}
+\author{
+Walmes Zeviani e Eduardo Ribeiro Jr.
+}
+