I have two function modules VCE and VCM that differs only in the way M is computed and an additional argument CLUSTER. How can I create a single function module that can handle both computations of M?
Thanks,
Raphael
start vce(y,x,b0,b1,p1,p2,v);
... statements here ...
v = (dg(eta,p2)#dg(xb,p1)#(w-mu)/v)##2;
D = diag(v);
M = t(X)*D*X;
return(M);
finish vce;
start vcm(cluster,y,x,b0,b1,p1,p2,v);
... statements here ...
M = J(p,p,0);
v = (dg(eta,p2)#dg(xb,p1)#(w-mu)/v)##2;
uClx = unique(Cluster);
do j = 1 to ncol(uClx);
dx = loc(Cluster = uClx
M = M + t(X[dx,])*v[dx]*t(v[dx])*X[dx,];
end;
return(M);
finish vce;
Assuming you have SAS/IML 12.1 (SAS 9.3m2), use optional arguments and the ISSKIPPED function:
start vc(y,x,b0,b1,p1,p2,v, cluster=);
if isskipped(cluster) then
return( vce(y,x,b0,b1,p1,p2,v) );
else
return( vcm(cluster,y,x,b0,b1,p1,p2,v) );
finish;
Assuming you have SAS/IML 12.1 (SAS 9.3m2), use optional arguments and the ISSKIPPED function:
start vc(y,x,b0,b1,p1,p2,v, cluster=);
if isskipped(cluster) then
return( vce(y,x,b0,b1,p1,p2,v) );
else
return( vcm(cluster,y,x,b0,b1,p1,p2,v) );
finish;
Thanks!
Don't miss out on SAS Innovate - Register now for the FREE Livestream!
Can't make it to Vegas? No problem! Watch our general sessions LIVE or on-demand starting April 17th. Hear from SAS execs, best-selling author Adam Grant, Hot Ones host Sean Evans, top tech journalist Kara Swisher, AI expert Cassie Kozyrkov, and the mind-blowing dance crew iLuminate! Plus, get access to over 20 breakout sessions.
Learn how to run multiple linear regression models with and without interactions, presented by SAS user Alex Chaplin.
Find more tutorials on the SAS Users YouTube channel.