Hello everyone,
Say I have defined a convenience function in my code like this:
func <- function(x, j){
x[168+j] <- x[72+j]+x[144+j]
}
And now I apply it to some columns in a big zoo object like this:
for (m in 1:24){
combined <- merge(combined, LA1sum=apply(combined, 1, func, j=m))
}
output of this for-loop will be zoo object with columns named
LA1sum.1, LA1sum.2, ..., LA1.sum24.
If I have a vector of names like this:
namesVec <- c("LA1sum", "LP1sum", "GC1sum", "LL1sum", "LN1sum",
"SI1sum", "LX1sum", "CO1sum", "CL1sum", "QS1sum", "HO1sum",
"NG1sum", "XB1sum", "C.1sum", "FC1sum", "LH1sum", "LC1sum", "S.1sum",
"W.1sum", "KW1sum", "CC1sum", "KC1sum", "CT1sum", "SB1sum")
What I want is in merge() for each m the name of new column to be one
of the elements in namesVec, that is
for m=1 I have LA1sum=apply(...,j=1)
for m=2 I have LP1sum=apply(...,j=2)
etc
What it the way to do this?
Thank you in advance for your help!
Regards,
Sergey
______________________________________________
R-help@r-project.org 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.
