R/rm.cols.Hst.ls.R

In widals: Weighting by Inverse Distance with Adaptive Least Squares

Defines functions rm.cols.Hst.ls

Documented in rm.cols.Hst.ls

rm.cols.Hst.ls <-
function(Hst.ls, rm.col.ndx) {
    tau <- length(Hst.ls)
    for(i in 1:tau) {
        Hst.ls[[i]] <- Hst.ls[[i]][  , -rm.col.ndx, drop=FALSE ]
    }
    return(Hst.ls)
}

Try the widals package in your browser