R: adding a short demo