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 ) ### Convoluti

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

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 af