PageRenderTime 25ms CodeModel.GetById 22ms app.highlight 1ms RepoModel.GetById 0ms app.codeStats 0ms

/packages/archive/2010/05.2010/05.02.2010/spacodi/R/resamp.1s.R

http://github.com/eastman/spacodiR
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