Thanks to visit codestin.com
Credit goes to code.bioconductor.org

  1. vsclust
  2. src
  3. RcppExports.cpp
Browse code

ready for bioconductor

veitveit authored on 18/07/2022 11:59:30
Showing 1 changed files
src/RcppExports.cpp
History View file @ ad4be2b
... ... 
@@ -10,16 +10,6 @@ Rcpp::Rostream<true>&  Rcpp::Rcout = Rcpp::Rcpp_cout_get();
10 10 
 Rcpp::Rostream<false>& Rcpp::Rcerr = Rcpp::Rcpp_cerr_get();
11 11 
 #endif
12 12
13 
-// rcpp_hello_world
14 
-List rcpp_hello_world();
15 
-RcppExport SEXP _vsclust_rcpp_hello_world() {
16 
-BEGIN_RCPP
17 
-    Rcpp::RObject rcpp_result_gen;
18 
-    Rcpp::RNGScope rcpp_rngScope_gen;
19 
-    rcpp_result_gen = Rcpp::wrap(rcpp_hello_world());
20 
-    return rcpp_result_gen;
21 
-END_RCPP
22 
-}
23 13 
 // fill_missing_vals_and_ratio
24 14 
 void fill_missing_vals_and_ratio(const NumericMatrix& feature_mat, LogicalMatrix& missing_vals, NumericVector& ratio_missing_vals, double missing_value);
25 15 
 RcppExport SEXP _vsclust_fill_missing_vals_and_ratio(SEXP feature_matSEXP, SEXP missing_valsSEXP, SEXP ratio_missing_valsSEXP, SEXP missing_valueSEXP) {
... ... 
@@ -58,7 +48,6 @@ END_RCPP
58 48 
 }
