Displaying 2 results from an estimated 2 matches for "fillafter".
Did you mean:
killafter
2007 Aug 10
1
[Fwd: Re: How to apply functions over rows of multiple matrices]
...pplvec, testvec=NULL) {
if (is.null(testvec)) testvec <- applvec
if (length(testvec) != length(applvec)) {
stop("applvec and testvec have to be of same length!")
} else if(any(testvec, na.rm=TRUE)) {
applvec[min(which(testvec)) : length(applvec)] <- NA
}
applvec
}
fillafter <- function(applvec, testvec=NULL) {
if (is.null(testvec)) testvec <- applvec
fillfrom(applvec, c(FALSE, testvec[-length(testvec)]))
}
numtest <- 6
numsubj <- 20
newtest <- array(rbinom(numtest*numsubj, 1, .5),
dim=c(numsubj, numtest))
goldstandard <- array(rbinom(numtes...
2007 Aug 11
0
DOE and interaction plot general question
...(length(testvec) != length(applvec)) {
> > stop("applvec and testvec have to be of same length!")
> > } else if(any(testvec, na.rm=TRUE)) {
> > applvec[min(which(testvec)) : length(applvec)] <- NA
> > }
> > applvec
> > }
> >
> > fillafter <- function(applvec, testvec=NULL) {
> > if (is.null(testvec)) testvec <- applvec
> > fillfrom(applvec, c(FALSE, testvec[-length(testvec)]))
> > }
> >
> > numtest <- 6
> > numsubj <- 20
> >
> > newtest <- array(rbinom(numtest*numsubj,...