/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 

    

  1. resamp.1s <-
    2. 

  2. function(obj) {
    3. 

  3. 	orig=obj
    4. 

  4. 	row.names(obj) <- sample(row.names(obj))
    5. 

  5. 	return(obj[order(match(row.names(obj),row.names(orig))),])
    6. 

  6. }
    7.