59 49
60 50 
 static const R_CallMethodDef CallEntries[] = {
61 
-    {"_vsclust_rcpp_hello_world", (DL_FUNC) &_vsclust_rcpp_hello_world, 0},
62 51 
     {"_vsclust_fill_missing_vals_and_ratio", (DL_FUNC) &_vsclust_fill_missing_vals_and_ratio, 4},
63 52 
     {"_vsclust_c_plusplus_means", (DL_FUNC) &_vsclust_c_plusplus_means, 13},
64 53 
     {NULL, NULL, 0}
Browse code

now full R package

veitveit authored on 23/03/2022 18:24:24
Showing 1 changed files
src/RcppExports.cpp
History View file @ 48d270b
1 1 
new file mode 100644
... ... 
@@ -0,0 +1,70 @@
1 
+// Generated by using Rcpp::compileAttributes() -> do not edit by hand
2 
+// Generator token: 10BE3573-1514-4C36-9D1C-5A225CD40393
3 
+
4 
+#include <Rcpp.h>
5 
+
6 
+using namespace Rcpp;
7 
+
8 
+#ifdef RCPP_USE_GLOBAL_ROSTREAM
9 
+Rcpp::Rostream<true>&  Rcpp::Rcout = Rcpp::Rcpp_cout_get();
10 
+Rcpp::Rostream<false>& Rcpp::Rcerr = Rcpp::Rcpp_cerr_get();
11 
+#endif
12 
+
13 
+// rcpp_hello_world
14 
+List rcpp_hello_world();
15 
+RcppExport SEXP _vsclust_rcpp_hello_world() {
16 
+BEGIN_RCPP
17 
+    Rcpp::RObject rcpp_result_gen;
18 
+    Rcpp::RNGScope rcpp_rngScope_gen;
19 
+    rcpp_result_gen = Rcpp::wrap(rcpp_hello_world());
20 
+    return rcpp_result_gen;
21 
+END_RCPP
22 
+}
23 
+// fill_missing_vals_and_ratio
24 
+void fill_missing_vals_and_ratio(const NumericMatrix& feature_mat, LogicalMatrix& missing_vals, NumericVector& ratio_missing_vals, double missing_value);
25 
+RcppExport SEXP _vsclust_fill_missing_vals_and_ratio(SEXP feature_matSEXP, SEXP missing_valsSEXP, SEXP ratio_missing_valsSEXP, SEXP missing_valueSEXP) {
26 
+BEGIN_RCPP
27 
+    Rcpp::RNGScope rcpp_rngScope_gen;
28 
+    Rcpp::traits::input_parameter< const NumericMatrix& >::type feature_mat(feature_matSEXP);
29 
+    Rcpp::traits::input_parameter< LogicalMatrix& >::type missing_vals(missing_valsSEXP);
30 
+    Rcpp::traits::input_parameter< NumericVector& >::type ratio_missing_vals(ratio_missing_valsSEXP);
31 
+    Rcpp::traits::input_parameter< double >::type missing_value(missing_valueSEXP);
32 
+    fill_missing_vals_and_ratio(feature_mat, missing_vals, ratio_missing_vals, missing_value);
33 
+    return R_NilValue;
34 
+END_RCPP
35 
+}
36 
+// c_plusplus_means
37 
+double c_plusplus_means(const NumericMatrix& feature_mat, NumericMatrix& centers, NumericVector& weight, NumericVector& fuzz, int dist_metric, int iter_max, double rel_tol, int verbose, NumericMatrix& membership_mat, double ermin, IntegerVector& iter, double missing_value, double weight_missing);
38 
+RcppExport SEXP _vsclust_c_plusplus_means(SEXP feature_matSEXP, SEXP centersSEXP, SEXP weightSEXP, SEXP fuzzSEXP, SEXP dist_metricSEXP, SEXP iter_maxSEXP, SEXP rel_tolSEXP, SEXP verboseSEXP, SEXP membership_matSEXP, SEXP erminSEXP, SEXP iterSEXP, SEXP missing_valueSEXP, SEXP weight_missingSEXP) {
39 
+BEGIN_RCPP
40 
+    Rcpp::RObject rcpp_result_gen;
41 
+    Rcpp::RNGScope rcpp_rngScope_gen;
42 
+    Rcpp::traits::input_parameter< const NumericMatrix& >::type feature_mat(feature_matSEXP);
43 
+    Rcpp::traits::input_parameter< NumericMatrix& >::type centers(centersSEXP);
44 
+    Rcpp::traits::input_parameter< NumericVector& >::type weight(weightSEXP);
45 
+    Rcpp::traits::input_parameter< NumericVector& >::type fuzz(fuzzSEXP);
46 
+    Rcpp::traits::input_parameter< int >::type dist_metric(dist_metricSEXP);
47 
+    Rcpp::traits::input_parameter< int >::type iter_max(iter_maxSEXP);
48 
+    Rcpp::traits::input_parameter< double >::type rel_tol(rel_tolSEXP);
49 
+    Rcpp::traits::input_parameter< int >::type verbose(verboseSEXP);
50 
+    Rcpp::traits::input_parameter< NumericMatrix& >::type membership_mat(membership_matSEXP);
51 
+    Rcpp::traits::input_parameter< double >::type ermin(erminSEXP);
52 
+    Rcpp::traits::input_parameter< IntegerVector& >::type iter(iterSEXP);
53 
+    Rcpp::traits::input_parameter< double >::type missing_value(missing_valueSEXP);
54 
+    Rcpp::traits::input_parameter< double >::type weight_missing(weight_missingSEXP);
55 
+    rcpp_result_gen = Rcpp::wrap(c_plusplus_means(feature_mat, centers, weight, fuzz, dist_metric, iter_max, rel_tol, verbose, membership_mat, ermin, iter, missing_value, weight_missing));
56 
+    return rcpp_result_gen;
57 
+END_RCPP
58 
+}
59 
+
60 
+static const R_CallMethodDef CallEntries[] = {
61 
+    {"_vsclust_rcpp_hello_world", (DL_FUNC) &_vsclust_rcpp_hello_world, 0},
62 
+    {"_vsclust_fill_missing_vals_and_ratio", (DL_FUNC) &_vsclust_fill_missing_vals_and_ratio, 4},
63 
+    {"_vsclust_c_plusplus_means", (DL_FUNC) &_vsclust_c_plusplus_means, 13},
64 
+    {NULL, NULL, 0}
65 
+};
66 
+
67 
+RcppExport void R_init_vsclust(DllInfo *dll) {
68 
+    R_registerRoutines(dll, NULL, CallEntries, NULL, NULL);
69 
+    R_useDynamicSymbols(dll, FALSE);
70 
+}