```
## ---------------------------------------------------------------------
## A. XRaw OBJECTS
## ---------------------------------------------------------------------
x1 <- XRaw(4) # values are not initialized
x1
x2 <- as(c(255, 255, 199), "XRaw")
x2
y <- c(x1, x2, NULL, x1) # NULLs are ignored
y
subseq(y, start=-4)
subseq(y, start=-4) <- x2
y
## ---------------------------------------------------------------------
## B. XInteger OBJECTS
## ---------------------------------------------------------------------
x3 <- XInteger(12, val=c(-1:10))
x3
length(x3)
## Subsetting
x4 <- XInteger(99999, val=sample(99, 99999, replace=TRUE) - 50)
x4
subseq(x4, start=10)
subseq(x4, start=-10)
subseq(x4, start=-20, end=-10)
subseq(x4, start=10, width=5)
subseq(x4, end=10, width=5)
subseq(x4, end=10, width=0)
x3[length(x3):1]
x3[length(x3):1, drop=FALSE]
```

Run the code above in your browser using DataLab