# NOT RUN {
## get the help for a method
## help("+,db.obj,db.obj-method")
<!-- %% @test .port Database port number -->
<!-- %% @test .dbname Database name -->
## set up the database connection
## Assume that .port is port number and .dbname is the database name
cid <- db.connect(port = .port, dbname = .dbname, verbose = FALSE)
## ----------------------------------------------------------------------
## create a table from the example data.frame "abalone"
delete("abalone", conn.id = cid)
x <- as.db.data.frame(abalone, "abalone", conn.id = cid, verbose = FALSE)
x$rings <- (x$rings + 2.3) * 3 # change the values
x$area <- x$length * x$height # add a new column
lk(x$area, 10) # view the actual values computed in database
fit <- madlib.lm(rings ~ area, data = x)
## ----------------------------------------------------------------------
db.disconnect(cid, verbose = FALSE)
# }
Run the code above in your browser using DataLab