Update Laplaces_Demon.r