Prueba esto: x<- c(24,12,45,68,45) tmp <- outer(x, x, "*") sum(tmp[lower.tri(tmp)])
Un saludo, Carlos J. Gil Bellosta http://www.datanalytics.com El día 24 de febrero de 2015, 10:02, <[email protected]> escribió: > > > Hola, quiero obtener la suma del producto de los elementos de un vector > y cuando construyo el código me aparecen una serie de NA que me impiden > calcular la suma. ¿Alguna sugerencia? > > El código es el siguiente: > > x<- c(24,12,45,68,45) > n<-length(x) > res<-numeric() > for(i in 1:n-1){ > for(j in i+1:n){ > res<- sum(x[i]*x[j]) > print(res) > } > } > res > > > [[alternative HTML version deleted]] > > _______________________________________________ > R-help-es mailing list > [email protected] > https://stat.ethz.ch/mailman/listinfo/r-help-es _______________________________________________ R-help-es mailing list [email protected] https://stat.ethz.ch/mailman/listinfo/r-help-es
