search for: whichr

...tempbinmat <- cbind(zerocol,binary.matrix,zerocol) # ADD RO TO TOP AND BOTTOM tempbinmat <- rbind(zerorow,tempbinmat,zerorow) # GET RID OF NAMES colnames(tempbinmat) <- 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) leftspo...