Displaying 1 result from an estimated 1 matches for "these_effects".
2010 Sep 16
0
improvements to plm fitting
...] <- as.character(effect_unique)
# change this back so that it can handle larger datasets
block_size <- n_effects
num_blocks <- ceiling( n_effects / block_size )
for( i in 1:num_blocks ){
these_ind <- ((i-1)*block_size + 1):min(n_effects, (i*block_size))
these_effects <- effect_unique[ these_ind ]
this_x <- x[ effect %in% these_effects ]
this_effect <- factor(effect[ effect %in% these_effects ] )
uniqval[these_ind] <- tapply(this_x, this_effect, func, ...)
}
nms <- attr(uniqval, "dimnames")[[1]]...