Использование функций с несколькими аргументами с lapply в Rcpp

Question

Использование функций с несколькими аргументами с lapply в Rcpp

0

Я пытаюсь использовать функцию Rapp lapply с функциями с несколькими аргументами.

В R то же самое можно сделать со следующим кодом.

lapply(y,FUN=function(x)corr(x[,2:ncol(x)],x[,1]))

где corr - функция, которая принимает два аргумента.

Может ли кто-нибудь привести пример кода в Rcpp для вышеуказанной ситуации?

gman 03 июнь 2014, в 16:33

Источник

1

Сделайте то же самое в C ++, передайте lapply функцию, которая принимает один аргумент.
Romain Francois 03 июнь 2014, в 14:34
0

Можете быть более конкретными. Какой код на С ++ вы пробовали?
Romain Francois 06 июнь 2014, в 09:19
0

Это то, что я пробовал struct Compare : public std::binary_function<int,int,bool> { bool operator() (int a, int b) {return (a==b);} }; List x(List y){ Compare c; return lapply(y, c (y,y)) }
gman 06 июнь 2014, в 10:16
0

@RomainFrancois Это может быть глупая попытка, но я не знаю ничего другого, чтобы заставить это работать
gman 06 июнь 2014, в 10:37

Показать ещё 2 комментария

Теги:

c++

rcpp

lapply

1 ответ

Ещё вопросы

Сделайте то же самое в C ++, передайте lapply функцию, которая принимает один аргумент.
Можете быть более конкретными. Какой код на С ++ вы пробовали?
Это то, что я пробовал struct Compare : public std::binary_function<int,int,bool> { bool operator() (int a, int b) {return (a==b);} }; List x(List y){ Compare c; return lapply(y, c (y,y)) }
@RomainFrancois Это может быть глупая попытка, но я не знаю ничего другого, чтобы заставить это работать

Romain Francois · Accepted Answer · 2014-06-06T10-25-00.000Z

Если я правильно понимаю, что вы хотите, исходя из ваших последних комментариев, то вам нужно использовать mapply а не sapply, например:

> mapply( function(a, b) a == b, 1:9, 9:1 )
# [1] FALSE FALSE FALSE FALSE  TRUE FALSE FALSE FALSE FALSE

Rcpp имеет mapply (для двух или трех аргументов)

#include <Rcpp.h>
using namespace Rcpp ;

struct Compare : public std::binary_function<int,int,bool> {   
    bool operator() (int a, int b) const {
        return (a==b);
    } 
};

// [[Rcpp::export]]
LogicalVector test( NumericVector x, NumericVector y){
    return mapply( x, y, Compare() ) ;
}

который я хотел бы писать так с С++ 11 lambdas.

// [[Rcpp::export]]
LogicalVector test( NumericVector x, NumericVector y){
    return mapply( x, y, [](double a, double b){ 
            return a == b ;
    } ) ;
}

Или даже используя класс std::equal_to<double>:

// [[Rcpp::export]]
LogicalVector test( NumericVector x, NumericVector y){
    return mapply( x, y, std::equal_to<double>() ) ;
}

Однако для таких тривиальных функций вы должны использовать сахар:

// [[Rcpp::export]]
LogicalVector test( NumericVector x, NumericVector y){
    return x == y ;
}