Apophenia

asst.h

Go to the documentation of this file.

/* Copyright (c) 2006--2007 by Ben Klemens.  Licensed under the modified GNU GPL v2; see COPYING and COPYING2.  */
#ifndef __apop_asst__
#define __apop_asst__

#include <assert.h>
#include "types.h"
#include "variadic.h"
#include <gsl/gsl_rng.h>
#include <gsl/gsl_matrix.h>

#ifdef    __cplusplus
extern "C" {
#endif

double apop_generalized_harmonic(int N, double s);
void apop_error(int level, char stop, char *message, ...);

apop_data * apop_test_anova_independence(apop_data *d);
#define apop_test_ANOVA_independence(d) apop_test_anova_independence(d)


gsl_vector * apop_vector_moving_average(gsl_vector *, size_t);
apop_model *apop_histogram_moving_average(apop_model *m, size_t bandwidth);

apop_model * apop_histogram_vector_reset(apop_model *template, gsl_vector *indata);
#ifdef APOP_NO_VARIADIC
 apop_model * apop_histogram_model_reset(apop_model *template, apop_model *m, long int draws, gsl_rng *rng);
#else
 apop_model * apop_histogram_model_reset_base(apop_model *template, apop_model *m, long int draws, gsl_rng *rng);
 apop_varad_declare(apop_model *, apop_histogram_model_reset, apop_model *template; apop_model *m; long int draws; gsl_rng *rng);
#define apop_histogram_model_reset(...) apop_varad_link(apop_histogram_model_reset, __VA_ARGS__)
#endif
apop_data * apop_histograms_test_goodness_of_fit(apop_model *h0, apop_model *h1);
apop_data * apop_test_kolmogorov(apop_model *m1, apop_model *m2);
void apop_histogram_normalize(apop_model *m);

#define Apop_assert(test, returnval, level, stop, ...) do \
    if (!(test)) {  \
        if (apop_opts.verbose >= level) { fprintf(stderr, "%s: ", __func__); fprintf(stderr, __VA_ARGS__); fprintf(stderr, "\n");}   \
        if (stop == 's' || stop == 'h') assert(test);   \
        return returnval;  \
} while (0);

#define apop_assert(test, returnval, level, stop, ...) Apop_assert(test, returnval, level, stop, __VA_ARGS__)
#define APOP_ASSERT(test, returnval, level, stop, ...) Apop_assert(test, returnval, level, stop, __VA_ARGS__)

#define Apop_assert_void(test,  level, stop, ...) do \
    if (!(test)) {  \
        if (apop_opts.verbose >= level) { fprintf(stderr, "%s: ", __func__); fprintf(stderr, __VA_ARGS__); fprintf(stderr, "\n");}   \
        if (stop == 's' || stop == 'h') assert(test);   \
} while (0);

#define apop_assert_void(test, level, stop, ...) Apop_assert_void(test, level, stop, __VA_ARGS__)
#define APOP_ASSERT_VOID(test, level, stop, ...) Apop_assert_void(test, level, stop, __VA_ARGS__)

#define Apop_settings_alloc(type, out, ...) apop_ ##type ##_settings *out = apop_ ##type ##_settings_alloc(__VA_ARGS__);

#define APOP_SETTINGS_ALLOC(type, out, ...) Apop_settings_alloc(type, out, __VA_ARGS__)

//Bootstrapping & RNG
apop_data * apop_jackknife_cov(apop_data *data, apop_model model);
#ifdef APOP_NO_VARIADIC
 apop_data * apop_bootstrap_cov(apop_data *data, apop_model model, gsl_rng* rng, int iterations);
#else
 apop_data * apop_bootstrap_cov_base(apop_data *data, apop_model model, gsl_rng* rng, int iterations);
 apop_varad_declare(apop_data *, apop_bootstrap_cov, apop_data *data; apop_model model; gsl_rng* rng; int iterations);
#define apop_bootstrap_cov(...) apop_varad_link(apop_bootstrap_cov, __VA_ARGS__)
#endif
gsl_rng *apop_rng_alloc(int seed);

//Missing data
#ifdef APOP_NO_VARIADIC
 apop_data * apop_data_listwise_delete(apop_data *d, char inplace);
#else
 apop_data * apop_data_listwise_delete_base(apop_data *d, char inplace);
 apop_varad_declare(apop_data *, apop_data_listwise_delete, apop_data *d; char inplace);
#define apop_data_listwise_delete(...) apop_varad_link(apop_data_listwise_delete, __VA_ARGS__)
#endif
apop_model * apop_ml_imputation(apop_data *d, apop_model* meanvar);


#ifdef APOP_NO_VARIADIC
 apop_model * apop_update(apop_data *data, apop_model *prior, apop_model *likelihood, gsl_rng *rng);
#else
 apop_model * apop_update_base(apop_data *data, apop_model *prior, apop_model *likelihood, gsl_rng *rng);
 apop_varad_declare(apop_model *, apop_update, apop_data *data; apop_model *prior; apop_model *likelihood; gsl_rng *rng);
#define apop_update(...) apop_varad_link(apop_update, __VA_ARGS__)
#endif

#ifdef APOP_NO_VARIADIC
 double apop_test(double statistic, char *distribution, double p1, double p2, char tail);
#else
 double apop_test_base(double statistic, char *distribution, double p1, double p2, char tail);
 apop_varad_declare(double, apop_test, double statistic; char *distribution; double p1; double p2; char tail);
#define apop_test(...) apop_varad_link(apop_test, __VA_ARGS__)
#endif

//Sorting (apop_asst.c)
#ifdef APOP_NO_VARIADIC
 double * apop_vector_percentiles(gsl_vector *data, char rounding); 
#else
 double * apop_vector_percentiles_base(gsl_vector *data, char rounding); 
 apop_varad_declare(double *, apop_vector_percentiles, gsl_vector *data; char rounding); 
#define apop_vector_percentiles(...) apop_varad_link(apop_vector_percentiles, __VA_ARGS__)
#endif
#ifdef APOP_NO_VARIADIC
 apop_data * apop_data_sort(apop_data *data, int sortby, char asc);
#else
 apop_data * apop_data_sort_base(apop_data *data, int sortby, char asc);
 apop_varad_declare(apop_data *, apop_data_sort, apop_data *data; int sortby; char asc);
#define apop_data_sort(...) apop_varad_link(apop_data_sort, __VA_ARGS__)
#endif

//asprintf, vararg, &c
#include <stdarg.h>
extern int asprintf (char **res, const char *format, ...)
       __attribute__ ((__format__ (__printf__, 2, 3)));
extern int vasprintf (char **res, const char *format, va_list args)
       __attribute__ ((__format__ (__printf__, 2, 0)));

#ifdef    __cplusplus
}
#endif

#endif

Autogenerated by doxygen on 28 Sep 2009.