/ ‘demo/emissivity.R’