Displaying 2 results from an estimated 2 matches for "couldbeti".
2010 May 14
2
Subscripting a matrix-like object
...lt;-.tis" <- function(x, i, j, ..., value){
tif <- tif(x)
xStart <- start(x)
x <- stripTis(x)
if(missing(i)){
if(missing(j)) x[] <- value
else x[,j] <- value
}
else {
i <- i[!is.na(i)]
if(is.numeric(i)){
if(!is.ti(i) && couldBeTi(i, tif = tif))
i <- asTi(i)
if(is.ti(i)){
i <- i + 1 - xStart
if(any(i < 1)){
newRows <- 1 - min(i)
xStart <- xStart - newRows
if(is.null(m <- ncol(x))) m <- 1
i <- i + newRows
if(is.matrix(x))...
2010 May 14
2
Subscripting a matrix-like object
...lt;-.tis" <- function(x, i, j, ..., value){
tif <- tif(x)
xStart <- start(x)
x <- stripTis(x)
if(missing(i)){
if(missing(j)) x[] <- value
else x[,j] <- value
}
else {
i <- i[!is.na(i)]
if(is.numeric(i)){
if(!is.ti(i) && couldBeTi(i, tif = tif))
i <- asTi(i)
if(is.ti(i)){
i <- i + 1 - xStart
if(any(i < 1)){
newRows <- 1 - min(i)
xStart <- xStart - newRows
if(is.null(m <- ncol(x))) m <- 1
i <- i + newRows
if(is.matrix(x))...