Use TransformedProcess para criar um processo personalizado 

Defina processo de Poisson compensado.

In[1]:=

X poisson\[ScriptCapitalP] = PoissonProcess[\[Lambda]]; \[ScriptCapitalP]1 = TransformedProcess[p[t] - Mean[poisson\[ScriptCapitalP][t]], p \[Distributed] poisson\[ScriptCapitalP], t];

Simule o processo com taxa unitária durante 30 segundos.

In[2]:=

X data1 = RandomFunction[\[ScriptCapitalP]1 /. \[Lambda] -> 1, {0, 30, 0.1}, 3];

In[3]:=

X ListLinePlot[data1]

Out[3]=

Compute a função de covariância para o processo.

In[4]:=

X CovarianceFunction[\[ScriptCapitalP]1, s, t]

Out[4]=

Defina um processo de Bessel em duas dimensões.

In[5]:=

X \[ScriptCapitalP]2 = TransformedProcess[Sqrt[ x[t]^2 + y[t]^2], {x \[Distributed] WienerProcess[], y \[Distributed] WienerProcess[]}, t];

Simule o processo durante 10 segundos.

In[6]:=

X data2 = RandomFunction[\[ScriptCapitalP]2, {0, 10, 0.01}, 3];

In[7]:=

X ListLinePlot[data2, PlotRange -> All]

Out[7]=

Compute as funções de média e de variância para o processo.

In[8]:=

X {Mean[\[ScriptCapitalP]2[t]], Variance[\[ScriptCapitalP]2[t]]}

Out[8]=