Change input to folder where dtm is
Change input to folder where dtm is

HIIT/digivaalit-2015,HIIT/digivaalit-2015,HIIT/digivaalit-2015
source('topics.r')

args <- commandArgs(trailingOnly = TRUE)

print( args[1] )

load( paste( args[1] , 'dtm.rdata', sep='' ) )
k <- as.integer( args[2] )

model <- create_model( dtm , k )

path <- paste( args[1] , '/topic-', args[2], '.rdata' , sep = '' )
save( model , file = path )

source('topics.r')

args <- commandArgs(trailingOnly = TRUE)

load( args[1] )
k <- as.integer( args[2] )

model <- create_model( dtm , k )

path <- paste( args[1] , '-', args[2], '.rdata' , sep = '' )
save( model , file = path )
