Running examples in ‘rNMF-Ex.R’ failed
The error most likely occurred in:

> ### Name: rnmf
> ### Title: Robust Penalized Nonnegative Matrix Factorization (rNMF).
> ### Aliases: rnmf
> 
> ### ** Examples
> 
> ## Load a clean single simulated tumor image.
> data("tumor")
> image(tumor) # look at the tumor image
> dim(tumor) # it is a '70 by 70' matrix
[1] 70 70
> ## Add 5% corruptions.
> tumor.corrupted <- tumor
> set.seed(1)
> tumor.corrupted[sample(1:4900, round(0.05 * 4900), replace = FALSE)] <- 1
> ## Run rnmf with different settings
> # No trimming
> res.rnmf1 <- rnmf(X = tumor.corrupted, gamma = FALSE, my.seed = 1)

  |                                                                            
  |                                                                      |   0%
  |                                                                            
  |====                                                                  |   5%
  |                                                                            
  |=======                                                               |  10%
  |                                                                            
  |==========                                                            |  15%
  |                                                                            
  |==============                                                        |  20%
  |                                                                            
  |==================                                                    |  25%
  |                                                                            
  |=====================                                                 |  30%
  |                                                                            
  |========================                                              |  35%
  |                                                                            
  |============================                                          |  40%
  |                                                                            
  |================================                                      |  45%
  |                                                                            
  |===================================                                   |  50%
  |                                                                            
  |======================================                                |  55%
  |                                                                            
  |==========================================                            |  60%
  |                                                                            
  |==============================================                        |  65%
  |                                                                            
  |=================================================                     |  70%
Done. Time used: 
   user  system elapsed 
  0.187   0.015   0.318 
No trimming.
Input matrix dimension: 70 by 70
Left matrix: 70 by 5. Right matrix: 5 by 70
alpha = 0. beta = 0
Number of max iterations = 20
Number of iterations = 14
> # 6 percent trimming, low dimension k = 5 (default)
> res.rnmf2 <- rnmf(X = tumor.corrupted, tol = 0.001, gamma = 0.06, my.seed = 1)

  |                                                                            
  |                                                                      |   0%
  |                                                                            
  |====                                                                  |   5%
  |                                                                            
  |=======                                                               |  10%
  |                                                                            
  |==========                                                            |  15%
  |                                                                            
  |==============                                                        |  20%
  |                                                                            
  |==================                                                    |  25%
Done. Time used:  
   user  system elapsed 
  0.246   0.095   0.434 

 Trimming mode = "cell". Proportion trimmed: 0.06
Input matrix dimension: 70 by 70
Left matrix: 70 by 5. Right matrix: 5 by 70
alpha = 0. beta = 0
Number of max iterations = 20
Number of iterations = 5
> # add sparsity constraint of H (beta = 0.1) with k = 10, and the "smooth" variation.
> res.rnmf3 <- rnmf(X = tumor.corrupted, k = 10, beta = 0.1,
+                   tol = 0.001, gamma = 0.06, my.seed = 1,
+                   variation = "smooth", maxit = 30)

  |                                                                            
  |                                                                      |   0%
  |                                                                            
  |==                                                                    |   3%Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Warning in mean.default(image.f[neibs, "value"]) :
  argument is not numeric or logical: returning NA
Error in nnls(M, x) : NA/NaN/Inf in foreign function call (arg 5)
Calls: rnmf -> Nnls -> apply -> FUN -> nnls
Execution halted