1 + floor(1:nrow(datos) / 400) Pura aritmética, de nuevo.
Un saludo, Carlos J. Gil Bellosta http://www.datanalytics.com El día 17 de noviembre de 2015, 15:28, Jesús Para Fernández <j.para.fernan...@hotmail.com> escribió: > Gracuas a todos!!! > > Por cierto, esta ya es de nota. Si quiero agregar una columna, y que cada 400 > piezsa el valor se incremente en una unidad, es decir las 400 primeras, > tendrian cada fila el valor 1. Las siguientes 400, 2, .... > > Lo he hecho con un for, pero va bastante lento: > k<-1 > for(i in 1:length(datos[,1])){ > > if(i%%400 == 0){k = k +1} > datos[i,9] <- k; > > } > > >> From: josea.bartol...@mineco.es >> To: j.para.fernan...@hotmail.com; r-help-es@r-project.org >> Subject: RE: [R-es] Borrar cada fila 400 >> Date: Tue, 17 Nov 2015 14:22:14 +0000 >> >> Prueba con: >> >> Datos[-seq(from = 400, to=50000, by = 400), ] >> >> No necesitas un buche, para eliminar las filas. >> >> Un cordial saludo. >> >> -----Mensaje original----- >> De: R-help-es [mailto:r-help-es-boun...@r-project.org] En nombre de Jesús >> Para Fernández >> Enviado el: Tuesday, November 17, 2015 3:15 PM >> Para: r-help-es@r-project.org >> Asunto: [R-es] Borrar cada fila 400 >> >> Buenas, tengo un csv [csv final] con 50000 filas, que es uni�n de varios csv >> [csv particular]. >> >> Cada csv [csv particular] tiene en la �ltima fila, la 400, una serie de >> valores que quiero eliminar, por lo que del [csv filan] quiero borrar la >> linea 400,800,1200,.... >> >> >> Lo he intentado con un bucle for: >> >> for(i in 1:50000){ >> if(i%%400 == 0) {datos[-i,]} >> } >> >> >> Pero no me funciona. Adem�s me han dicho que con apply puede ser mucho m�s >> eficiente el algoritmo. �Alguna idea? >> >> Gracias >> >> >> [[alternative HTML version deleted]] >> > > [[alternative HTML version deleted]] > > _______________________________________________ > R-help-es mailing list > R-help-es@r-project.org > https://stat.ethz.ch/mailman/listinfo/r-help-es _______________________________________________ R-help-es mailing list R-help-es@r-project.org https://stat.ethz.ch/mailman/listinfo/r-help-es
