R/subsetsites.Hst.ls.R

In widals: Weighting by Inverse Distance with Adaptive Least Squares

Defines functions subsetsites.Hst.ls

Documented in subsetsites.Hst.ls

subsetsites.Hst.ls <-
function( Hst.ls, xmask ) {
    tau <- length(Hst.ls)
    Hst.ls.out <- list()
    
    for(i in 1:tau) {
        Hst.ls.out[[i]] <-  Hst.ls[[i]][ xmask, , drop=FALSE]
    }
    return( Hst.ls.out )
}

Try the widals package in your browser