00001 #ifndef GA_VECTOR_R 00002 #define GA_VECTOR_R 00003 /* ---------------------------------------------------------------------------- 00004 * R package for graph alignment 00005 * ---------------------------------------------------------------------------- 00006 * 00007 * Author: Joern P. Meier <mail@ionflux.org> 00008 * 00009 * The package can be used freely for non-commercial purposes. If you use this 00010 * package, the appropriate paper to cite is J. Berg and M. Lässig, 00011 * "Cross-species analysis of biological networks by Bayesian alignment", 00012 * PNAS 103 (29), 10967-10972 (2006) 00013 * 00014 * This software is made available in the hope that it will be useful, but 00015 * WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY 00016 * or FITNESS FOR A PARTICULAR PURPOSE. 00017 * 00018 * This software contains code for solving linear assignment problems which was 00019 * written by Roy Jonker, MagicLogic Optimization Inc.. Please note that this 00020 * code is copyrighted, © 2003 MagicLogic Systems Inc., Canada and may be 00021 * used for non-commercial purposes only. See 00022 * https://www.magiclogic.com/assignment.html for the latest version of the LAP 00023 * code and details on licensing. 00024 * 00025 * ---------------------------------------------------------------------------- 00026 * R utility functions for vector types. 00027 * ---------------------------------------------------------------------------- 00028 */ 00029 00038 #include "R.h" 00039 #include "Rinternals.h" 00040 #include "Rdefines.h" 00041 #include "GA_vector.h" 00042 00043 #ifdef __cplusplus 00044 extern "C" 00045 { 00046 #endif 00047 00060 GAVectorInt* GA_vector_from_R_int(SEXP robj); 00061 00070 SEXP GA_vector_to_R_int(GAVectorInt* vec); 00071 00084 GAVectorReal* GA_vector_from_R_real(SEXP robj); 00085 00094 SEXP GA_vector_to_R_real(GAVectorReal* vec); 00095 00104 GAClampMode GA_clamp_mode_from_R(SEXP robj); 00105 00106 #ifdef __cplusplus 00107 } 00108 #endif 00109 #endif