[R] conversion of some lines of matlab code to R

[Christoph Lehmann]

Dear R-users

I got some matlab code (just a few lines) for the deconvolution of a
signal:

function q=Dconvolve(funct)
w=squeeze(size(funct)); % gets the length
t=0:3:(w(1,1)-1)*3;
h=Dehemo(t,1.25,3);
r=fft(h);
rinv = 1./r;
q = real(ifft( fft(funct(:)).*rinv(:)));
%plot(t/0.75,q/max(q),'r-',t/0.75,funct/max(funct),'g-')

function h=DeHemo(t,tau,N)
h=(t/tau).^(N-1).*exp(-t/tau)./(tau*factorial(N-1));

since I don't know matlab: is there any one who could tell me, how these
lines would look like in R, means, how I could do this deconvolution in
R?

Many thanks

Cheers

Christoph
-- 
Christoph Lehmann <christoph.lehmann at gmx.ch>