<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=Content-Type content="text/html; charset=iso-8859-1">
<META content="MSHTML 6.00.2900.3429" name=GENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=#ffffff>
<DIV><FONT face=Arial color=#0000ff>Estava olhando esta discussão, queria saber
por que precisa colocar este NULL no err<-NULL?</FONT></DIV>
<BLOCKQUOTE
style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
<DIV><BR></DIV>Você pode tentar assim:
<DIV><BR></DIV>
<DIV>
<DIV>n<-c(87, 108, 80, 25)</DIV>
<DIV>err.m<-matrix(NA, choose(nx,2),1)</DIV>
<DIV>err.m</DIV>
<DIV>nx</DIV>
<DIV>err <- NULL</DIV>
<DIV>for(i in 1:nx)</DIV>
<DIV> { </DIV>
<DIV> for(j in 2:nx)</DIV>
<DIV> {</DIV>
<DIV> if(i<j){</DIV>
<DIV> err<-c(err,
sqrt((410.35/(n[i]+0.5))+(410.35/(n[j]+0.5))))</DIV>
<DIV> }</DIV>
<DIV> }</DIV>
<DIV> }</DIV>
<DIV>err.m <- err</DIV>
<DIV><BR></DIV>
<DIV>Mas existem outras formas para escrever o mesmo código, um pouco mais
enxuto:</DIV>
<DIV><BR></DIV>
<DIV>
<DIV>fun <- function(x,y){sqrt((410.35/(x+0.5))+(410.35/(y+0.5)))}</DIV>
<DIV>err.m2 <- sapply(n,fun,n)[lower.tri(sapply(n,fun,n))]</DIV>
<DIV>err.m2</DIV></DIV>
<DIV><BR></DIV>
<DIV>Espero ter ajudado.</DIV>
<DIV>Abraços,</DIV>
<DIV>Lucas</DIV><BR>
<DIV class=gmail_quote>2011/11/30 Gilbert Queiroz <SPAN dir=ltr><<A
href="mailto:gilbert_queiroz@yahoo.com.br">gilbert_queiroz@yahoo.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>
<DIV
style="FONT-SIZE: 12pt; COLOR: #000; FONT-FAMILY: times new roman,new york,times,serif; BACKGROUND-COLOR: #fff">
<DIV>Pessoal, tenho a seguinte parte de um script que estou
desenvolvendo:</DIV>
<DIV><BR></DIV>
<DIV>n<-c(87, 108, 80, 25)<BR>err.m<-matrix(NA,
choose(nx,2),1)<BR>err.m<BR>nx<BR>for(i in 1:nx)<BR> {
<BR> for(j in
2:nx)<BR>
{<BR>
if(i<j){<BR>
err<-sqrt((410.35/(n[i]+0.5))+(410.35/(n[j]+0.5)))<BR>
print(err)<BR>
}<BR> }<BR> }</DIV>
<DIV><BR>Informações úteis:<BR></DIV>
<DIV>nx = 4 (já foi definido em outra parte do script)<BR></DIV>
<DIV>err.m é uma matriz-coluna (6 x 1)<BR></DIV>
<DIV><BR></DIV>
<DIV>O quero fazer é colocar os resultados de err dentro da matriz
err.m</DIV>
<DIV><BR></DIV>
<DIV>Como faço isso???</DIV>
<DIV><BR>O comando print me mostra que err está calculando o que quero. Mas
me interessa colocar os resultados em err.m<BR></DIV>
<DIV><BR>Abs.</DIV></DIV></DIV><BR></BLOCKQUOTE></DIV></DIV></BLOCKQUOTE></BODY></HTML>