Funciton form: everyOther <- function(tempin, x){ tempout[seq(1,length(tempin)*2, by=2)]<-tempin tempout[seq(2,length(tempin)*2, by=2)]<-tempin+x tempout }
Jeff. On Nov 12, 2006, at 5:31 PM, Jeffrey Robert Spies wrote: > tempin <- seq(1, 1411, by=30) > tempout <- array(data=NA, dim=length(tempin)*2) > tempout[seq(1,length(tempin)*2, by=2)]<-tempin > tempout[seq(2,length(tempin)*2, by=2)]<-tempin+5 > > Is this what you're looking for? > > Jeff. > > On Nov 12, 2006, at 5:20 PM, Leeds, Mark (IED) wrote: > >> I have index ( of a vector ) values of say >> >> tempin<-c(1 31 61 91 121 all the way upto 1411) >> >> What I want is a function that takes in a number say, x = 5, and >> gives >> me an new vector >> of >> >> tempout<-1 6 31 36 91 96 121 126 .......... 1411 1416 >> >> This can't be so hard but I can't get it and I've honestly tried. >> Obviously, tempin + 5 gives me the missing values but I don't know >> how >> to interwine them in the order above. Thanks for any help >> you can provide. >> >> mark >> -------------------------------------------------------- >> >> This is not an offer (or solicitation of an offer) to buy/se... >> {{dropped}} >> >> ______________________________________________ >> R-help@stat.math.ethz.ch mailing list >> https://stat.ethz.ch/mailman/listinfo/r-help >> PLEASE do read the posting guide http://www.R-project.org/posting- >> guide.html >> and provide commented, minimal, self-contained, reproducible code. > ______________________________________________ R-help@stat.math.ethz.ch mailing list https://stat.ethz.ch/mailman/listinfo/r-help PLEASE do read the posting guide http://www.R-project.org/posting-guide.html and provide commented, minimal, self-contained, reproducible code.