R Scripts to describe OA systems