R: Exchange two R objects

swap {seqinr} | R Documentation

## Exchange two R objects

### Description

Exchange object `x` with object `y`.

### Usage

    swap(x, y)

### Arguments

`x` | an R object
`y` | an R object

### Value

none.

### Author(s)

J.R. Lobry

### References

`citation("seqinr")`

### See Also

`move`

### Examples

    #
    # Example in a new empty environment:
    #
    local({
      x <- 0:9
      y <- 10:19
      print(x)
      print(y)
      swap(x[1], y[2])
      print(x)
      print(y)
    })
    #
    # Sanity check with a bubble sort:
    #
    bubble.sort <- function(tab, n = length(tab)){
      i <- 1
      while(i < n){
        if(tab[i + 1] < tab[i]){
          swap(tab[i], tab[i+1])
          i <- 1
        } else {
          i <- i+1
        }
      }
      return(tab)
    }
    set.seed(1)
    x <- rnorm(10)
    stopifnot(identical(sort(x), bubble.sort(x)))

[Package seqinr version 3.4-5 Index]