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 程式碼