Dear R-List,
I succesfully managed to implement a SELECT query in a loop, so that the
results are stored in different data.frames.
Now I want to apply another function via for-loop, but nothing happens.
the new function calculates the mode of a distribution and returns a
vector.
I would like to store the vector in seperate objects in a for-loop, but
it fails.
get.modal <- function(x) {
x.elem<-sort(unique(x))
x.count<-sapply(x.elem,esum<-function(elem,vec)
return(sum(vec==elem)),x)
max.count<-max(x.count)
modalwert <- x.elem[x.count == max.count]
return(modalwert)
}
# collect vector with object-names to use in the loop
names <- ls(pat="EZG");names
[1] "EZG.ezg34.crossid.15" "EZG.ezg34.crossid.16"
"EZG.ezg34.crossid.17"
[4] "EZG.ezg34.crossid.22" "EZG.ezg34.crossid.34"
"EZG.ezg34.crossid.48"
[7] "EZG.ezg34.crossid.78"
# loop through all files and calculate mode:
for (i in names)
{
new.names <- paste(i, "index", sep=".")
assign(new.names, get.modal(i$s))
}
$s is the specific column on which the mode shuold be calculated.
Thank you for your help
Stephan Holl
--
--------------------------------------
Stephan Holl
GnuPG Key-ID: 11946A09
ICQ# 117277975
--------------------------------------
-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-
r-help mailing list -- Read http://www.ci.tuwien.ac.at/~hornik/R/R-FAQ.html
Send "info", "help", or "[un]subscribe"
(in the "body", not the subject !) To: r-help-request at
stat.math.ethz.ch
_._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._