AsterR Kohonen предсказать ошибку

Question

Я строю сеть Кохонена в R для Teradata Aster, и когда я пытаюсь предсказать, используя модель сома, я получаю ошибку. Мой синтаксис:

#############PACKAGES ##################################
library(RODBC)
library(TeradataAsterR)  

#############DATABASE CONNECTION ##################################

#ta.connect("Aster_conn", uid = 'userxxxx', pwd = 'pwdxxxx',  database ='dbxxxx', dType = 'odbc' )


#############TABLE CONNECTION ##################################

prueba0<-ta.data.frame('v_silabas03',schemaName = 'retail')


#############SAMPLES ##################################

prueba2<-ta.sample(data=prueba0,sample.fraction = 0.0025,seed = 12357) #training sample

prueba3<-ta.sample(data=prueba0,sample.fraction = 0.0025,seed = 1257) #predict sample


#############BUILD MODEL FUNCTION##################################

kh.fn <- function(prueba2){
  require(kohonen)
  prueba2<- as.matrix(prueba2)
  set.seed(7)

  # build grid
  mod.grid = somgrid(xdim = 7, ydim=7, topo="hexagonal",toroidal=TRUE)

  # build model
  mod<-som(prueba2,grid=somgrid(7,7,"hexagonal",toroidal=TRUE),user.weights=prueba$n_gram,keep.data = FALSE)
  return(mod)
}

#run 
modp<- ta.apply(prueba2, kh.fn, 
                MARGIN= c(),
                FUN.memLimitMB= 64000
)

#############BUILD PREDICT FUCTION##################################33

map.fn<-function(prueba3,modp){
  require(kohonen)
  prueba3<- as.matrix(prueba3)
  score.k<-map(modp, prueba3,user.weights=prueba3$n_agrup,
               center=attr(prueba2,"scaled:center"),scale=attr(prueba2,"scaled:scale"))
  return(mod)
}


#run
score.kh<- ta.apply(prueba3, map.fn, modp,
                MARGIN= c(),
                FUN.memLimitMB= 64000
) 

Объект som успешно создан, и когда я запускаю 'class(modp)', результатом является список. Но когда я пытаюсь применить модель к другому образцу, я получаю следующую ошибку:

Error in taQuery(queryStr, stringsAsFactors = FALSE, stopOnError = TRUE) : 
  HY000 34 [AsterData][nCluster] (34) ERROR: SQL-MR function STREAM failed: Stream process exited with non-zero exit value (1). Last few lines of output were:
Loading required package: kohonen
Error in UseMethod("map") : 
  no applicable method for 'map' applied to an object of class "list"
Calls: eval ... strtoi -> serialize -> tempFUN15111827568909709 -> map
Execution halted

Любая помощь будет оценена