predict1

r_predict1.sql

CREATE OR REPLACE FUNCTION r_predict1(inp integer)
  RETURNS text AS
$BODY$
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)
result <- predict(mysvm, inp)

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