Klonování vektorů

Na rozdíl od R používá C++ systém kopírování odkazem – pokud zkopíruješ proměnnou a v kopii provedeš změny, tyto změny se projeví i v originálu.

// [[Rcpp::export]]
NumericVector always_returns_two(NumericVector x) {
  // Make a copy
  NumericVector y = x;
  // Modify the copy
  y[0] = 2;
  // The changes also happen in the original
  return x[0];
}

Aby ses tomuto chování vyhnul/a, musíš použít funkci clone(), která zkopíruje podkladová data z původní proměnné do nové. Syntaxe je y = clone(x). V tomto cvičení jsou pro tebe připraveny dvě funkce:

change_negatives_to_zero(): Vezme číselný vektor, upraví ho tak, že záporná čísla nahradí nulou, a vrátí původní vektor i kopii.
change_negatives_to_zero_with_cloning(): Dělá totéž, ale před úpravou původní vektor nejprve naklonuje.

Toto cvičení je součástí kurzu

Optimizing R Code with Rcpp

Zobrazit kurz

Pokyny k cvičení

Dokonči definici funkce change_negatives_to_zero() tak, že přiřadíš the_original do the_copy.
Dokonči definici funkce change_negatives_to_zero_with_cloning() tak, že nastavíš the_copy jako klon the_original.
Přečti si výstup v konzoli a porovnej výsledky obou funkcí.

Interaktivní cvičení na vyzkoušení si v praxi

Vyzkoušejte si toto cvičení dokončením tohoto ukázkového kódu.

#include 
using namespace Rcpp;

// [[Rcpp::export]]
List change_negatives_to_zero(NumericVector the_original) {
  // Set the copy to the original
  NumericVector the_copy = ___;
  int n = the_original.size();
  for(int i = 0; i < n; i++) {
    if(the_copy[i] < 0) the_copy[i] = 0;
  }
  return List::create(_["the_original"] = the_original, _["the_copy"] = the_copy);
}

// [[Rcpp::export]]
List change_negatives_to_zero_with_cloning(NumericVector the_original) {
  // Clone the original to make the copy
  NumericVector the_copy = ___;
  int n = the_original.size();
  for(int i = 0; i < n; i++) {
    if(the_copy[i] < 0) the_copy[i] = 0;
  }
  return List::create(_["the_original"] = the_original, _["the_copy"] = the_copy);
}

/*** R
x <- c(0, -4, 1, -2, 2, 4, -3, -1, 3)
change_negatives_to_zero(x)
# Need to define x again because it's changed now
x <- c(0, -4, 1, -2, 2, 4, -3, -1, 3)
change_negatives_to_zero_with_cloning(x)
*/

Upravit a spustit kód