EXERCÍCIO 3

chiro= read.table("chiro.csv", header=T, sep="\t", row.name=1)
summary(chiro$Bal..Municipal)
 > summary(chiro$Bal..Sol)
 > summary(chiro$ Bal..Gordo)
 > summary(chiro$Ibira)
 > summary(chiro$Ilha..Padre)
 > summary(chiro$Ilha.Bonita)

 chiro$Bal..Municipal=as.factor(chiro$Bal..Municipal)


write.table(data.frame("chirono", file=chiro$Bal..Municipal) file="arv.txt", sep="/t"))

___________________________________________________
Classes de objetos

class(iris)
class(iris3)

tapply(iris$Sepal.Length, iris$Species, mean)
tapply(iris$Sepal.Width, iris$Species, mean)
tapply(iris$Petal.Length, iris$Species, mean)
tapply(iris$Petal.Width, iris$Species, mean)

apply(iris3, c(2,3), mean)

names(iris) = c("comprimento.sepala", "largura.sepala", "comprimento.petala", "largura.petala", "especies")