Histograma

<?xml version="1.0" encoding="ISO-8859-1"?>
<Rscript>
<titulo>Histograma</titulo>
<descricao>
Plota um histograma para cada uma das colunas selecionadas.
Histogramas nos permitem verificar a distribuição dos valores de uma variável.
</descricao>
<autor>Ernani Bandarra</autor>
<email></email>
<versao>1.0</versao>
<parametro></parametro>
<parametro2></parametro2>
<colsel>Gerar histogramas de</colsel>
<colsel2></colsel2>
<script>
meuhist = function(x,cabec){
  tmp = hist(x,plot=FALSE)
  tmp$xname=cabec
  pct = format(tmp$counts*100/sum(tmp$counts),digit=1) 
  plot(tmp,col="red",main=paste("Histograma de",cabec),ylab="Freqüência",labels=pct)

  cat("\n\nFaixas de",cabec,"\n\n")
  zz = data.frame(tmp$breaks,c(tmp$counts,NA),c(pct,NA))
  names(zz) = c("Limites","Freqüência","Percentagem")
  print(zz)
}

grafico.tabwin()
for (i in 1:length(colsel)) meuhist(tabela[,colsel[i]],names(tabela[colsel[i]]))
</script>
<exemplo>

</exemplo>
</Rscript>