https://github.com/cran/mvtnorm
Revision 402a3f3eb7e6e481c60a495c191bf15e807bf845 authored by Torsten Hothorn on 17 April 2014, 00:00:00 UTC, committed by Gabor Csardi on 17 April 2014, 00:00:00 UTC
1 parent 81ba0cc
Raw File
Tip revision: 402a3f3eb7e6e481c60a495c191bf15e807bf845 authored by Torsten Hothorn on 17 April 2014, 00:00:00 UTC
version 0.9-9999
Tip revision: 402a3f3
tvpackAux.c
#include<R.h>
#include<Rmath.h>

double F77_SUB(phid)(double *x){
  return pnorm(*x, 0.0, 1.0, 1, 0);
}

double F77_SUB(studnt)(int *nu, double *x){
  return pt(*x, *nu, 1, 0);
}
back to top