/packages/archive/2010/05.2010/05.02.2010/spacodi/R/resamp.1s.R
R | 7 lines | 6 code | 1 blank | 0 comment | 0 complexity | 41172a2076082cf773bfda5fda292d75 MD5 | raw file
1resamp.1s <- 2function(obj) { 3 orig=obj 4 row.names(obj) <- sample(row.names(obj)) 5 return(obj[order(match(row.names(obj),row.names(orig))),]) 6} 7