-
Notifications
You must be signed in to change notification settings - Fork 2
Expand file tree
/
Copy pathRcppExports.cpp
More file actions
318 lines (312 loc) · 25.8 KB
/
RcppExports.cpp
File metadata and controls
318 lines (312 loc) · 25.8 KB
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
// Generated by using Rcpp::compileAttributes() -> do not edit by hand
// Generator token: 10BE3573-1514-4C36-9D1C-5A225CD40393
#include <RcppArmadillo.h>
#include <Rcpp.h>
using namespace Rcpp;
#ifdef RCPP_USE_GLOBAL_ROSTREAM
Rcpp::Rostream<true>& Rcpp::Rcout = Rcpp::Rcpp_cout_get();
Rcpp::Rostream<false>& Rcpp::Rcerr = Rcpp::Rcpp_cerr_get();
#endif
// gtdr_fit
List gtdr_fit(const arma::mat& x, const arma::vec& y, const arma::mat& coords, const NumericVector& bw, const LogicalVector& adaptive, const IntegerVector& kernel, bool intercept, bool hatmatrix, size_t parallel_type, const IntegerVector& parallel_arg, bool optim_bw, size_t optim_bw_criterion, double optim_threashold, double optim_step, size_t optim_max_iter, bool select_model, size_t select_model_threshold, const CharacterVector& variable_names, int verbose);
RcppExport SEXP _GWmodel3_gtdr_fit(SEXP xSEXP, SEXP ySEXP, SEXP coordsSEXP, SEXP bwSEXP, SEXP adaptiveSEXP, SEXP kernelSEXP, SEXP interceptSEXP, SEXP hatmatrixSEXP, SEXP parallel_typeSEXP, SEXP parallel_argSEXP, SEXP optim_bwSEXP, SEXP optim_bw_criterionSEXP, SEXP optim_threasholdSEXP, SEXP optim_stepSEXP, SEXP optim_max_iterSEXP, SEXP select_modelSEXP, SEXP select_model_thresholdSEXP, SEXP variable_namesSEXP, SEXP verboseSEXP) {
BEGIN_RCPP
Rcpp::RObject rcpp_result_gen;
Rcpp::RNGScope rcpp_rngScope_gen;
Rcpp::traits::input_parameter< const arma::mat& >::type x(xSEXP);
Rcpp::traits::input_parameter< const arma::vec& >::type y(ySEXP);
Rcpp::traits::input_parameter< const arma::mat& >::type coords(coordsSEXP);
Rcpp::traits::input_parameter< const NumericVector& >::type bw(bwSEXP);
Rcpp::traits::input_parameter< const LogicalVector& >::type adaptive(adaptiveSEXP);
Rcpp::traits::input_parameter< const IntegerVector& >::type kernel(kernelSEXP);
Rcpp::traits::input_parameter< bool >::type intercept(interceptSEXP);
Rcpp::traits::input_parameter< bool >::type hatmatrix(hatmatrixSEXP);
Rcpp::traits::input_parameter< size_t >::type parallel_type(parallel_typeSEXP);
Rcpp::traits::input_parameter< const IntegerVector& >::type parallel_arg(parallel_argSEXP);
Rcpp::traits::input_parameter< bool >::type optim_bw(optim_bwSEXP);
Rcpp::traits::input_parameter< size_t >::type optim_bw_criterion(optim_bw_criterionSEXP);
Rcpp::traits::input_parameter< double >::type optim_threashold(optim_threasholdSEXP);
Rcpp::traits::input_parameter< double >::type optim_step(optim_stepSEXP);
Rcpp::traits::input_parameter< size_t >::type optim_max_iter(optim_max_iterSEXP);
Rcpp::traits::input_parameter< bool >::type select_model(select_modelSEXP);
Rcpp::traits::input_parameter< size_t >::type select_model_threshold(select_model_thresholdSEXP);
Rcpp::traits::input_parameter< const CharacterVector& >::type variable_names(variable_namesSEXP);
Rcpp::traits::input_parameter< int >::type verbose(verboseSEXP);
rcpp_result_gen = Rcpp::wrap(gtdr_fit(x, y, coords, bw, adaptive, kernel, intercept, hatmatrix, parallel_type, parallel_arg, optim_bw, optim_bw_criterion, optim_threashold, optim_step, optim_max_iter, select_model, select_model_threshold, variable_names, verbose));
return rcpp_result_gen;
END_RCPP
}
// gwaverage_fit
List gwaverage_fit(const arma::mat& x, const arma::mat& coords, double bw, bool quantile, bool adaptive, size_t kernel, bool longlat, double p, double theta, size_t parallel_type, const IntegerVector& parallel_arg);
RcppExport SEXP _GWmodel3_gwaverage_fit(SEXP xSEXP, SEXP coordsSEXP, SEXP bwSEXP, SEXP quantileSEXP, SEXP adaptiveSEXP, SEXP kernelSEXP, SEXP longlatSEXP, SEXP pSEXP, SEXP thetaSEXP, SEXP parallel_typeSEXP, SEXP parallel_argSEXP) {
BEGIN_RCPP
Rcpp::RObject rcpp_result_gen;
Rcpp::RNGScope rcpp_rngScope_gen;
Rcpp::traits::input_parameter< const arma::mat& >::type x(xSEXP);
Rcpp::traits::input_parameter< const arma::mat& >::type coords(coordsSEXP);
Rcpp::traits::input_parameter< double >::type bw(bwSEXP);
Rcpp::traits::input_parameter< bool >::type quantile(quantileSEXP);
Rcpp::traits::input_parameter< bool >::type adaptive(adaptiveSEXP);
Rcpp::traits::input_parameter< size_t >::type kernel(kernelSEXP);
Rcpp::traits::input_parameter< bool >::type longlat(longlatSEXP);
Rcpp::traits::input_parameter< double >::type p(pSEXP);
Rcpp::traits::input_parameter< double >::type theta(thetaSEXP);
Rcpp::traits::input_parameter< size_t >::type parallel_type(parallel_typeSEXP);
Rcpp::traits::input_parameter< const IntegerVector& >::type parallel_arg(parallel_argSEXP);
rcpp_result_gen = Rcpp::wrap(gwaverage_fit(x, coords, bw, quantile, adaptive, kernel, longlat, p, theta, parallel_type, parallel_arg));
return rcpp_result_gen;
END_RCPP
}
// gw_correlation_cal
List gw_correlation_cal(const arma::mat& x1, const arma::mat& x2, const arma::mat& coords, const NumericVector& bw, const LogicalVector& adaptive, const IntegerVector& kernel, const LogicalVector& longlat, const NumericVector& p, const NumericVector& theta, const IntegerVector& initial_type, const IntegerVector& optim_bw_criterion, size_t parallel_type, const IntegerVector& parallel_arg, const CharacterVector& variable_names, int verbose);
RcppExport SEXP _GWmodel3_gw_correlation_cal(SEXP x1SEXP, SEXP x2SEXP, SEXP coordsSEXP, SEXP bwSEXP, SEXP adaptiveSEXP, SEXP kernelSEXP, SEXP longlatSEXP, SEXP pSEXP, SEXP thetaSEXP, SEXP initial_typeSEXP, SEXP optim_bw_criterionSEXP, SEXP parallel_typeSEXP, SEXP parallel_argSEXP, SEXP variable_namesSEXP, SEXP verboseSEXP) {
BEGIN_RCPP
Rcpp::RObject rcpp_result_gen;
Rcpp::RNGScope rcpp_rngScope_gen;
Rcpp::traits::input_parameter< const arma::mat& >::type x1(x1SEXP);
Rcpp::traits::input_parameter< const arma::mat& >::type x2(x2SEXP);
Rcpp::traits::input_parameter< const arma::mat& >::type coords(coordsSEXP);
Rcpp::traits::input_parameter< const NumericVector& >::type bw(bwSEXP);
Rcpp::traits::input_parameter< const LogicalVector& >::type adaptive(adaptiveSEXP);
Rcpp::traits::input_parameter< const IntegerVector& >::type kernel(kernelSEXP);
Rcpp::traits::input_parameter< const LogicalVector& >::type longlat(longlatSEXP);
Rcpp::traits::input_parameter< const NumericVector& >::type p(pSEXP);
Rcpp::traits::input_parameter< const NumericVector& >::type theta(thetaSEXP);
Rcpp::traits::input_parameter< const IntegerVector& >::type initial_type(initial_typeSEXP);
Rcpp::traits::input_parameter< const IntegerVector& >::type optim_bw_criterion(optim_bw_criterionSEXP);
Rcpp::traits::input_parameter< size_t >::type parallel_type(parallel_typeSEXP);
Rcpp::traits::input_parameter< const IntegerVector& >::type parallel_arg(parallel_argSEXP);
Rcpp::traits::input_parameter< const CharacterVector& >::type variable_names(variable_namesSEXP);
Rcpp::traits::input_parameter< int >::type verbose(verboseSEXP);
rcpp_result_gen = Rcpp::wrap(gw_correlation_cal(x1, x2, coords, bw, adaptive, kernel, longlat, p, theta, initial_type, optim_bw_criterion, parallel_type, parallel_arg, variable_names, verbose));
return rcpp_result_gen;
END_RCPP
}
// gwda_cal
List gwda_cal(const arma::mat& x, std::vector<std::string>& y, const arma::mat& coords, double bw, bool adaptive, size_t kernel, bool longlat, double p, double theta, bool method, size_t parallel_type, const IntegerVector& parallel_arg);
RcppExport SEXP _GWmodel3_gwda_cal(SEXP xSEXP, SEXP ySEXP, SEXP coordsSEXP, SEXP bwSEXP, SEXP adaptiveSEXP, SEXP kernelSEXP, SEXP longlatSEXP, SEXP pSEXP, SEXP thetaSEXP, SEXP methodSEXP, SEXP parallel_typeSEXP, SEXP parallel_argSEXP) {
BEGIN_RCPP
Rcpp::RObject rcpp_result_gen;
Rcpp::RNGScope rcpp_rngScope_gen;
Rcpp::traits::input_parameter< const arma::mat& >::type x(xSEXP);
Rcpp::traits::input_parameter< std::vector<std::string>& >::type y(ySEXP);
Rcpp::traits::input_parameter< const arma::mat& >::type coords(coordsSEXP);
Rcpp::traits::input_parameter< double >::type bw(bwSEXP);
Rcpp::traits::input_parameter< bool >::type adaptive(adaptiveSEXP);
Rcpp::traits::input_parameter< size_t >::type kernel(kernelSEXP);
Rcpp::traits::input_parameter< bool >::type longlat(longlatSEXP);
Rcpp::traits::input_parameter< double >::type p(pSEXP);
Rcpp::traits::input_parameter< double >::type theta(thetaSEXP);
Rcpp::traits::input_parameter< bool >::type method(methodSEXP);
Rcpp::traits::input_parameter< size_t >::type parallel_type(parallel_typeSEXP);
Rcpp::traits::input_parameter< const IntegerVector& >::type parallel_arg(parallel_argSEXP);
rcpp_result_gen = Rcpp::wrap(gwda_cal(x, y, coords, bw, adaptive, kernel, longlat, p, theta, method, parallel_type, parallel_arg));
return rcpp_result_gen;
END_RCPP
}
// gwpca_cal
List gwpca_cal(const arma::mat& x, const arma::mat& coords, double bw, bool adaptive, size_t kernel, bool longlat, double p, double theta, size_t keep_components);
RcppExport SEXP _GWmodel3_gwpca_cal(SEXP xSEXP, SEXP coordsSEXP, SEXP bwSEXP, SEXP adaptiveSEXP, SEXP kernelSEXP, SEXP longlatSEXP, SEXP pSEXP, SEXP thetaSEXP, SEXP keep_componentsSEXP) {
BEGIN_RCPP
Rcpp::RObject rcpp_result_gen;
Rcpp::RNGScope rcpp_rngScope_gen;
Rcpp::traits::input_parameter< const arma::mat& >::type x(xSEXP);
Rcpp::traits::input_parameter< const arma::mat& >::type coords(coordsSEXP);
Rcpp::traits::input_parameter< double >::type bw(bwSEXP);
Rcpp::traits::input_parameter< bool >::type adaptive(adaptiveSEXP);
Rcpp::traits::input_parameter< size_t >::type kernel(kernelSEXP);
Rcpp::traits::input_parameter< bool >::type longlat(longlatSEXP);
Rcpp::traits::input_parameter< double >::type p(pSEXP);
Rcpp::traits::input_parameter< double >::type theta(thetaSEXP);
Rcpp::traits::input_parameter< size_t >::type keep_components(keep_componentsSEXP);
rcpp_result_gen = Rcpp::wrap(gwpca_cal(x, coords, bw, adaptive, kernel, longlat, p, theta, keep_components));
return rcpp_result_gen;
END_RCPP
}
// gwr_basic_fit
List gwr_basic_fit(const arma::mat& x, const arma::vec& y, const arma::mat& coords, double bw, bool adaptive, size_t kernel, bool longlat, double p, double theta, double optim_bw_lower, double optim_bw_upper, bool hatmatrix, bool intercept, size_t parallel_type, const IntegerVector& parallel_arg, bool optim_bw, size_t optim_bw_criterion, bool select_model, size_t select_model_criterion, size_t select_model_threshold, const CharacterVector& variable_names, int verbose);
RcppExport SEXP _GWmodel3_gwr_basic_fit(SEXP xSEXP, SEXP ySEXP, SEXP coordsSEXP, SEXP bwSEXP, SEXP adaptiveSEXP, SEXP kernelSEXP, SEXP longlatSEXP, SEXP pSEXP, SEXP thetaSEXP, SEXP optim_bw_lowerSEXP, SEXP optim_bw_upperSEXP, SEXP hatmatrixSEXP, SEXP interceptSEXP, SEXP parallel_typeSEXP, SEXP parallel_argSEXP, SEXP optim_bwSEXP, SEXP optim_bw_criterionSEXP, SEXP select_modelSEXP, SEXP select_model_criterionSEXP, SEXP select_model_thresholdSEXP, SEXP variable_namesSEXP, SEXP verboseSEXP) {
BEGIN_RCPP
Rcpp::RObject rcpp_result_gen;
Rcpp::RNGScope rcpp_rngScope_gen;
Rcpp::traits::input_parameter< const arma::mat& >::type x(xSEXP);
Rcpp::traits::input_parameter< const arma::vec& >::type y(ySEXP);
Rcpp::traits::input_parameter< const arma::mat& >::type coords(coordsSEXP);
Rcpp::traits::input_parameter< double >::type bw(bwSEXP);
Rcpp::traits::input_parameter< bool >::type adaptive(adaptiveSEXP);
Rcpp::traits::input_parameter< size_t >::type kernel(kernelSEXP);
Rcpp::traits::input_parameter< bool >::type longlat(longlatSEXP);
Rcpp::traits::input_parameter< double >::type p(pSEXP);
Rcpp::traits::input_parameter< double >::type theta(thetaSEXP);
Rcpp::traits::input_parameter< double >::type optim_bw_lower(optim_bw_lowerSEXP);
Rcpp::traits::input_parameter< double >::type optim_bw_upper(optim_bw_upperSEXP);
Rcpp::traits::input_parameter< bool >::type hatmatrix(hatmatrixSEXP);
Rcpp::traits::input_parameter< bool >::type intercept(interceptSEXP);
Rcpp::traits::input_parameter< size_t >::type parallel_type(parallel_typeSEXP);
Rcpp::traits::input_parameter< const IntegerVector& >::type parallel_arg(parallel_argSEXP);
Rcpp::traits::input_parameter< bool >::type optim_bw(optim_bwSEXP);
Rcpp::traits::input_parameter< size_t >::type optim_bw_criterion(optim_bw_criterionSEXP);
Rcpp::traits::input_parameter< bool >::type select_model(select_modelSEXP);
Rcpp::traits::input_parameter< size_t >::type select_model_criterion(select_model_criterionSEXP);
Rcpp::traits::input_parameter< size_t >::type select_model_threshold(select_model_thresholdSEXP);
Rcpp::traits::input_parameter< const CharacterVector& >::type variable_names(variable_namesSEXP);
Rcpp::traits::input_parameter< int >::type verbose(verboseSEXP);
rcpp_result_gen = Rcpp::wrap(gwr_basic_fit(x, y, coords, bw, adaptive, kernel, longlat, p, theta, optim_bw_lower, optim_bw_upper, hatmatrix, intercept, parallel_type, parallel_arg, optim_bw, optim_bw_criterion, select_model, select_model_criterion, select_model_threshold, variable_names, verbose));
return rcpp_result_gen;
END_RCPP
}
// gwr_basic_predict
arma::mat gwr_basic_predict(const arma::mat& pcoords, const arma::mat& x, const arma::vec& y, const arma::mat& coords, double bw, bool adaptive, size_t kernel, bool longlat, double p, double theta, bool intercept, size_t parallel_type, const IntegerVector& parallel_arg, int verbose);
RcppExport SEXP _GWmodel3_gwr_basic_predict(SEXP pcoordsSEXP, SEXP xSEXP, SEXP ySEXP, SEXP coordsSEXP, SEXP bwSEXP, SEXP adaptiveSEXP, SEXP kernelSEXP, SEXP longlatSEXP, SEXP pSEXP, SEXP thetaSEXP, SEXP interceptSEXP, SEXP parallel_typeSEXP, SEXP parallel_argSEXP, SEXP verboseSEXP) {
BEGIN_RCPP
Rcpp::RObject rcpp_result_gen;
Rcpp::RNGScope rcpp_rngScope_gen;
Rcpp::traits::input_parameter< const arma::mat& >::type pcoords(pcoordsSEXP);
Rcpp::traits::input_parameter< const arma::mat& >::type x(xSEXP);
Rcpp::traits::input_parameter< const arma::vec& >::type y(ySEXP);
Rcpp::traits::input_parameter< const arma::mat& >::type coords(coordsSEXP);
Rcpp::traits::input_parameter< double >::type bw(bwSEXP);
Rcpp::traits::input_parameter< bool >::type adaptive(adaptiveSEXP);
Rcpp::traits::input_parameter< size_t >::type kernel(kernelSEXP);
Rcpp::traits::input_parameter< bool >::type longlat(longlatSEXP);
Rcpp::traits::input_parameter< double >::type p(pSEXP);
Rcpp::traits::input_parameter< double >::type theta(thetaSEXP);
Rcpp::traits::input_parameter< bool >::type intercept(interceptSEXP);
Rcpp::traits::input_parameter< size_t >::type parallel_type(parallel_typeSEXP);
Rcpp::traits::input_parameter< const IntegerVector& >::type parallel_arg(parallel_argSEXP);
Rcpp::traits::input_parameter< int >::type verbose(verboseSEXP);
rcpp_result_gen = Rcpp::wrap(gwr_basic_predict(pcoords, x, y, coords, bw, adaptive, kernel, longlat, p, theta, intercept, parallel_type, parallel_arg, verbose));
return rcpp_result_gen;
END_RCPP
}
// gwr_generalized_fit
List gwr_generalized_fit(const arma::mat& x, const arma::vec& y, const arma::mat& coords, size_t family, double bw, bool adaptive, size_t kernel, bool longlat, double p, double theta, bool hatmatrix, bool intercept, bool optim_bw, size_t optim_bw_criterion, size_t parallel_type, const IntegerVector& parallel_arg);
RcppExport SEXP _GWmodel3_gwr_generalized_fit(SEXP xSEXP, SEXP ySEXP, SEXP coordsSEXP, SEXP familySEXP, SEXP bwSEXP, SEXP adaptiveSEXP, SEXP kernelSEXP, SEXP longlatSEXP, SEXP pSEXP, SEXP thetaSEXP, SEXP hatmatrixSEXP, SEXP interceptSEXP, SEXP optim_bwSEXP, SEXP optim_bw_criterionSEXP, SEXP parallel_typeSEXP, SEXP parallel_argSEXP) {
BEGIN_RCPP
Rcpp::RObject rcpp_result_gen;
Rcpp::RNGScope rcpp_rngScope_gen;
Rcpp::traits::input_parameter< const arma::mat& >::type x(xSEXP);
Rcpp::traits::input_parameter< const arma::vec& >::type y(ySEXP);
Rcpp::traits::input_parameter< const arma::mat& >::type coords(coordsSEXP);
Rcpp::traits::input_parameter< size_t >::type family(familySEXP);
Rcpp::traits::input_parameter< double >::type bw(bwSEXP);
Rcpp::traits::input_parameter< bool >::type adaptive(adaptiveSEXP);
Rcpp::traits::input_parameter< size_t >::type kernel(kernelSEXP);
Rcpp::traits::input_parameter< bool >::type longlat(longlatSEXP);
Rcpp::traits::input_parameter< double >::type p(pSEXP);
Rcpp::traits::input_parameter< double >::type theta(thetaSEXP);
Rcpp::traits::input_parameter< bool >::type hatmatrix(hatmatrixSEXP);
Rcpp::traits::input_parameter< bool >::type intercept(interceptSEXP);
Rcpp::traits::input_parameter< bool >::type optim_bw(optim_bwSEXP);
Rcpp::traits::input_parameter< size_t >::type optim_bw_criterion(optim_bw_criterionSEXP);
Rcpp::traits::input_parameter< size_t >::type parallel_type(parallel_typeSEXP);
Rcpp::traits::input_parameter< const IntegerVector& >::type parallel_arg(parallel_argSEXP);
rcpp_result_gen = Rcpp::wrap(gwr_generalized_fit(x, y, coords, family, bw, adaptive, kernel, longlat, p, theta, hatmatrix, intercept, optim_bw, optim_bw_criterion, parallel_type, parallel_arg));
return rcpp_result_gen;
END_RCPP
}
// gwr_generalized_predict
arma::mat gwr_generalized_predict(const arma::mat& pcoords, const arma::mat& x, const arma::vec& y, const arma::mat& coords, size_t family, double bw, bool adaptive, size_t kernel, bool longlat, double p, double theta, bool hatmatrix, bool intercept, size_t parallel_type, const IntegerVector& parallel_arg);
RcppExport SEXP _GWmodel3_gwr_generalized_predict(SEXP pcoordsSEXP, SEXP xSEXP, SEXP ySEXP, SEXP coordsSEXP, SEXP familySEXP, SEXP bwSEXP, SEXP adaptiveSEXP, SEXP kernelSEXP, SEXP longlatSEXP, SEXP pSEXP, SEXP thetaSEXP, SEXP hatmatrixSEXP, SEXP interceptSEXP, SEXP parallel_typeSEXP, SEXP parallel_argSEXP) {
BEGIN_RCPP
Rcpp::RObject rcpp_result_gen;
Rcpp::RNGScope rcpp_rngScope_gen;
Rcpp::traits::input_parameter< const arma::mat& >::type pcoords(pcoordsSEXP);
Rcpp::traits::input_parameter< const arma::mat& >::type x(xSEXP);
Rcpp::traits::input_parameter< const arma::vec& >::type y(ySEXP);
Rcpp::traits::input_parameter< const arma::mat& >::type coords(coordsSEXP);
Rcpp::traits::input_parameter< size_t >::type family(familySEXP);
Rcpp::traits::input_parameter< double >::type bw(bwSEXP);
Rcpp::traits::input_parameter< bool >::type adaptive(adaptiveSEXP);
Rcpp::traits::input_parameter< size_t >::type kernel(kernelSEXP);
Rcpp::traits::input_parameter< bool >::type longlat(longlatSEXP);
Rcpp::traits::input_parameter< double >::type p(pSEXP);
Rcpp::traits::input_parameter< double >::type theta(thetaSEXP);
Rcpp::traits::input_parameter< bool >::type hatmatrix(hatmatrixSEXP);
Rcpp::traits::input_parameter< bool >::type intercept(interceptSEXP);
Rcpp::traits::input_parameter< size_t >::type parallel_type(parallel_typeSEXP);
Rcpp::traits::input_parameter< const IntegerVector& >::type parallel_arg(parallel_argSEXP);
rcpp_result_gen = Rcpp::wrap(gwr_generalized_predict(pcoords, x, y, coords, family, bw, adaptive, kernel, longlat, p, theta, hatmatrix, intercept, parallel_type, parallel_arg));
return rcpp_result_gen;
END_RCPP
}
// gwr_lcr_fit
List gwr_lcr_fit(const arma::mat& x, const arma::vec& y, const arma::mat& coords, double bw, bool adaptive, size_t kernel, bool longlat, double p, double theta, double lambda, bool lambda_adjust, double cn_thresh, bool intercept, bool hatmatrix, size_t parallel_type, const IntegerVector& parallel_arg, bool optim_bw);
RcppExport SEXP _GWmodel3_gwr_lcr_fit(SEXP xSEXP, SEXP ySEXP, SEXP coordsSEXP, SEXP bwSEXP, SEXP adaptiveSEXP, SEXP kernelSEXP, SEXP longlatSEXP, SEXP pSEXP, SEXP thetaSEXP, SEXP lambdaSEXP, SEXP lambda_adjustSEXP, SEXP cn_threshSEXP, SEXP interceptSEXP, SEXP hatmatrixSEXP, SEXP parallel_typeSEXP, SEXP parallel_argSEXP, SEXP optim_bwSEXP) {
BEGIN_RCPP
Rcpp::RObject rcpp_result_gen;
Rcpp::RNGScope rcpp_rngScope_gen;
Rcpp::traits::input_parameter< const arma::mat& >::type x(xSEXP);
Rcpp::traits::input_parameter< const arma::vec& >::type y(ySEXP);
Rcpp::traits::input_parameter< const arma::mat& >::type coords(coordsSEXP);
Rcpp::traits::input_parameter< double >::type bw(bwSEXP);
Rcpp::traits::input_parameter< bool >::type adaptive(adaptiveSEXP);
Rcpp::traits::input_parameter< size_t >::type kernel(kernelSEXP);
Rcpp::traits::input_parameter< bool >::type longlat(longlatSEXP);
Rcpp::traits::input_parameter< double >::type p(pSEXP);
Rcpp::traits::input_parameter< double >::type theta(thetaSEXP);
Rcpp::traits::input_parameter< double >::type lambda(lambdaSEXP);
Rcpp::traits::input_parameter< bool >::type lambda_adjust(lambda_adjustSEXP);
Rcpp::traits::input_parameter< double >::type cn_thresh(cn_threshSEXP);
Rcpp::traits::input_parameter< bool >::type intercept(interceptSEXP);
Rcpp::traits::input_parameter< bool >::type hatmatrix(hatmatrixSEXP);
Rcpp::traits::input_parameter< size_t >::type parallel_type(parallel_typeSEXP);
Rcpp::traits::input_parameter< const IntegerVector& >::type parallel_arg(parallel_argSEXP);
Rcpp::traits::input_parameter< bool >::type optim_bw(optim_bwSEXP);
rcpp_result_gen = Rcpp::wrap(gwr_lcr_fit(x, y, coords, bw, adaptive, kernel, longlat, p, theta, lambda, lambda_adjust, cn_thresh, intercept, hatmatrix, parallel_type, parallel_arg, optim_bw));
return rcpp_result_gen;
END_RCPP
}
// gwr_multiscale_fit
List gwr_multiscale_fit(const arma::mat& x, const arma::vec& y, const arma::mat& coords, const NumericVector& bw, const LogicalVector& adaptive, const IntegerVector& kernel, const LogicalVector& longlat, const NumericVector& p, const NumericVector& theta, const LogicalVector& optim_bw, const IntegerVector& optim_bw_criterion, const NumericVector& threashold, const IntegerVector& initial_type, const LogicalVector& centered, double optim_bw_lower, double optim_bw_upper, size_t criterion, bool hatmatrix, bool intercept, size_t retry_times, size_t max_iterations, size_t parallel_type, const IntegerVector& parallel_arg, const CharacterVector& variable_names, int verbose);
RcppExport SEXP _GWmodel3_gwr_multiscale_fit(SEXP xSEXP, SEXP ySEXP, SEXP coordsSEXP, SEXP bwSEXP, SEXP adaptiveSEXP, SEXP kernelSEXP, SEXP longlatSEXP, SEXP pSEXP, SEXP thetaSEXP, SEXP optim_bwSEXP, SEXP optim_bw_criterionSEXP, SEXP threasholdSEXP, SEXP initial_typeSEXP, SEXP centeredSEXP, SEXP optim_bw_lowerSEXP, SEXP optim_bw_upperSEXP, SEXP criterionSEXP, SEXP hatmatrixSEXP, SEXP interceptSEXP, SEXP retry_timesSEXP, SEXP max_iterationsSEXP, SEXP parallel_typeSEXP, SEXP parallel_argSEXP, SEXP variable_namesSEXP, SEXP verboseSEXP) {
BEGIN_RCPP
Rcpp::RObject rcpp_result_gen;
Rcpp::RNGScope rcpp_rngScope_gen;
Rcpp::traits::input_parameter< const arma::mat& >::type x(xSEXP);
Rcpp::traits::input_parameter< const arma::vec& >::type y(ySEXP);
Rcpp::traits::input_parameter< const arma::mat& >::type coords(coordsSEXP);
Rcpp::traits::input_parameter< const NumericVector& >::type bw(bwSEXP);
Rcpp::traits::input_parameter< const LogicalVector& >::type adaptive(adaptiveSEXP);
Rcpp::traits::input_parameter< const IntegerVector& >::type kernel(kernelSEXP);
Rcpp::traits::input_parameter< const LogicalVector& >::type longlat(longlatSEXP);
Rcpp::traits::input_parameter< const NumericVector& >::type p(pSEXP);
Rcpp::traits::input_parameter< const NumericVector& >::type theta(thetaSEXP);
Rcpp::traits::input_parameter< const LogicalVector& >::type optim_bw(optim_bwSEXP);
Rcpp::traits::input_parameter< const IntegerVector& >::type optim_bw_criterion(optim_bw_criterionSEXP);
Rcpp::traits::input_parameter< const NumericVector& >::type threashold(threasholdSEXP);
Rcpp::traits::input_parameter< const IntegerVector& >::type initial_type(initial_typeSEXP);
Rcpp::traits::input_parameter< const LogicalVector& >::type centered(centeredSEXP);
Rcpp::traits::input_parameter< double >::type optim_bw_lower(optim_bw_lowerSEXP);
Rcpp::traits::input_parameter< double >::type optim_bw_upper(optim_bw_upperSEXP);
Rcpp::traits::input_parameter< size_t >::type criterion(criterionSEXP);
Rcpp::traits::input_parameter< bool >::type hatmatrix(hatmatrixSEXP);
Rcpp::traits::input_parameter< bool >::type intercept(interceptSEXP);
Rcpp::traits::input_parameter< size_t >::type retry_times(retry_timesSEXP);
Rcpp::traits::input_parameter< size_t >::type max_iterations(max_iterationsSEXP);
Rcpp::traits::input_parameter< size_t >::type parallel_type(parallel_typeSEXP);
Rcpp::traits::input_parameter< const IntegerVector& >::type parallel_arg(parallel_argSEXP);
Rcpp::traits::input_parameter< const CharacterVector& >::type variable_names(variable_namesSEXP);
Rcpp::traits::input_parameter< int >::type verbose(verboseSEXP);
rcpp_result_gen = Rcpp::wrap(gwr_multiscale_fit(x, y, coords, bw, adaptive, kernel, longlat, p, theta, optim_bw, optim_bw_criterion, threashold, initial_type, centered, optim_bw_lower, optim_bw_upper, criterion, hatmatrix, intercept, retry_times, max_iterations, parallel_type, parallel_arg, variable_names, verbose));
return rcpp_result_gen;
END_RCPP
}
static const R_CallMethodDef CallEntries[] = {
{"_GWmodel3_gtdr_fit", (DL_FUNC) &_GWmodel3_gtdr_fit, 19},
{"_GWmodel3_gwaverage_fit", (DL_FUNC) &_GWmodel3_gwaverage_fit, 11},
{"_GWmodel3_gw_correlation_cal", (DL_FUNC) &_GWmodel3_gw_correlation_cal, 15},
{"_GWmodel3_gwda_cal", (DL_FUNC) &_GWmodel3_gwda_cal, 12},
{"_GWmodel3_gwpca_cal", (DL_FUNC) &_GWmodel3_gwpca_cal, 9},
{"_GWmodel3_gwr_basic_fit", (DL_FUNC) &_GWmodel3_gwr_basic_fit, 22},
{"_GWmodel3_gwr_basic_predict", (DL_FUNC) &_GWmodel3_gwr_basic_predict, 14},
{"_GWmodel3_gwr_generalized_fit", (DL_FUNC) &_GWmodel3_gwr_generalized_fit, 16},
{"_GWmodel3_gwr_generalized_predict", (DL_FUNC) &_GWmodel3_gwr_generalized_predict, 15},
{"_GWmodel3_gwr_lcr_fit", (DL_FUNC) &_GWmodel3_gwr_lcr_fit, 17},
{"_GWmodel3_gwr_multiscale_fit", (DL_FUNC) &_GWmodel3_gwr_multiscale_fit, 25},
{NULL, NULL, 0}
};
RcppExport void R_init_GWmodel3(DllInfo *dll) {
R_registerRoutines(dll, NULL, CallEntries, NULL, NULL);
R_useDynamicSymbols(dll, FALSE);
}