Running examples in 'imagefx-Ex.R' failed
The error most likely occurred in:

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: blob.extract
> ### Title: Extract Blob Region from Image (Matrix)
> ### Aliases: blob.extract
> 
> ### ** Examples
> 
> ############
> ### EG 1 ###
> ############
> ## example with synthetic data
> 
> ## create an image that is a simple gaussian
> img <- build.gaus(100,100,sig.x=2,sig.y=10,x.mid=80,y.mid=60)
> 
> ## find the where the maximum value is
> img.max <- which(img==max(img),arr.ind=TRUE)
> 
> ## define a sigma for the low pass filter
> sig=5
> 
> ## define the low pass filter as another gaussian
> lp.filt <- build.gaus(nrow(img),ncol(img),sig.x=sig)
> 
> ## define a window size for the connected component algorithm
> win.size=0.05
> 
> ## perform the blob detection
> blob <- blob.extract(img=img, blob.point=img.max,win.size=win.size,gaus=lp.filt)
 ----------- FAILURE REPORT -------------- 
 --- failure: the condition has length > 1 ---
 --- srcref --- 
: 
 --- package (from environment) --- 
imagefx
 --- call from context --- 
fftshift(Re(x.filt))
 --- call from argument --- 
if (class(x) == "matrix") {
    rd2 <- floor(nrow(x)/2)
    cd2 <- floor(ncol(x)/2)
    q1 <- x[1:rd2, 1:cd2]
    q2 <- x[1:rd2, (cd2 + 1):ncol(x)]
    q3 <- x[(rd2 + 1):nrow(x), (cd2 + 1):ncol(x)]
    q4 <- x[(rd2 + 1):nrow(x), 1:cd2]
    centered.t <- rbind(q4, q1)
    centered.b <- rbind(q3, q2)
    centered <- cbind(centered.b, centered.t)
    return(Re(centered))
}
 --- R stacktrace ---
where 1: fftshift(Re(x.filt))
where 2: filt3d(img, gaus)
where 3: blob.extract(img = img, blob.point = img.max, win.size = win.size, 
    gaus = lp.filt)

 --- value of length: 2 type: logical ---
[1]  TRUE FALSE
 --- function from context --- 
function (x) 
{
    if (class(x) == "matrix") {
        rd2 <- floor(nrow(x)/2)
        cd2 <- floor(ncol(x)/2)
        q1 <- x[1:rd2, 1:cd2]
        q2 <- x[1:rd2, (cd2 + 1):ncol(x)]
        q3 <- x[(rd2 + 1):nrow(x), (cd2 + 1):ncol(x)]
        q4 <- x[(rd2 + 1):nrow(x), 1:cd2]
        centered.t <- rbind(q4, q1)
        centered.b <- rbind(q3, q2)
        centered <- cbind(centered.b, centered.t)
        return(Re(centered))
    }
}
<bytecode: 0x23d2d90>
<environment: namespace:imagefx>
 --- function search by body ---
Function fftshift in namespace imagefx has this body.
 ----------- END OF FAILURE REPORT -------------- 
Error in if (class(x) == "matrix") { : the condition has length > 1
Calls: blob.extract -> filt3d -> fftshift
Execution halted