added example R session for NPV calculation