Intereting Posts
Подтвердить аргумент – это тип ARRAY в макросе предварительной обработки c / c ++ во время компиляции OpenCV – сопоставление объектов с использованием дескрипторов SURF и BruteForceMatcher Отключить неявное преобразование между typedefs что такое полиморфный тип в C ++? Неопределенная ссылка на шаблон функции при использовании со строкой (GCC) C / C ++: освобождение или удаление блока динамически созданной памяти С C ++ я получаю указатель с 0xcdcdcdcd при создании classа – что происходит? Проблема с указателем на массив символов C ++ CxxTest компиляция, отсутствует основная Как работает .h, .lib & .dll Когда использовать векторы и когда использовать массивы в C ++? Доступ к отдельным битам в символе c ++ Пользовательская система / библиотека типа времени выполнения для C ++ Netbeans: как включить другой проект статической библиотеки c ++? Получить выход из приложения Ncurses на отдельном терминале

Rcpp debug – фатальная ошибка: Datetime.h: нет такого файла или каталога; xtsAPI.h: Нет такого файла или каталога

Я использую Rcpp для обработки данных Datetime и xts. Тем не менее, я получаю ошибку No such file or directory ошибки No such file or directory в обеих строках 2 и 3 следующего кода:

 #include  #include  #include  // [[Rcpp::depends(xts)] using namespace Rcpp; using namespace std; 

Вот ошибки, которые я получаю:

 fatal error: Datetime.h: No such file or directory; fatal error: xtsAPI.h: No such file or directory; 

Используйте #include вместо #include и убедитесь, что установлен RcppXts – тогда вы сможете использовать обе эти библиотеки:

 if(!"RcppXts" %in% installed.packages()[,1]) { install.packages("RcppXts") } 

 #include  #include  #include  // [[Rcpp::plugins(cpp11)]] // [[Rcpp::depends(xts)]] /* * http://gallery.rcpp.org/articles/accessing-xts-api/ */ // [[Rcpp::export]] Rcpp::NumericVector createXts(int sv, int ev) { Rcpp::IntegerVector ind = Rcpp::seq(sv, ev); // values Rcpp::NumericVector dv(ind); // date(time)s are real values dv = dv * 86400; // scaled to days dv.attr("tzone") = "UTC"; // the index has attributes dv.attr("tclass") = "Date"; Rcpp::NumericVector xv(ind); // data her same index xv.attr("dim") = Rcpp::IntegerVector::create(ev-sv+1,1); xv.attr("index") = dv; Rcpp::CharacterVector klass = Rcpp::CharacterVector::create("xts", "zoo"); xv.attr("class") = klass; xv.attr(".indexCLASS") = "Date"; xv.attr("tclass") = "Date"; xv.attr(".indexTZ") = "UTC"; xv.attr("tzone") = "UTC"; return xv; } // [[Rcpp::export]] Rcpp::NumericVector rbindXts(Rcpp::NumericMatrix ma, Rcpp::NumericMatrix mb, bool dup=true) { Rcpp::NumericMatrix mc = xtsRbind(ma, mb, Rcpp::wrap(dup)); return mc; } // [[Rcpp::export]] Rcpp::LogicalVector match_date(Rcpp::Datetime d, Rcpp::DatetimeVector dv) { Rcpp::LogicalVector lv(dv.size()); std::transform(dv.begin(), dv.end(), lv.begin(), [&](Rcpp::Datetime dIn) -> bool { return dIn == d; }); return lv; } /*** R D <- Sys.time() Dv <- seq.POSIXt(from = D - 3600*24*3, to = D + 3600*24*3, by="day") match_date(D, Dv) # [1] FALSE FALSE FALSE TRUE FALSE FALSE FALSE x1 <- createXts(2,5) x2 <- createXts(4,9) rbindXts(x1, x2) # [,1] # 1970-01-03 2 # 1970-01-04 3 # 1970-01-05 4 # 1970-01-06 5 # 1970-01-07 6 # 1970-01-08 7 # 1970-01-09 8 # 1970-01-10 9 */