transformations.c File Reference

#include <R.h>
#include <Rmath.h>
#include <Rdefines.h>
#include "internal.h"

Include dependency graph for transformations.c:

Go to the source code of this file.

Functions
SEXP	LogitTransform (SEXP P)
SEXP	ExpitTransform (SEXP X)
SEXP	LogBarycentricTransform (SEXP X)
SEXP	InverseLogBarycentricTransform (SEXP Y)

Function Documentation

ExpitTransform()

SEXP ExpitTransform

(

SEXP

X

)

Definition at line 26 of file transformations.c.

                             {
  double *x;
  int k, n;
  PROTECT(X = duplicate(AS_NUMERIC(X)));
  x = REAL(X);
  n = LENGTH(X);
  for (k = 0; k < n; k++, x++)
    *x = 1.0/(1.0+exp(-(*x)));
  UNPROTECT(1);
  return X;
}

InverseLogBarycentricTransform()

SEXP InverseLogBarycentricTransform

(

SEXP

Y

)

Definition at line 47 of file transformations.c.

                                             {
  SEXP X;
  PROTECT(Y = AS_NUMERIC(Y));
  PROTECT(X = NEW_NUMERIC(LENGTH(Y)));
  from_log_barycentric(REAL(X),REAL(Y),LENGTH(Y));
  UNPROTECT(2);
  return X;
}

Here is the call graph for this function:

LogBarycentricTransform()

SEXP LogBarycentricTransform

(

SEXP

X

)

Definition at line 38 of file transformations.c.

                                      {
  SEXP Y;
  PROTECT(X = AS_NUMERIC(X));
  PROTECT(Y = NEW_NUMERIC(LENGTH(X)));
  to_log_barycentric(REAL(Y),REAL(X),LENGTH(X));
  UNPROTECT(2);
  return Y;
}

Here is the call graph for this function:

LogitTransform()

SEXP LogitTransform

(

SEXP

P

)

Definition at line 14 of file transformations.c.

                             {
  double *p;
  int k, n;
  PROTECT(P = duplicate(AS_NUMERIC(P)));
  p = REAL(P);
  n = LENGTH(P);
  for (k = 0; k < n; k++, p++)
    *p = logit(*p);
  UNPROTECT(1);
  return P;
}

Here is the call graph for this function: