Você pode tentar tbm: m <- outer(n, n, function(x, y)sqrt((410.35 / (x + 0.5)) + (410.35 / (y + 0.5)))) m[lower.tri(m)]
2011/11/30 Gilbert Queiroz <[email protected]> > Pessoal, tenho a seguinte parte de um script que estou desenvolvendo: > > n<-c(87, 108, 80, 25) > err.m<-matrix(NA, choose(nx,2),1) > err.m > nx > for(i in 1:nx) > { > for(j in 2:nx) > { > if(i<j){ > err<-sqrt((410.35/(n[i]+0.5))+(410.35/(n[j]+0.5))) > print(err) > } > } > } > > Informações úteis: > nx = 4 (já foi definido em outra parte do script) > err.m é uma matriz-coluna (6 x 1) > > O quero fazer é colocar os resultados de err dentro da matriz err.m > > Como faço isso??? > > O comando print me mostra que err está calculando o que quero. Mas me > interessa colocar os resultados em err.m > > Abs. > > _______________________________________________ > R-br mailing list > [email protected] > https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br > Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça > código mínimo reproduzível. > -- Henrique Dallazuanna Curitiba-Paraná-Brasil 25° 25' 40" S 49° 16' 22" O
_______________________________________________ R-br mailing list [email protected] https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código mínimo reproduzível.
