<div dir="ltr">o scan() vai aceitar que tu entre dados até o 1o dado vazio (ou seja, até dois 'enter' seguidos). Sugiro o readline() para isso.<div><br></div><div><div>media <- function() {</div><div>  soma = 0</div>
<div>  n=0</div><div>  cat('Digite uma nota: ')</div><div>  nota=as.double(readline())</div><div>  while (nota >= 0) {</div><div>    soma=soma+nota</div><div>    n = n + 1</div><div>    cat('Digite uma nota: ')</div>
<div>    nota= as.double(readline(""))</div><div>  }</div><div>  return (sprintf("%.1f",soma/2))</div><div>}</div><div>media()</div></div><div><br></div></div><div class="gmail_extra"><br><br><div class="gmail_quote">
2013/5/8 Sérgio Henrique almeida da silva ju <span dir="ltr"><<a href="mailto:sergio.edfisica@gmail.com" target="_blank">sergio.edfisica@gmail.com</a>></span><br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
<div dir="ltr">Prezados<div><br></div><div>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.</div>

<div><br></div><div>Estou fazendo dessa forma:</div><div><br></div><div><div>media <- function(){</div><div>soma = 0</div><div>n=0</div><div>X1= cat("Digite uma nota: ", sep="\n")</div><div>nota= scan(stdin(),n=n)</div>

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

<div><br></div><div>Onde posso estar errando?</div><div><br></div><div>Abraços</div><span class="HOEnZb"><font color="#888888"><div><br></div>-- <br><div dir="ltr">Sérgio Henrique Almeida da Silva Junior<br>Doutorando em Epidemiologia em Saúde Pública<br>

Escola Nacional de Saúde Pública Sérgio Arouca - ENSP/FIOCRUZ<br><a href="http://lattes.cnpq.br/1611345552843383" target="_blank">http://lattes.cnpq.br/1611345552843383</a> <br>Tel: <a href="tel:%2821%29%2068463637" value="+552168463637" target="_blank">(21) 68463637</a><br>
<div><a href="http://www.linkedin.com/profile/view?id=250437145&trk=tab_pro" target="_blank">http://www.linkedin.com/profile/view?id=250437145&trk=tab_pro</a><br>
</div></div>
</font></span></div></div>
<br>_______________________________________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br></blockquote></div><br></div>