While 循环

用 Rcpp 优化 R 代码

Romain François

Consulting Datactive, ThinkR

While 循环更简单

while( condition ){
    body
}

继续条件
循环体

// [[Rcpp::export]]
int power( int n ){    
    if( n < 0 ){
        stop( "n must be positive" )  ;
    }
    int value = 1 ;
    while( value < n ){
        value = value * 2 ;
    }
    return value ;
}

使用 sourceCpp 编译函数后，可调用：

power( 1000 )
power( 17 )

1024
32

For 循环就是 while 循环

for( init ; condition; increment ){
    body
}

等价于

init
while( condition ){
    body
    increment
}

do / while 循环

do {
    body
} while( condition ) ;

do / while 循环示例

// [[Rcpp::export]]
int power( int n ){

    if( n < 0 ){
        stop( "n must be positive" )  ;
    }

    int value = 1 ;
    do {
        value = value * 2 ;
    } while( value < n );
    return value ;
}

让我们练习吧！

用 Rcpp 优化 R 代码