Put code from Grün and Hornik (2011) in topicdemo.r