O solo R> sum(combn(x, 2, prod)) [1] 14121
Saludos, Jorge.- 2015-02-24 21:00 GMT+11:00 Carlos Ortega <c...@qualityexcellence.es>: > Hola, > > Otra forma de hacerlo, es as�: > > #--------------- > > x<- c(24,12,45,68,45) > > sum(apply(combn(x,2),2,prod)) > [1] 14121 > #--------------- > > Y te ahorras los l�os del bucle y de los �ndices... > > Saludos, > Carlos Ortega > www.qualityexcellence.es > > El 24 de febrero de 2015, 10:36, Francisco Rodr�guez <fjr...@hotmail.com> > escribi�: > > > Si he entendido bien el problema, lo que quieres hacer realmente es esto: > > x<- c(24,12,45,68,45)n<-length(x)res=0for(i in 2:n-1){ for(j in > > (i+1):n){ res<- res + (x[i]*x[j]) print(res) }} > > Cuya salida es: > > [1] 288[1] 1368[1] 3000[1] 4080[1] 4620[1] 5436[1] 5976[1] 9036[1] > > 11061[1] 14121 > > Varias observaciones: > > 1:n-1 define un vector que empieza en 0, cuando la posici�n 1 en R es el > 1 > > por tanto x[0] no existe y no da resultado > > sum(x[i]*x[j]) es una operaci�n que calcula la suma de un vector, en tu > > caso tienes un escalar y por tanto no deber�a hacer nada > > Tienes que definir res para que se sume as� misma > > Un saludo > > Francisco J. > > > > > > > Date: Tue, 24 Feb 2015 10:02:11 +0100 > > > From: mora...@us.es > > > To: r-help-es@r-project.org > > > Subject: [R-es] Problema con bucle for > > > > > > > > > > > > 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 > > > R-help-es@r-project.org > > > https://stat.ethz.ch/mailman/listinfo/r-help-es > > > > [[alternative HTML version deleted]] > > > > > > _______________________________________________ > > R-help-es mailing list > > R-help-es@r-project.org > > https://stat.ethz.ch/mailman/listinfo/r-help-es > > > > > > > -- > Saludos, > Carlos Ortega > www.qualityexcellence.es > > [[alternative HTML version deleted]] > > _______________________________________________ > R-help-es mailing list > R-help-es@r-project.org > https://stat.ethz.ch/mailman/listinfo/r-help-es > [[alternative HTML version deleted]]
_______________________________________________ R-help-es mailing list R-help-es@r-project.org https://stat.ethz.ch/mailman/listinfo/r-help-es