paftoga: High dimensional AFT model using PGA and OGA

projection.mat2 <-
function(X,LinearSys){
	Y=as.matrix(LinearSys)
	as.double(lm(X~Y-1)$residual)
	}

yfyang86/paftoga documentation built on May 4, 2019, 2:33 p.m.

Note that we can't provide technical support on individual packages. You should contact the package authors for that.