figurescript as r