R/get.w.remove.j.R

get.w.remove.j <-
function(w,j){
trans.w=t(w)
trans.w[,j]=0
return(as.vector(trans.w))

}

Try the SODC package in your browser

Any scripts or data that you put into this service are public.

SODC documentation built on May 2, 2019, 3:35 p.m.