Displaying 2 results from an estimated 2 matches for "stripti".
Did you mean:
striptis
2010 May 14
2
Subscripting a matrix-like object
...someValue
and
x[i,] <- someValue ?
In either case, nargs() is 3, and looking at the values from sys.call()
and match.call() I could not tell them apart. Am I missing something?
"[<-.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(a...
2010 May 14
2
Subscripting a matrix-like object
...someValue
and
x[i,] <- someValue ?
In either case, nargs() is 3, and looking at the values from sys.call()
and match.call() I could not tell them apart. Am I missing something?
"[<-.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(a...