R Notebook

require(lattice)

## Loading required package: lattice

require(latticeExtra)

## Loading required package: latticeExtra

require(grid)

## Loading required package: grid

require(MASS)

## Loading required package: MASS

require(doBy)

## Loading required package: doBy

require(gmodels)

## Loading required package: gmodels

require(multcomp)

## Loading required package: multcomp

## Loading required package: mvtnorm

## Loading required package: survival

## Loading required package: TH.data

## 
## Attaching package: 'TH.data'

## The following object is masked from 'package:MASS':
## 
##     geyser

dados = read.table("http://www.leg.ufpr.br/Rpira/dados/exemplo01.txt", header = TRUE)

dados_2 = read.table("http://www.leg.ufpr.br/~paulojus/dados/exemplo02.txt", header = TRUE)

fu= read.table("http://www.leg.ufpr.br/~walmes/data/zimmermann_fusarium.txt",header=TRUE, sep="\t")
fu

str(fu)

## 'data.frame':    55 obs. of  4 variables:
##  $ tratamentos: Factor w/ 11 levels "benlate antes",..: 3 1 2 6 4 5 9 7 8 10 ...
##  $ fungicida  : Factor w/ 5 levels "benlate","captam",..: 1 1 1 2 2 2 3 3 3 4 ...
##  $ aplicacao  : Factor w/ 5 levels "antes","misturado",..: 4 1 2 4 1 2 4 1 2 3 ...
##  $ infec40    : int  5 1 3 7 3 6 0 0 0 6 ...

xtabs(~fungicida+aplicacao, fu)

xyplot(infec40~tratamentos, fu, jitter.x=TRUE)