
Currently it needs 50+ mins to run on a 800000 rows. I need to run it hundreds of times :P
 
t(apply(unique_ids, 1, function(x) { sd(subset(m[, 5:20], m[,"ID"] == x)) } ))
 
 
 
 
 
 
_________________________________________________________________


	[[alternative HTML version deleted]]

