Something went wrong. Try again.
Distances on Directed Graphs in R
Something went wrong. Try again.
1234567891011121314151617181920212223242526272829303132#include "sc-as-network.h"
// Function to generate IDs for the edges in each waystd::string sc::random_id (size_t len) { auto randchar = []() -> char { const char charset[] = \ "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"; const size_t max_index = (sizeof(charset) - 1); //return charset [ rand() % max_index ]; size_t i = static_cast <size_t> (floor (Rcpp::runif (1) [0] * max_index)); return charset [i]; }; std::string str (len, 0); std::generate_n (str.begin(), len, randchar); return str;}
//' rcpp_gen_hash//'//' Efficient generation of long sequences of hash keys//'//' @noRd// [[Rcpp::export]]Rcpp::CharacterVector rcpp_gen_hash (const int n, const size_t hash_len){ Rcpp::CharacterVector res (n); for (int i = 0; i < n; i++) res [i] = sc::random_id (hash_len); return res;}