Plota duas colunas

<?xml version="1.0" encoding="ISO-8859-1"?>
<Rscript>
<titulo>Plota duas colunas</titulo>
<descricao>
Gera um gráfico de dispersão que mostra a distribuição conjunta das informações de duas colunas do quadro atual.

O usuário escolhe as colunas a serem plotadas.
</descricao>
<autor>Ernani Bandarra</autor>
<email></email>
<versao>1.0</versao>
<parametro></parametro>
<parametro2></parametro2>
<colsel>Marque as duas colunas</colsel>
<colsel2></colsel2>
<script>
if(length(colsel) < 2) { cat("São necessárias pelo menos duas colunas!"); q()}
grafico.tabwin()
plot(tabela[,colsel[1]],tabela[,colsel[2]], xlab=colnames(tabela[colsel[1]]), ylab= colnames(tabela[colsel[2]]),
      pch=22, col="red", bg="yellow")
abline(lm(tabela[,colsel[2]] ~ tabela[,colsel[1]]))      
title(titulo, font.main=3)
</script>
<exemplo>

</exemplo>
</Rscript>