🌞

Jonathan Berrisch BerriJ

🌞

Data Scientist, Ph.D. Student and Unix Nerd.

BerriJ / awtrix_spotifiy.yaml

Created August 29, 2023 07:16

Awtrix Spotify

	alias: pixelclock_spotify
	description: ""
	trigger:
	- platform: state
	entity_id: media_player.spotify_vistagamer
	condition: []
	action:
	- choose:
	- conditions:
	- condition: state

BerriJ / periodic_bsplines.cpp

Last active April 5, 2023 13:29

Create periodic B-Splines using Spline2 R-Package

	#include <RcppArmadillo.h>
	// include header file from splines2 package
	#include <splines2Armadillo.h>

	// [[Rcpp::export]]
	arma::mat splines2_periodic(const arma::vec &x,
	const arma::vec &knots,
	const unsigned int deg,
	const bool &intercept = true)
	{

BerriJ / expose_r_function.cpp

Created January 13, 2023 15:06

Expose R function splines::splineDesign to Rcpp

	#include <RcppArmadillo.h>

	// Expose splines::splineDesign to Rcpp
	mat splineDesign_rcpp(const vec &x, const vec &knots, const int &deg)
	{
	Rcpp::Environment pkg = Rcpp::Environment::namespace_env("splines");
	Rcpp::Function f = pkg["splineDesign"];
	mat y = Rcpp::as<arma::mat>(f(knots, x, deg + 1, 0, true));
	return y;
	}

BerriJ / efficient_grid_sample.R

Created November 25, 2022 08:29

In R: Draw sample from a grid without creating it (without replacement)

	library(microbenchmark)
	library(Rcpp)
	library(inline)

	src <- "int n = as<int>(N);
	std::vector<int> s = as< std::vector<int> >(sizes);
	std::vector<int> epsilon (s.size());
	std::vector<int>::iterator it;
	it = s.begin();
	it = s.insert ( it , 1 );

BerriJ / material_cols.R

Last active January 19, 2023 11:58

Snippets for plotting with R

	library(dplyr)
	library(ggplot2)
	library(ggsci)
	library(tidyr)

	material_pals <- c(
	"red", "pink", "purple", "deep-purple", "indigo",
	"blue", "light-blue", "cyan", "teal", "green", "light-green", "lime",
	"yellow", "amber", "orange", "deep-orange", "brown", "grey", "blue-grey"
	)

BerriJ / fielddemo.R

Created November 3, 2021 19:42

Demo of handling fields of different dimensions between C++ (via RcppArmadillo) and R

	field1 <- fieldtest1()
	dim(field1)

	field2 <- fieldtest2()
	dim(field2)

	field3 <- fieldtest3()
	dim(field3)

	field1out <- FieldInfieldOut(field1)

BerriJ / Dockerfile

Created August 18, 2021 10:30

Dockerfile vscDebugger Problem

	FROM ubuntu:focal

	SHELL ["/bin/bash", "-c"]

	ENV R_VERSION=4.1.1 \
	# See https://packagemanager.rstudio.com/client/#/repos/1/overview
	R_REPOS=https://packagemanager.rstudio.com/all/__linux__/focal/4526215 \
	DISPLAY=:0 \
	TZ=Europe/Berlin

BerriJ / test.cpp

Created January 7, 2021 16:01

Example Rcpp armadillo comparison double to vec

BerriJ / Main.tex

Last active September 29, 2020 07:18

latexmk_reprex_files

	% !TEX root = Main.tex

	\documentclass{article}

	\usepackage[round]{natbib}
	\bibliographystyle{abbrvnat}

	\begin{document}

	\cite{geng2017relationship}

BerriJ / app.R

Created August 28, 2019 08:13 — forked from PaulC91/app.R

return key trigger actionButton click in shiny example

	library(shiny)

	ui <- fluidPage(

	tags$head(includeScript("returnClick.js")),

	textInput("myText", "", placeholder = "Enter text then hit return", width = "100%"),
	actionButton("myButton", "Go!"),
	verbatimTextOutput("textOutput")