5CGcUtyd

1library(RSQLite)
2out1 <- serialize(model1,NULL)
3out2 <- serialize(model2,NULL)
4out3 <- serialize(model3,NULL)
5
6model4 <- serialize(rnorm(10),NULL)
7model5 <- serialize(rnorm(20),NULL)
8model6 <- serialize(rnorm(30),NULL)
9
10db <- dbConnect(SQLite(), dbname="Test.sqlite")
11dbGetQuery(conn = db, 
12            "CREATE TABLE IF NOT EXISTS models 
13            (_id INTEGER PRIMARY KEY AUTOINCREMENT, 
14            model BLOB)")
15
16
17test4 <- data.frame(g=I(model4))
18test5 <- data.frame(g=I(model5))
19test6 <- data.frame(g=I(model6))
20dbGetPreparedQuery(db, "INSERT INTO models (model) values (:g)", bind.data=test4)
21dbGetPreparedQuery(db, "INSERT INTO models (model) values (:g)", bind.data=test5)
22dbGetPreparedQuery(db, "INSERT INTO models (model) values (:g)", bind.data=test6)
23
24dbListTables(db)
25
26p1 = dbGetQuery( db,'select * from models' )