Update lichen_demo.R