#Exercicio 4.2 cervejas
  cervejas<-c("chope","lata","garrafa","chope","garrafa", "garrafa","lata","lata","nenhuma","lata","garrafa","garrafa", "garrafa","lata","lata","lata","garrafa","lata","chope","nenhuma", "garrafa","garrafa","garrafa","chope","garrafa","garrafa","chope","garrafa","lata","lata")
   cervejas
  class(cervejas)
  table(cervejas)
  hist(table(cervejas))
  barplot(table(cervejas))
  cerve<-as.factor(cervejas)
  help(dotchart)
  dotchart(cervejas)
#4.3 Caixetas
caixeta<-read.table("C:\\Users\\USER\\Desktop\\curso R\\tutorial3\\caixeta.csv",header=TRUE,sep=",",as.is=T)
  caixeta
  str(caixeta)
  head(caixeta)
  tail(caixeta)
  names(caixeta)
DAP<-caixeta$cap/pi
  DAP
hist(DAP)
  hist(table(caixeta$local,caixeta$h))
  hist(caixeta$fuste)
  require(lattice)
 dotchart(caixeta$h)

# 4.4 Eucaliptos
e.grandis<-read.table("C:\\Users\\USER\\Desktop\\curso R\\Exe3\\3.4\\egrandis.csv",header=T,sep=";",as.is=T)
 e.grandis
  names(e.grandis)
boxplot(DAP~caixet)