[R-br] Estrutura de repetição - Função

[Sérgio Henrique almeida da silva ju]

Prezados

Quero criar uma função na qual eu digito um conjunto de notas e no final o
programa me dê a média dessas notas. O programa é interrompido quando eu
digito uma nota negativa.

Estou fazendo dessa forma:

media <- function(){
soma = 0
n=0
X1= cat("Digite uma nota: ", sep="\n")
nota= scan(stdin(),n=n)
while (nota >= 0){
soma=soma+nota
n = n + 1
X1= cat("Digite uma nota: ", sep="\n")
nota= scan(stdin(),n=n)}
return (sprintf("%.1f",soma/2))}

Onde posso estar errando?

Abraços

-- 
Sérgio Henrique Almeida da Silva Junior
Doutorando em Epidemiologia em Saúde Pública
Escola Nacional de Saúde Pública Sérgio Arouca - ENSP/FIOCRUZ
http://lattes.cnpq.br/1611345552843383
Tel: (21) 68463637
http://www.linkedin.com/profile/view?id=250437145&trk=tab_pro
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20130508/2a799967/attachment.html>