Regressão Linear

<?xml version="1.0" encoding="ISO-8859-1"?>
<Rscript>
<titulo>Regressão Linear</titulo>
<descricao>
....
Descrição e notas técnicas sobre o esquema de análise.
....
</descricao>
<autor>Oswaldo G Cruz</autor>
<email>oswaldo@fiocruz.br</email>
<versao>1.0</versao>
<parametro>Entre com a fórmula a ser usada (ex: x ~ y+z)</parametro>
<parametro2></parametro2>
<colsel></colsel>
<colsel2></colsel2>
<script>
grafico.tabwin()
reg = lm(as.formula(parametro),data=tabela)
summary(reg)
plot(reg)
tabela$ajustado = reg$fitted
tabela$residuos = reg$residuals
carrega.tabwin(tabela)
</script>
<exemplo>

</exemplo>
</Rscript>