###Check status of chains
asp.getChains()
asp.getCycles()

###List available models
asp.listModels()
models <- asp.listModels()

###List available variables
asp.listVariables(models[1])

###List available parameters
asp.listParameters(models[1])

###Check number of chains
asp.getChains()
asp.getCycles()

###Load parameters
paramNames <- asp.listParameters(models[1])
smp <- asp.getParameter(models[1],paramNames)
asp.getParameter(models[1],paramNames, 50:60)

###Test Loading of a vector.
asp.getParameterVector(asp.model,"Skill_1_CondMultParam")

###Test Subject Name query
asp.listSubjects(models[1])
asp.listSubjects()

###Test Variable Loader
asp.getVariable(models[1], iterations=50:60)



###When done, disconnect
##asp.dbDisconnect()