tar <- tarObjectTable("Data/Data.tar")
db <- newRFunctionTable(tar)
attach(db)