Skip to content
Snippets Groups Projects
Commit f7bb2786 authored by gabriel sartori's avatar gabriel sartori
Browse files

Tabela 1.4 e 1.5 do Livro de Multivariada - autor: Manly

parent 322dd2c7
No related branches found
No related tags found
1 merge request!19Gabriel55
Pipeline #
Showing with 256 additions and 17 deletions
#' @name ManlyTb1.4
#' @title Cães pré-históricos da Tailândia
#'
#' @description Estudo em ancestrais de cães pré-históricos da Tailândia,
#' através de medições da mandíbula com espécies disponíveis.
#'
#' @format Um \code{data.frame} com 7 grupos caninos e 6 variáveis de mensuração.
#'
#' \describe{
#'
#' \item {\code{grupo} Grupos caninos}
#'
#' \item {\code{largm} largura da mandíbula (mm)}
#'
#' \item {\code{altm} altura da mandíbula abaixo do primeiro molar (mm).}
#'
#' \item {\code{comppm} Comprimento do primeiro molar (mm).}
#'
#' \item {\code{largpm} largura do primeiro molar (mm).}
#'
#' \item {\code{compptm} comprimento do primeiro ao terceiro molar (mm).}
#'
#' \item {\code{comppqm} comprimento do primeiro ao quarto molar (mm).}
#' }
#'
#' @keywords Todo
#' @source Manly, B. J. F. (2005). Métodos Estatísticos Multivariados- uma introdução.
#' Porto Alegre, RS: Bookman (pg 21)
#' @examples
#'
#' data(ManlyTb1.4)
#'
#' pairs(~ grupo + largm + altm + comppm + largpm + comppt + comppq,
#' data = ManlyTb1.4,
#' main="Gráfico de dispersão dos cães")
NULL
#' @name ManlyTb1.5
#' @title Emprego em paises europeus
#'
#' @description Porcentagens da força de trabalho de empregados em nove diferentes grupos de indústrias em 30 países na Europa
#'
#' @format Um \code{data.frame} com 30 registros e 11 variáveis.
#'
#' \describe{
#'
#' \item {\code{pais} País europeu.}
#'
#' \item {\code{grupo} Grupos econômicos. UE: União Europeia - AELC: Área europeia de livre comércio - Leste - Outro}
#'
#
#' \item {\code{agr} Agricultura, florestal e pesca.}
#'
#' \item {\code{min} Mineração e exploração de pedreiras.}
#'
#' \item {\code{fab} Fabricação.}
#'
#' \item {\code{fea} Fornecimento de energia e água.}
#'
#' \item {\code{con} Construção.}
#'
#' \item {\code{ser} Serviços.}
#'
#' \item {\code{fin} Finanças.}
#'
#' \item {\code{ssp} Serviços sociais e pessoais.}
#'
#' \item {\code{tc} Transportes e comunicações.}
#'
#' }
#'
#' @keywords Todo
#' @source Manly, B. J. F. (2005). Métodos Estatísticos Multivariados- uma introdução.
#' Porto Alegre, RS: Bookman (pg 22)
#' @examples
#'
#' data(ManlyTb1.5)
#'
#' pairs(~ pais + grupo + agr + min + fab + fea + con + ser + fin + ssp + tc,
#' data = ManlyTb1.5,
#' main="Gráfico de dispersão dos empregos")
NULL
path <- "/home/gabriel/labestData/data-raw/ManlyTb1.5.txt"
ManlyTb1.5 <- read.table(path,
header = TRUE,
sep = "\t",
dec = ".")
grupo largm altm comppm largpm compptm comppqm
Cão moderno 9.7 21 19.4 7.7 32 36.5
Chacal dourado 8.1 16.7 18.3 7 30.3 32.9
Lobo chines 13.5 27.3 26.8 10.6 41.9 48.1
Lobo indiano 11.5 24.3 24.5 9.3 40 44.6
Cuon 10.7 23.5 21.4 8.5 28.8 37.6
Dingo 9.6 22.6 21.1 8.3 34.4 43.1
Cão pré-histórico 10.3 22.1 19.1 8.1 32.2 35
pais grupo agr min fab fea com ser fin ssp tc
Belgica UE 2.6 0.2 20.8 0.8 6.3 16.9 8.7 36.9 6.8
Dinamarca UE 5.6 0.1 20.4 0.7 6.4 14.5 9.1 36.3 7
França UE 5.1 0.3 20.2 0.9 7.1 16.7 10.2 33.1 6.4
Alemanha UE 3.2 0.7 24.8 1 9.4 17.2 9.6 28.4 5.6
Grecia UE 22.2 0.5 19.2 1 6.8 18.2 5.3 19.8 6.9
Irlanda UE 13.8 0.6 19.8 1.2 7.1 17.8 8.4 25.5 5.8
Italia UE 8.4 1.1 21.9 0 9.1 21.6 4.6 28 5.3
Luxemburgo UE 3.3 0.1 19.6 0.7 9.9 21.2 8.7 29.6 6.8
Paises Baixos UE 4.2 0.1 19.2 0.7 0.6 18.5 11.5 38.3 6.8
Portugal UE 11.5 0.5 23.6 0.7 8.2 19.8 6.7 24.6 4.8
Espanha UE 9.9 0.5 21.1 0.6 9.5 20.1 5.9 26.7 5.8
Reino Unido UE 2.2 0.7 21.3 1.2 7 20.2 12.4 28.4 6.5
Austria AELC 7.4 0.3 26.9 1.2 8.5 19.1 6.7 23.3 6.4
Finlandia AELC 8.5 0.2 26.3 1.2 6.8 14.6 8.6 33.2 7.5
Islandia AELC 10.5 0 18.7 0.9 10 14.5 8 30.7 6.7
Norurega AELC 5.8 1.1 14.6 1.1 6.5 17.6 7.6 37.5 8.1
Suecia AELC 3.2 0.3 19 0.8 6.4 14.2 9.4 39.5 7.2
Suica AELC 5.6 0 24.7 0 9.2 20.5 10.7 23.1 6.2
Albania Leste 55.5 19.4 0 0 3.4 4.3 15.3 0 3
Bulgaria Leste 19 0 3.5 0 6.7 9.4 1.5 20.9 7.5
Republica Tcheca/Eslovaquia Leste 12.8 37.3 0 0 8.4 10.2 1.6 22.9 6.9
Hungria Leste 15.3 28.9 0 0 6.4 13.3 0 27.3 8.8
Polonia Leste 23.6 3.9 24.1 0.9 6.3 10.3 1.3 24.5 5.2
Romenia Leste 22 2.6 37.9 2 5.8 6.9 0.6 15.3 6.8
USSR Leste 18.5 0 28.8 0 10.2 7.9 0.6 25.6 8.4
Iugoslavia Leste 5 2.2 38.7 2.2 8.1 13.8 3.1 19.1 7.8
Chipre Outro 13.5 0.3 19 0.5 9.1 23.7 6.7 21.2 0.6
Gibraltar Outro 0 0 6.8 2 16.9 24.5 10.8 34 0.5
Malta Outro 2.6 0.6 27.9 1.5 4.6 10.2 3.9 41.6 7.2
Turquia Outro 44.8 0.9 15.3 0.2 5.2 12.4 2.4 14.5 4.4
File added
File added
% Generated by roxygen2 (4.1.1): do not edit by hand % Generated by roxygen2: do not edit by hand
% Please edit documentation in R/DemetrioTb1.1.R % Please edit documentation in R/DemetrioTb1.1.R
\name{DemetrioTb1.1} \name{DemetrioTb1.1}
\alias{DemetrioTb1.1} \alias{DemetrioTb1.1}
...@@ -26,6 +26,7 @@ Resultados de um experimento onde diferentes níveis de ...@@ -26,6 +26,7 @@ Resultados de um experimento onde diferentes níveis de
disponível para a planta em cada amostra de solo. disponível para a planta em cada amostra de solo.
} }
\examples{ \examples{
library(lattice) library(lattice)
data(DemetrioTb1.1) data(DemetrioTb1.1)
......
% Generated by roxygen2 (4.1.1): do not edit by hand % Generated by roxygen2: do not edit by hand
% Please edit documentation in R/DemetrioTb1.2.R % Please edit documentation in R/DemetrioTb1.2.R
\name{DemetrioTb1.2} \name{DemetrioTb1.2}
\alias{DemetrioTb1.2} \alias{DemetrioTb1.2}
...@@ -27,6 +27,7 @@ Este experimento refere-se a irrigação em batata ...@@ -27,6 +27,7 @@ Este experimento refere-se a irrigação em batata
produtividade. produtividade.
} }
\examples{ \examples{
library(lattice) library(lattice)
data(DemetrioTb1.2) data(DemetrioTb1.2)
......
% Generated by roxygen2 (4.1.1): do not edit by hand % Generated by roxygen2: do not edit by hand
% Please edit documentation in R/DemetrioTb1.3.R % Please edit documentation in R/DemetrioTb1.3.R
\name{DemetrioTb1.3} \name{DemetrioTb1.3}
\alias{DemetrioTb1.3} \alias{DemetrioTb1.3}
...@@ -24,6 +24,7 @@ Estudo da construção de um tensiômetro de leitura ...@@ -24,6 +24,7 @@ Estudo da construção de um tensiômetro de leitura
no tensiômetro e tensão da água no solo. no tensiômetro e tensão da água no solo.
} }
\examples{ \examples{
library(lattice) library(lattice)
data(DemetrioTb1.3) data(DemetrioTb1.3)
......
% Generated by roxygen2 (4.1.1): do not edit by hand % Generated by roxygen2: do not edit by hand
% Please edit documentation in R/DemetrioTb1.4.R % Please edit documentation in R/DemetrioTb1.4.R
\name{DemetrioTb1.4} \name{DemetrioTb1.4}
\alias{DemetrioTb1.4} \alias{DemetrioTb1.4}
...@@ -27,6 +27,7 @@ Dados referentes a medidas de concentrações de fósforo ...@@ -27,6 +27,7 @@ Dados referentes a medidas de concentrações de fósforo
fósforo na planta e as duas fontes do elemento no solo. fósforo na planta e as duas fontes do elemento no solo.
} }
\examples{ \examples{
data(DemetrioTb1.4) data(DemetrioTb1.4)
pairs(DemetrioTb1.4, main = "Dispersão em Pares") pairs(DemetrioTb1.4, main = "Dispersão em Pares")
......
% Generated by roxygen2 (4.1.1): do not edit by hand % Generated by roxygen2: do not edit by hand
% Please edit documentation in R/FerreiraEg3.4.R % Please edit documentation in R/FerreiraEg3.4.R
\name{FerreiraEg3.4} \name{FerreiraEg3.4}
\alias{FerreiraEg3.4} \alias{FerreiraEg3.4}
...@@ -26,6 +26,7 @@ Subconjunto de valores de um hemograma aplicado à ...@@ -26,6 +26,7 @@ Subconjunto de valores de um hemograma aplicado à
pintores de carros, apresentado por Royston (1983) pintores de carros, apresentado por Royston (1983)
} }
\examples{ \examples{
# Normalidade univariada # Normalidade univariada
par(mfrow = c(1, 2)) par(mfrow = c(1, 2))
with(FerreiraEg3.4, { with(FerreiraEg3.4, {
...@@ -34,6 +35,7 @@ with(FerreiraEg3.4, { ...@@ -34,6 +35,7 @@ with(FerreiraEg3.4, {
qqnorm(linf, main = "Normal Q-Q Plot\\nCont. Linfócitos") qqnorm(linf, main = "Normal Q-Q Plot\\nCont. Linfócitos")
qqline(linf) qqline(linf)
}) })
} }
\keyword{TODO} \keyword{TODO}
% Generated by roxygen2 (4.1.1): do not edit by hand % Generated by roxygen2: do not edit by hand
% Please edit documentation in R/FerreiraEx3.8.5.R % Please edit documentation in R/FerreiraEx3.8.5.R
\name{FerreiraEx3.8.5} \name{FerreiraEx3.8.5}
\alias{FerreiraEx3.8.5} \alias{FerreiraEx3.8.5}
...@@ -22,6 +22,7 @@ Os dados referem-se à avaliação de uma cultivar de melão ...@@ -22,6 +22,7 @@ Os dados referem-se à avaliação de uma cultivar de melão
em 32 unidades experimentais. em 32 unidades experimentais.
} }
\examples{ \examples{
panel.density <- function(x, ...) { panel.density <- function(x, ...) {
usr <- par("usr") usr <- par("usr")
on.exit(par(usr)) on.exit(par(usr))
...@@ -36,6 +37,7 @@ pairs(FerreiraEx3.8.5, pch = 20, diag.panel = panel.density) ...@@ -36,6 +37,7 @@ pairs(FerreiraEx3.8.5, pch = 20, diag.panel = panel.density)
(comp <- prcomp(FerreiraEx3.8.5, scale = TRUE)) (comp <- prcomp(FerreiraEx3.8.5, scale = TRUE))
screeplot(comp, type = "lines") screeplot(comp, type = "lines")
biplot(comp) biplot(comp)
} }
\keyword{TODO} \keyword{TODO}
% Generated by roxygen2: do not edit by hand
% Please edit documentation in R/ManlyTb1.4.R
\name{ManlyTb1.4}
\alias{ManlyTb1.4}
\title{Cães pré-históricos da Tailândia}
\format{Um \code{data.frame} com 7 grupos caninos e 6 variáveis de mensuração.
\describe{
\item {\code{grupo} Grupos caninos}
\item {\code{largm} largura da mandíbula (mm)}
\item {\code{altm} altura da mandíbula abaixo do primeiro molar (mm).}
\item {\code{comppm} Comprimento do primeiro molar (mm).}
\item {\code{largpm} largura do primeiro molar (mm).}
\item {\code{compptm} comprimento do primeiro ao terceiro molar (mm).}
\item {\code{comppqm} comprimento do primeiro ao quarto molar (mm).}
}}
\source{
Manly, B. J. F. (2005). Métodos Estatísticos Multivariados- uma introdução.
Porto Alegre, RS: Bookman (pg 21)
}
\description{
Estudo em ancestrais de cães pré-históricos da Tailândia,
através de medições da mandíbula com espécies disponíveis.
}
\examples{
data(ManlyTb1.4)
pairs(~ grupo + largm + altm + comppm + largpm + comppt + comppq,
data = ManlyTb1.4,
main="Gráfico de dispersão dos cães")
}
\keyword{Todo}
% Generated by roxygen2: do not edit by hand
% Please edit documentation in R/ManlyTb1.5.R
\name{ManlyTb1.5}
\alias{ManlyTb1.5}
\title{Emprego em paises europeus}
\format{Um \code{data.frame} com 30 registros e 11 variáveis.
\describe{
\item {\code{pais} País europeu.}
\item {\code{grupo} Grupos econômicos. UE: União Europeia - AELC: Área europeia de livre comércio - Leste - Outro}
\item {\code{agr} Agricultura, florestal e pesca.}
\item {\code{min} Mineração e exploração de pedreiras.}
\item {\code{fab} Fabricação.}
\item {\code{fea} Fornecimento de energia e água.}
\item {\code{con} Construção.}
\item {\code{ser} Serviços.}
\item {\code{fin} Finanças.}
\item {\code{ssp} Serviços sociais e pessoais.}
\item {\code{tc} Transportes e comunicações.}
}}
\source{
Manly, B. J. F. (2005). Métodos Estatísticos Multivariados- uma introdução.
Porto Alegre, RS: Bookman (pg 22)
}
\description{
Porcentagens da força de trabalho de empregados em nove diferentes grupos de indústrias em 30 países na Europa
}
\examples{
data(ManlyTb1.5)
pairs(~ pais + grupo + agr + min + fab + fea + con + ser + fin + ssp + tc,
data = ManlyTb1.5,
main="Gráfico de dispersão dos empregos")
}
\keyword{Todo}
% Generated by roxygen2 (4.1.1): do not edit by hand % Generated by roxygen2: do not edit by hand
% Please edit documentation in R/MingotiTb2.1.R % Please edit documentation in R/MingotiTb2.1.R
\name{MingotiTb2.1} \name{MingotiTb2.1}
\alias{MingotiTb2.1} \alias{MingotiTb2.1}
...@@ -27,11 +27,13 @@ Dados relativos a uma amostra de 12 rochas de uma certa ...@@ -27,11 +27,13 @@ Dados relativos a uma amostra de 12 rochas de uma certa
índice que mede cor para cada uma das rochas. índice que mede cor para cada uma das rochas.
} }
\examples{ \examples{
data(MingotiTb2.1) data(MingotiTb2.1)
pairs(~qrtz + cor + fdsp, pairs(~qrtz + cor + fdsp,
data = MingotiTb2.1, data = MingotiTb2.1,
main = "Matriz de dispersão das variáveis da rocha") main = "Matriz de dispersão das variáveis da rocha")
} }
\keyword{TODO} \keyword{TODO}
% Generated by roxygen2 (4.1.1): do not edit by hand % Generated by roxygen2: do not edit by hand
% Please edit documentation in R/MingotiTb2.2.R % Please edit documentation in R/MingotiTb2.2.R
\name{MingotiTb2.2} \name{MingotiTb2.2}
\alias{MingotiTb2.2} \alias{MingotiTb2.2}
...@@ -26,11 +26,13 @@ Notas obtidas em uma turma de estudantes em três provas ...@@ -26,11 +26,13 @@ Notas obtidas em uma turma de estudantes em três provas
de uma determinada disciplina. de uma determinada disciplina.
} }
\examples{ \examples{
data(MingotiTb2.2) data(MingotiTb2.2)
pairs(~ p1 + p2 + p3, pairs(~ p1 + p2 + p3,
data = MingotiTb2.2, data = MingotiTb2.2,
main = "Matriz de dispersão das 4 notas") main = "Matriz de dispersão das 4 notas")
} }
\keyword{TODO} \keyword{TODO}
% Generated by roxygen2 (4.1.1): do not edit by hand % Generated by roxygen2: do not edit by hand
% Please edit documentation in R/MingotiTb3.1.R % Please edit documentation in R/MingotiTb3.1.R
\name{MingotiTb3.1} \name{MingotiTb3.1}
\alias{MingotiTb3.1} \alias{MingotiTb3.1}
...@@ -26,6 +26,7 @@ Dados de 12 empresas sobre ganhos (bruto e líquido) e ...@@ -26,6 +26,7 @@ Dados de 12 empresas sobre ganhos (bruto e líquido) e
patrimônio acumulado num determinado período. patrimônio acumulado num determinado período.
} }
\examples{ \examples{
library(car) library(car)
data(MingotiTb3.1) data(MingotiTb3.1)
...@@ -33,6 +34,8 @@ data(MingotiTb3.1) ...@@ -33,6 +34,8 @@ data(MingotiTb3.1)
scatterplotMatrix(~gbt + glq + patr, scatterplotMatrix(~gbt + glq + patr,
data = MingotiTb3.1, data = MingotiTb3.1,
main = "Dispersão das variáveis") main = "Dispersão das variáveis")
} }
\keyword{TODO} \keyword{TODO}
% Generated by roxygen2 (4.1.1): do not edit by hand % Generated by roxygen2: do not edit by hand
% Please edit documentation in R/MingotiTb3.5.R % Please edit documentation in R/MingotiTb3.5.R
\name{MingotiTb3.5} \name{MingotiTb3.5}
\alias{MingotiTb3.5} \alias{MingotiTb3.5}
...@@ -36,6 +36,7 @@ Dados de 8 marcas de coxinha de galinha, avaliados em 4 ...@@ -36,6 +36,7 @@ Dados de 8 marcas de coxinha de galinha, avaliados em 4
para cada marca e cada atributo. para cada marca e cada atributo.
} }
\examples{ \examples{
data(MingotiTb3.5) data(MingotiTb3.5)
library(car) library(car)
...@@ -43,6 +44,7 @@ library(car) ...@@ -43,6 +44,7 @@ library(car)
scatterplotMatrix(~sabor + aroma + massa + recheio, scatterplotMatrix(~sabor + aroma + massa + recheio,
data = MingotiTb3.5, data = MingotiTb3.5,
main = "Matriz de dispersão") main = "Matriz de dispersão")
} }
\keyword{sensorial} \keyword{sensorial}
% Generated by roxygen2 (4.1.1): do not edit by hand % Generated by roxygen2: do not edit by hand
% Please edit documentation in R/MingotiTb8.1.R % Please edit documentation in R/MingotiTb8.1.R
\name{MingotiTb8.1} \name{MingotiTb8.1}
\alias{MingotiTb8.1} \alias{MingotiTb8.1}
...@@ -31,6 +31,7 @@ Dados relativos a 257 indivíduos classificados de acordo ...@@ -31,6 +31,7 @@ Dados relativos a 257 indivíduos classificados de acordo
com a renda e número de filhos. com a renda e número de filhos.
} }
\examples{ \examples{
data(MingotiTb8.1) data(MingotiTb8.1)
library(lattice) library(lattice)
...@@ -39,6 +40,7 @@ xyplot(i0f + i1f + i2f + m2f ~ renda, ...@@ -39,6 +40,7 @@ xyplot(i0f + i1f + i2f + m2f ~ renda,
data = MingotiTb8.1, data = MingotiTb8.1,
ylab = "Número de indivíduos", ylab = "Número de indivíduos",
auto.key = TRUE) auto.key = TRUE)
} }
\keyword{TODO} \keyword{TODO}
% Generated by roxygen2 (4.1.1): do not edit by hand % Generated by roxygen2: do not edit by hand
% Please edit documentation in R/PimentelEg4.2.R % Please edit documentation in R/PimentelEg4.2.R
\name{PimentelEg4.2} \name{PimentelEg4.2}
\alias{PimentelEg4.2} \alias{PimentelEg4.2}
...@@ -25,9 +25,11 @@ Experimento (fictício) de alimentação de porcos em que ...@@ -25,9 +25,11 @@ Experimento (fictício) de alimentação de porcos em que
peso observados. peso observados.
} }
\examples{ \examples{
plot(PimentelEg4.2, plot(PimentelEg4.2,
xlab = "Rações", xlab = "Rações",
ylab = "Ganho de Peso") ylab = "Ganho de Peso")
} }
\keyword{DIC} \keyword{DIC}
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment