predict2

r_predict2.sql

CREATE OR REPLACE FUNCTION r_predict2(inp integer)
  RETURNS text AS
$BODY$
if (pg.state.firstpass)
  {
library(e1071)
data <- seq(1,10)
classes <- c('b','b','b','b','a','a','a','a','b','b')

mysvm = svm (data, classes, type='C', kernel='radial', gamma=0.1, cost=10)
assign("pg.state.firstpass", FALSE, env=.GlobalEnv)
}

result <- predict(mysvm, inp)

return(as.character(result[1:1]))
$BODY$
  LANGUAGE plr IMMUTABLE STRICT
  COST 100;