Florian Privé privefl
privefl
/ multMatVec.cpp
Created
December 30, 2016 17:01
Matrix-vector multiplication in Rcpp and RcppArmadillo
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| // [[Rcpp::depends(RcppArmadillo, bigmemory, BH)]] | |
| #include <RcppArmadillo.h> | |
| #include <bigmemory/MatrixAccessor.hpp> | |
| using namespace Rcpp; | |
| // [[Rcpp::export]] | |
| NumericVector prod1(XPtr<BigMatrix> bMPtr, const NumericVector& x) { | |
| MatrixAccessor<char> macc(*bMPtr); |
privefl
/ checkDuplicate.cpp
Last active
May 9, 2017 10:03
Further optimize genetic algorithm (https://github.com/expectopatronum/ds-learning-club/tree/f1330787a6c509ee259d6a24ecd009cf57633a74/16-genetic-algorithms).
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| #include <Rcpp.h> | |
| using namespace Rcpp; | |
| // [[Rcpp::export]] | |
| bool checkDuplicate(const IntegerMatrix& pop, int ind) { | |
| if (ind == 1) { | |
| return(true); | |
| } else { | |
| int i, j, k = ind - 1; | |
| int n = pop.nrow(); |
privefl
/ check-result-sampling
Created
September 17, 2017 10:26
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| N <- 23e4 | |
| n <- 2e4 | |
| prb <- ifelse(sample(0:1, size = N, replace = TRUE) == 1, 1.0, 0.05) | |
| smpl <- sampling::UPrandomsystematic(n / sum(prb) * prb) | |
| table(prb[as.logical(smpl)]) | |
| table(prb[sample.int(N, size = n, replace = FALSE, prob = prb)]) |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| unicode2hex <- function(html_file) { | |
| new_text <- gsub(pattern = "<U\\+([0-9]{4})>", replacement = "&#x\\1", | |
| x = readLines(html_file, encoding = "UTF-8")) | |
| writeLines(new_text, con = html_file, useBytes = TRUE) | |
| } |
privefl
/ Example of using package flock
Last active
December 13, 2017 08:19
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| #### IN ORDER #### | |
| # In first session, run: | |
| write(1, "test.txt") | |
| obj.lock <- flock::lock("test.txt") | |
| # In second session, run this (this will wait the unlock in the first session) | |
| obj.lock <- flock::lock("test.txt") | |
| write(2, "test.txt", append = TRUE) | |
| flock::unlock(obj.lock) |
privefl
/ file2587a225391.R
Last active
February 12, 2018 10:11
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| library(dplyr) | |
| # dplyr programming | |
| my_summarise <- function(df, group) { | |
| group <- enquo(group) | |
| df %>% | |
| group_by(!!group) %>% | |
| summarise_all(mean) | |
| } |
privefl
/ file25877e066ce5.R
Created
February 12, 2018 10:12
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| library(dplyr) | |
| # dplyr programming | |
| my_summarise <- function(df, group) { | |
| group <- enquo(group) | |
| df %>% | |
| group_by(!!group) %>% | |
| summarise_all(mean) | |
| } |
privefl
/ file258747de0a62.R
Created
February 12, 2018 10:13
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| library(dplyr) | |
| # dplyr programming | |
| my_summarise <- function(df, group) { | |
| group <- enquo(group) | |
| df %>% | |
| group_by(!!group) %>% | |
| summarise_all(mean) | |
| } |
privefl
/ file25877160de1e.R
Created
February 12, 2018 10:14
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| library(dplyr) | |
| # dplyr programming | |
| my_summarise <- function(df, group) { | |
| group <- enquo(group) | |
| df %>% | |
| group_by(!!group) %>% | |
| summarise_all(mean) | |
| } |
privefl
/ myggplot.R
Last active
March 5, 2018 14:05
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| MY_THEME <- function(p, coeff = 1) { | |
| p + theme_bw() + | |
| theme(plot.title = element_text(size = rel(2.0 * coeff), hjust = 0.5), | |
| plot.subtitle = element_text(size = rel(1.5 * coeff), hjust = 0.5), | |
| legend.title = element_text(size = rel(1.8 * coeff)), | |
| legend.text = element_text(size = rel(1.3 * coeff)), | |
| axis.title = element_text(size = rel(1.5 * coeff)), | |
| axis.text = element_text(size = rel(1.2 * coeff)), | |
| legend.key.height = unit(1.3 * coeff, "line"), | |
| legend.key.width = unit(1.3 * coeff, "line")) |
OlderNewer