[R-br] Problema ao truncar PDF

[Cristiano Strieder]

Olá,

estou com problemas no seguinte código:

dricker =  function (x,b,...) {b^2*x*exp(-b*x)}
pricker = function (x, b,...){exp(-b*x)*(exp(b*x)-b*x-1)} # CDF
dricker.t = function (x, b,...){
  p.trunc = pricker(trunc,b)
	dricker(x,b)/(1 - p.trunc)}
dricker.t(10, b=0.1)

Error in -b * x : non-numeric argument to binary operator

Alguma sugestão?

Obrigado.

-- 
Cristiano Strieder
São José dos Campos - SP