Discussion:
[R-es] loop para repetir valores de un vector
Priscila Ana Powell
2018-07-12 13:42:00 UTC
Permalink
Hola a todos!

Estoy intentando crear un vector (alt) a partir de la repetición de valores
provenientes de otro vector (altitud).
A cada valor de altitud lo quiero repetir 1247 veces, y de ahi continuar
con el siguiente valor de altitud.

Probé varias cosas, pero esto me pareció lo más coherente:

altitud=read.csv("C:/Users/IER/Dropbox/Pasantia
Castelar/YungasLigustroTS/altitud44.csv")

alt=numeric (44*1247) #lo especifico asi porque tal vez tenga que cambiar
las dimensiones segun otros valores)

for (i in 1:44){
alt[((i-1)*1247+1):(i*1247)]<-for (ii in altitud) {rep (ii, 1247)
}
}

Adjunto el vector altitud.

desde ya, muchas gracias

saludos!

Priscila
--
Dra. Priscila Ana Powell
Instituto de Ecología Regional-CONICET
Cátedra de Ecología General-Facultad de Ciencias Naturales e Instituto
Miguel Lillo
Universidad Nacional de Tucumán
Argentina
Juan Abasolo
2018-07-12 14:48:44 UTC
Permalink
Hola, Priscila;

A mí me parece que así me salió:

altitud <- read.csv("./altitud44.csv")

y <- list()
for(i in altitud$altitud){
print(i)
x<- rep(i,1247)
y[[length(y)+1]] <- x
}
z <- c()
for(i in 1:length(y)){
print(i)
z <- c(z,y[[i]])
}

Es código muy primitivo y desprolijo de alumno, pero si te sirve...

Suerte
Post by Priscila Ana Powell
Hola a todos!
Estoy intentando crear un vector (alt) a partir de la repetición de
valores provenientes de otro vector (altitud).
A cada valor de altitud lo quiero repetir 1247 veces, y de ahi continuar
con el siguiente valor de altitud.
altitud=read.csv("C:/Users/IER/Dropbox/Pasantia Castelar/YungasLigustroTS/
altitud44.csv")
alt=numeric (44*1247) #lo especifico asi porque tal vez tenga que cambiar
las dimensiones segun otros valores)
for (i in 1:44){
alt[((i-1)*1247+1):(i*1247)]<-for (ii in altitud) {rep (ii, 1247)
}
}
Adjunto el vector altitud.
desde ya, muchas gracias
saludos!
Priscila
--
Dra. Priscila Ana Powell
Instituto de Ecología Regional-CONICET
Cátedra de Ecología General-Facultad de Ciencias Naturales e Instituto
Miguel Lillo
Universidad Nacional de Tucumán
Argentina
_______________________________________________
R-help-es mailing list
https://stat.ethz.ch/mailman/listinfo/r-help-es
--
Juan Abasolo

Hizkuntzaren eta Literaturaren Didaktika Saila
Bilboko Hezkuntza Fakultatea
Euskal Herriko Unibertsitatea
UPV/EHU

Sarriena auzoa z/g
48940 Leioa
Bizkaia

[[alternative HTML version deleted]]
Juan Abasolo
2018-07-12 14:54:31 UTC
Permalink
Más fácil:

altitud=read.csv("./altitud44.csv")

y <- c() # Vacio
for(i in altitud$altitud){
print(i)
x<- rep(i,1247)
y <- c(y,x)
}
Post by Juan Abasolo
Hola, Priscila;
altitud <- read.csv("./altitud44.csv")
y <- list()
for(i in altitud$altitud){
print(i)
x<- rep(i,1247)
y[[length(y)+1]] <- x
}
z <- c()
for(i in 1:length(y)){
print(i)
z <- c(z,y[[i]])
}
Es código muy primitivo y desprolijo de alumno, pero si te sirve...
Suerte
Post by Priscila Ana Powell
Hola a todos!
Estoy intentando crear un vector (alt) a partir de la repetición de
valores provenientes de otro vector (altitud).
A cada valor de altitud lo quiero repetir 1247 veces, y de ahi continuar
con el siguiente valor de altitud.
altitud=read.csv("C:/Users/IER/Dropbox/Pasantia
Castelar/YungasLigustroTS/altitud44.csv")
alt=numeric (44*1247) #lo especifico asi porque tal vez tenga que cambiar
las dimensiones segun otros valores)
for (i in 1:44){
alt[((i-1)*1247+1):(i*1247)]<-for (ii in altitud) {rep (ii, 1247)
}
}
Adjunto el vector altitud.
desde ya, muchas gracias
saludos!
Priscila
--
Dra. Priscila Ana Powell
Instituto de Ecología Regional-CONICET
Cátedra de Ecología General-Facultad de Ciencias Naturales e Instituto
Miguel Lillo
Universidad Nacional de Tucumán
Argentina
_______________________________________________
R-help-es mailing list
https://stat.ethz.ch/mailman/listinfo/r-help-es
--
Juan Abasolo
Hizkuntzaren eta Literaturaren Didaktika Saila
Bilboko Hezkuntza Fakultatea
Euskal Herriko Unibertsitatea
UPV/EHU
Sarriena auzoa z/g
48940 Leioa
Bizkaia
--
Juan Abasolo

