Skip to main content

Posts

Showing posts from February, 2011

More on convolution

Often you need to convolve a particular vector with a lot of other vectors of equal length, then the program below can be used. It illustrates the use of Rcpp/inline and FFTW used from within R.

### The program below can be used, when a vector is convolved several times
### with vectors of equal length

### In the first step the FFT of x is stored and FFTW plans are created,
### in subsequent steps the FFT of x is reused and FFTW plans recalled.


library(Rcpp)
require(inline)


### Definition of plugin, makes linkage to FFTW possible
plug <- Rcpp:::Rcpp.plugin.maker(include.before = "#include ",
libs = paste("-L/usr/local/lib/R/site-library/Rcpp/lib -lRcpp",
"-Wl,-rpath,/usr/local/lib/R/site-library/Rcpp/lib",
"-lfftw3 -lm -L/usr/lib"))
registerPlugin("FFTWconv", plug )

### Convolution function used af…

An example using Rcpp, inline and FFTW: Convolution

Following a discussion on the Rcpp mailing list I constructed the example below, which illustrates how to use Rcpp.plugin.maker to assure correct linkage of a library - in this case the FFTW library (Fastest Fourier Transform in the West).
The resulting R function is named convolve_fftw

The example also illustrates the general use of Rcpp and inline

library(Rcpp)
require(inline)

plug <- Rcpp:::Rcpp.plugin.maker(include.before = "#include ",
libs = paste("-L/usr/local/lib/R/site-library/Rcpp/lib -lRcpp",
"-Wl,-rpath,/usr/local/lib/R/site-library/Rcpp/lib",
"-lfftw3 -lm -L/usr/lib"))
registerPlugin("FFTWconv", plug )

convFFTW <- cxxfunction(
signature(xIn = "numeric", yIn = "numeric"),
body = '
Rcpp::NumericVector x(xIn);
Rcpp::NumericVector y(yIn);
int nx=x.size();
int ny…

ModernCV - for black and white printers

The LaTeX class ModernCV does not provide a black color theme option - and printouts can therefore contain rastered colors if printed on black and white printers.
I am using the classic layout and made the following changes in .../tex/latex/modercv/moderncvthemeclassic.sty to get a black color theme. First of all I copied the style file and edited it as normal user, then copied the file to its original location as root.


In the code section Package options -> color options I added the lines
% black \newif\if@colorblack\@colorblackfalse \DeclareOption{black}{\@colorblacktrue}
immediately after the line
\DeclareOption{grey}{\@colorgreytrue}


Under Style definition -> color I added
\if@colorblack \definecolor{addresscolor}{rgb}{0,0,0} \definecolor{sectionrectanglecolor}{rgb}{0,0,0} \definecolor{sectiontitlecolor}{rgb}{0,0,0} \definecolor{subsectioncolor}{rgb}{0,0,0} \definecolor{titlecolor}{rgb}{0,0,0}
\definecolor{quotecolor}{rgb}{0,0,0}\fi

immediately after the lines
\if@colorgrey \definecolor{addr…