, , , , , . debugonce(computeFeatures), ft = computeFeatures(x, y, xname="nucleus"). ( Q) , .
, :
x.y.f, x - , y f .
computeFeatures (a, aB 0). , , , , a. , 0 , .
, B_i. , , , expandRef ( ):
blob = gblob(x0 = 15, n = 49, alpha = 0.8, beta = 1.2)
bref = lapply(ref, function(r) filter2(r, blob)/2)
names(bref) = paste("B", names(ref), sep = "")
, , , . x ( display(x), ):

(y):

:

, y:

, : 0 no reference, a y , aB y.