Gráfico de setores

<?xml version="1.0" encoding="ISO-8859-1"?>
<Rscript>
<titulo>Gráfico de setores</titulo>
<descricao>
Gera um gráfico de setores para cada coluna selecionada.
</descricao>
<autor>Ernani Bandarra</autor>
<email></email>
<versao>1.0</versao>
<parametro></parametro>
<parametro2></parametro2>
<colsel>Marque as coluna a serem plotadas</colsel>
<colsel2></colsel2>
<script>
grafico.tabwin()
for (I in 1:length(colsel)) {
   pie(tabela[,colsel[I]],labels=rownames(tabela))
   title(colnames(tabela[colsel[I]]))
}
</script>
<exemplo>

</exemplo>
</Rscript>