updated config

NAMESPACE

@@ -37,4 +37,4 @@ importFrom(stats,predict)
 importFrom(stats,sd)
 importFrom(stats,var)
 importFrom(utils,write.table)
-useDynLib(DSWE)
+useDynLib(DSWE, .registration = TRUE)

R/CovMatchSubroutines.R

@@ -21,7 +21,7 @@
 # SOFTWARE.
 
 #' @importFrom  matrixStats colMins colMaxs colSds
-#' @useDynLib DSWE
+#' @useDynLib DSWE, .registration = TRUE
 #' @importFrom Rcpp sourceCpp
 
 CovMatch.Mult = function(dname, cov, wgt, cov.circ){

R/KnnPCFit.R

@@ -46,7 +46,9 @@
 #' knn_model = KnnPCFit(data, xCol, yCol, subsetSelection)
 #' 
 #' @export
+#' @useDynLib DSWE, .registration = TRUE
 #' @importFrom FNN knn.reg knnx.index
+#' 
 KnnPCFit = function(data, xCol, yCol, subsetSelection = FALSE){
 
   if(!is.matrix(data) & !is.data.frame(data)){

R/RcppExports.R

@@ -2,34 +2,34 @@
 # Generator token: 10BE3573-1514-4C36-9D1C-5A225CD40393
 
 computeWeightedY <- function(X, y, params) {
-    .Call('_DSWE_computeWeightedY', PACKAGE = 'DSWE', X, y, params)
+    .Call(`_DSWE_computeWeightedY`, X, y, params)
 }
 
 predictGP <- function(X, weightedY, Xnew, params) {
-    .Call('_DSWE_predictGP', PACKAGE = 'DSWE', X, weightedY, Xnew, params)
+    .Call(`_DSWE_predictGP`, X, weightedY, Xnew, params)
 }
 
 computeLogLikGP_ <- function(X, y, params) {
-    .Call('_DSWE_computeLogLikGP_', PACKAGE = 'DSWE', X, y, params)
+    .Call(`_DSWE_computeLogLikGP_`, X, y, params)
 }
 
 computeLogLikGradGP_ <- function(X, y, params) {
-    .Call('_DSWE_computeLogLikGradGP_', PACKAGE = 'DSWE', X, y, params)
+    .Call(`_DSWE_computeLogLikGradGP_`, X, y, params)
 }
 
 computeLogLikGradGPZeroMean_ <- function(X, y, params) {
-    .Call('_DSWE_computeLogLikGradGPZeroMean_', PACKAGE = 'DSWE', X, y, params)
+    .Call(`_DSWE_computeLogLikGradGPZeroMean_`, X, y, params)
 }
 
 computeDiffCov_ <- function(X1, y1, X2, y2, XT, theta, sigma_f, sigma_n, beta) {
-    .Call('_DSWE_computeDiffCov_', PACKAGE = 'DSWE', X1, y1, X2, y2, XT, theta, sigma_f, sigma_n, beta)
+    .Call(`_DSWE_computeDiffCov_`, X1, y1, X2, y2, XT, theta, sigma_f, sigma_n, beta)
 }
 
 computeConfBand_ <- function(diffCovMat, confLevel) {
-    .Call('_DSWE_computeConfBand_', PACKAGE = 'DSWE', diffCovMat, confLevel)
+    .Call(`_DSWE_computeConfBand_`, diffCovMat, confLevel)
 }
 
 matchcov <- function(ref, obj, thres, circ_pos, flag) {
-    .Call('_DSWE_matchcov', PACKAGE = 'DSWE', ref, obj, thres, circ_pos, flag)
+    .Call(`_DSWE_matchcov`, ref, obj, thres, circ_pos, flag)
 }
 

R/funGPSubroutines.R

@@ -20,7 +20,7 @@
 # OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
 # SOFTWARE.
 
-#' @useDynLib DSWE
+#' @useDynLib DSWE, .registration = TRUE
 #' @importFrom Rcpp sourceCpp
 #' 
 estimateParameters= function(datalist, covCols, yCol, opt_method, limitMemory, optimSize, rngSeed){

R/tempGPSubroutines.R

@@ -20,6 +20,7 @@
 # OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
 # SOFTWARE.
 
+#' @useDynLib DSWE, .registration = TRUE
 
 computeThinningNumber = function(trainX, max_thinning_number){
   thinning_vec = rep(max_thinning_number, ncol(trainX))