Hizkuntzaren eta Literaturaren Didaktika Saila
Bilboko Hezkuntza Fakultatea
Euskal Herriko Unibertsitatea
UPV/EHU

Sarriena auzoa z/g
48940 Leioa
Bizkaia

[[alternative HTML version deleted]]
Víctor Granda García
2018-07-12 17:46:42 UTC
Permalink
Hola a todos,

No es necesario ningún bucle for ni nada por el estilo. La función rep ya
contempla esa opción:

alt <- rep(altitud$altitud, each = 1247)

hace exactamente lo que quieres Priscila.

Espero que te sirva, un saludo!!
Post by Juan Abasolo
altitud=read.csv("./altitud44.csv")
y <- c() # Vacio
for(i in altitud$altitud){
print(i)
x<- rep(i,1247)
y <- c(y,x)
}
Post by Juan Abasolo
Hola, Priscila;
altitud <- read.csv("./altitud44.csv")
y <- list()
for(i in altitud$altitud){
print(i)
x<- rep(i,1247)
y[[length(y)+1]] <- x
}
z <- c()
for(i in 1:length(y)){
print(i)
z <- c(z,y[[i]])
}
Es código muy primitivo y desprolijo de alumno, pero si te sirve...
Suerte
2018-07-12 15:42 GMT+02:00 Priscila Ana Powell <
Post by Priscila Ana Powell
Hola a todos!
Estoy intentando crear un vector (alt) a partir de la repetición de
valores provenientes de otro vector (altitud).
A cada valor de altitud lo quiero repetir 1247 veces, y de ahi continuar
con el siguiente valor de altitud.
altitud=read.csv("C:/Users/IER/Dropbox/Pasantia
Castelar/YungasLigustroTS/altitud44.csv")
alt=numeric (44*1247) #lo especifico asi porque tal vez tenga que
cambiar
Post by Juan Abasolo
Post by Priscila Ana Powell
las dimensiones segun otros valores)
for (i in 1:44){
alt[((i-1)*1247+1):(i*1247)]<-for (ii in altitud) {rep (ii, 1247)
}
}
Adjunto el vector altitud.
desde ya, muchas gracias
saludos!
Priscila
--
Dra. Priscila Ana Powell
Instituto de Ecología Regional-CONICET
Cátedra de Ecología General-Facultad de Ciencias Naturales e Instituto
Miguel Lillo
Universidad Nacional de Tucumán
Argentina
_______________________________________________
R-help-es mailing list
https://stat.ethz.ch/mailman/listinfo/r-help-es
--
Juan Abasolo
Hizkuntzaren eta Literaturaren Didaktika Saila
Bilboko Hezkuntza Fakultatea
Euskal Herriko Unibertsitatea
UPV/EHU
Sarriena auzoa z/g
48940 Leioa
Bizkaia
--
Juan Abasolo
Hizkuntzaren eta Literaturaren Didaktika Saila
Bilboko Hezkuntza Fakultatea
Euskal Herriko Unibertsitatea
UPV/EHU
Sarriena auzoa z/g
48940 Leioa
Bizkaia
[[alternative HTML version deleted]]
_______________________________________________
R-help-es mailing list
https://stat.ethz.ch/mailman/listinfo/r-help-es
--
*Víctor Granda García*
Data Technician


***@creaf.uab.cat
Tel. +34 93 581 33 53


Campus UAB. Edifici C. 08193 Bellaterra (Barcelona) | *www.creaf.cat*
<http://www.creaf.uab.es/cat/index.htm>

Abans d'imprimir aquest missatge electrònic penseu en el medi ambient.

[[alternative HTML version deleted]]
Loading...