search for: onesposit

Displaying 1 result from an estimated 1 matches for "onesposit".

Did you mean: onepost
2008 Jul 18
0
spreading the risk
...nmat) <- NULL rownames(tempbinmat) <- NULL # FIND OUT WHERE ALL THE ONES ARE. # ARR.IND = TRUE GIVES THEM BACK IN MATRIX FORM whichres <- which(tempbinmat == 1, arr.ind=TRUE) # THIS LAPPLY GOES THROUGH THE LOCATIONS WHERE # THERE ARE ONES AND FINDS LOCATIONS WHERE # ONES NEED TO BE ADDED onespositions <- lapply(1:nrow(whichres),function(.rownum) { rightspot <- c(whichres[.rownum,1], whichres[.rownum,2]+1) leftspot <- c(whichres[.rownum,1], whichres[.rownum,2]-1) belowspot <-c(whichres[.rownum,1]-1, whichres[.rownum,2]) abovespot <- c(whichres[.rownum,1]+1, whichres...