Added template for output from R