Kloning vektor

Berbeda dengan R, C++ menggunakan sistem salin berdasarkan referensi (copy by reference), artinya jika Anda menyalin sebuah variabel lalu mengubah salinannya, perubahan tersebut juga akan terjadi pada variabel asalnya.

// [[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];
}

Untuk mencegah perilaku ini, Anda harus menggunakan fungsi clone() untuk menyalin data dasar dari variabel asal ke variabel baru. Sintaksnya adalah y = clone(x). Dalam latihan ini, dua fungsi telah kami definisikan untuk Anda:

change_negatives_to_zero(): Menerima sebuah vektor numerik, memodifikasinya dengan mengganti bilangan negatif menjadi nol, lalu mengembalikan vektor asli dan salinannya.
change_negatives_to_zero_with_cloning(): Melakukan hal yang sama seperti di atas, tetapi mengkloning vektor asli sebelum memodifikasinya.

Latihan ini adalah bagian dari kursus

Mengoptimalkan Kode R dengan Rcpp

Lihat Kursus

Petunjuk latihan

Lengkapi definisi fungsi change_negatives_to_zero() dengan menyetel the_original ke the_copy.
Lengkapi definisi fungsi change_negatives_to_zero_with_cloning() dengan menyetel the_copy ke klon dari the_original.
Baca isi konsol untuk membandingkan keluaran dari masing-masing fungsi.

Latihan interaktif praktis

Cobalah latihan ini dengan menyelesaikan kode contoh berikut.

#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)
*/

Edit dan Jalankan Kode