Lines Matching refs:tS
1415 if (is.null(tS <- attr(init, "time.scales")))
1418 attr(init, "time.since") <- tF <- rep("", tS)
1439 simX, Tr, time.pts, tS))
1441 nxt <- get.next(nx, tr.st, tS, tF)
1445 nord <- match(c("lex.id", tS, "lex.dur", "lex.Cst", "lex.Xst"),
1448 sf <- sf[order(sf$lex.id, sf[, tS[1]]), c(nord, noth)]
1450 attr(sf, "time.scales") <- tS
1452 chop.lex(sf, tS, max(time.pts))
1478 function (nd, Tr, time.pts, tS)
1488 prfrm[, tS] <- prfrm[, tS] + rep(time.pts, nr)
1492 prfrp[, tS] <- prfrp[, tS] + il/2
1592 function (sf, tr.st, tS, tF)
1599 nxt[, tS] <- nxt[, tS] + nxt$lex.dur
1602 nxt[nxt$lex.Xst == wh[i], tS[i]] <- 0
1622 function (obj, tS, cens)
1627 ww <- ww[ww[, tS[1]] < ww$cens, ]
1628 x.dur <- pmin(ww$lex.dur, ww[, "cens"] - ww[, tS[1]])
1659 tS <- check.time.scale(obj, time.scale)
1663 tab.frm <- obj[rep(1:nrow(obj), each = length(at)), c(tS,
1666 tab.tr <- tab.frm[tab.frm[, tS] <= tab.frm$when & tab.frm[,
1667 tS] + tab.frm$lex.dur > tab.frm$when, ]
1669 tab.ab <- tab.frm[tab.frm[, tS] + tab.frm$lex.dur <= tab.frm$when &