git-svn-id: file:///home/git/hedgehog.fhcrc.org/bioconductor/trunk/madman/Rpacks/preprocessCore@51995 bc3139a8-67e5-0310-9ffc-ced21a209358
... | ... |
@@ -425,3 +425,8 @@ void rlm_compute_se(double *X,double *Y, int n, int p, double *beta, double *res |
425 | 425 |
Free(W); |
426 | 426 |
} |
427 | 427 |
|
428 |
+void rlm_compute_se_R(double *X, double *Y, int *n, int *p, double *beta, double *resids, double *weights, double *se_estimates, double *varcov, double *residSE, int *method){ |
|
429 |
+ |
|
430 |
+ rlm_compute_se(X, Y, *n, *p, beta, resids, weights, se_estimates, varcov, residSE, *method, psi_huber, 1.345); |
|
431 |
+ |
|
432 |
+} |