# NOT RUN {
<!-- %% @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)
## use double values as the time stamp
## Any values that can be ordered will work
example_time_series <- data.frame(
id = seq(0,1000,length.out=length(ts)),
val = arima.sim(list(order=c(2,0,1),
ar=c(0.7, -0.3), ma=0.2), n=1000000) + 3.2)
x <- as.db.data.frame(example_time_series, field.types =
list(id="double precision", val = "double precision"),
conn.id = cid, verbose = FALSE)
dim(x)
names(x)
## use formula
s <- madlib.arima(val ~ id, x, order = c(2,0,1))
s
## delete all result tables
clean.madlib.temp(conn.id = 1)
## s still exists but the 3 tables (model, residuals, etc.) are deleted
s
db.disconnect(cid, verbose = FALSE)
# }
Run the code above in your browser using DataLab