Moved data access function script to inst/
Tweaking