<html>
<head>
<meta content="text/html; charset=ISO-8859-1"
http-equiv="Content-Type">
</head>
<body bgcolor="#FFFFFF" text="#000000">
test1=function(){<br>
U=runif(3*10^4)<br>
U=matrix(data=U,nrow=3) #matrix for sums<br>
X=-log(U) #uniform to exponential<br>
X=2* apply(X,2,sum) #sum up to get chi squares<br>
}<br>
system.time(test1())<br>
<br>
Código certo.<br>
Repare a última linha<br>
<pre class="moz-signature" cols="72">[]s
Leonard de Assis
assis <dot> leonard <at> gmail <dot> com
</pre>
<br>
Em 11/09/2011 21:58, Mauro Sznelwar escreveu:
<blockquote cite="mid:002901cc70e7$16f36d30$6400a8c0@mauro"
type="cite">
<meta http-equiv="Content-Type" content="text/html;
charset=ISO-8859-1">
<meta content="MSHTML 6.00.2900.3429" name="GENERATOR">
<style></style>
<div><font color="#0000ff" face="Arial">Eu fiz, mas continua não
dando certo, qual o erro?</font></div>
<div><font face="Arial" size="2">> test1=function(){<br>
+ U=runif(3*10^4)<br>
+ U=matrix(data=U,nrow=3) #matrix for sums<br>
+ X=-log(U) #uniform to exponential<br>
+ X=2* apply(X,2,sum) #sum up to get chi squares<br>
+ }<br>
> system.time(test1)<br>
usuário sistema decorrido <br>
0 0 0 <br>
> </font></div>
<blockquote style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px;
MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT:
0px">
<div style="FONT: 10pt arial"> </div>
<div><br>
</div>
O test1 e test2 dele são funções, e não variáveis... tu tem que
criar funções com esses passos e dai sim usar o system.time()
<div><br>
</div>
<div><br>
</div>
<div>[]'s<br>
<br>
<div class="gmail_quote">2011/9/11 Mauro Sznelwar <span
dir="ltr"><<a moz-do-not-send="true"
href="mailto:sznelwar@uol.com.br">sznelwar@uol.com.br</a>></span><br>
<blockquote class="gmail_quote" style="PADDING-LEFT: 1ex;
MARGIN: 0px 0px 0px 0.8ex; BORDER-LEFT: #ccc 1px solid">
<div bgcolor="#ffffff">
<div><font face="Arial" size="2"><font face="CMTT10"
size="2">
<p align="justify"><font color="#0000ff" size="3">Pessoal,
eu tenho esta simulação que quero testar a
eficiência em relação ao rchisq, mas não estou
chegando no resultado do livro. Alguém poderia
dizer o que estou fazendo de errado?</font></p>
<p align="left"> U=runif(3*10^4)</p>
<p align="left">U=matrix(data=U,nrow=3) #matrix
for sums</p>
<p align="left"> X=-log(U) #uniform to exponential</p>
<p align="left"> X=2* apply(X,2,sum) #sum up to
get chi squares</p>
</font><font face="CMTT10" size="2"><font
face="CMTT10" size="2">
<p>test1=X</p>
<p>test2=rchisq(10^4,df=6)</p>
</font><font face="CMSS10" size="2"> </font>system.time(test1);system.time(test2)<br>
usuário sistema decorrido <br>
0 0 0 <br>
usuário sistema decorrido <br>
0 0 0 <br>
<p align="left"><font color="#0000ff" size="3">No
livro tem este resultado:</font></p>
<p align="left">system.time(test1());system.time(test2())</p>
<p align="left">user system elapsed</p>
<p align="left">0.104 0.000 0.107</p>
<p align="left">user system elapsed</p>
<p>0.004 0.000 0.004</p>
</font></font></div>
</div>
<br>
_______________________________________________<br>
R-br mailing list<br>
<a moz-do-not-send="true"
href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br>
<a moz-do-not-send="true"
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 moz-do-not-send="true"
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>
<p> </p>
<hr> _______________________________________________<br>
R-br mailing list<br>
<a class="moz-txt-link-abbreviated" href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br>
<a class="moz-txt-link-freetext" href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>
Leia o guia de postagem (<a class="moz-txt-link-freetext" href="http://www.leg.ufpr.br/r-br-guia">http://www.leg.ufpr.br/r-br-guia</a>) e
forneça código mínimo reproduzível.</blockquote>
<br>
<fieldset class="mimeAttachmentHeader"></fieldset>
<br>
<pre wrap="">_______________________________________________
R-br mailing list
<a class="moz-txt-link-abbreviated" href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a>
<a class="moz-txt-link-freetext" href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a>
Leia o guia de postagem (<a class="moz-txt-link-freetext" href="http://www.leg.ufpr.br/r-br-guia">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.</pre>
</blockquote>
</body>
</html>