From mboxrd@z Thu Jan  1 00:00:00 1970
From: Graham Smith <myotisone@gmail.com>
Subject: [babel] multiple result outputs from function
Date: Tue, 16 Mar 2010 18:26:44 +0000
Message-ID: <2c75873c1003161126r36c5e2c0kfa3f3540bf9ec7cf@mail.gmail.com>
Mime-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Return-path: <emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org>
Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43)
	id 1NrbTj-0004tA-0C
	for emacs-orgmode@gnu.org; Tue, 16 Mar 2010 14:26:55 -0400
Received: from [140.186.70.92] (port=47002 helo=eggs.gnu.org)
	by lists.gnu.org with esmtp (Exim 4.43) id 1NrbTg-0004qr-0I
	for emacs-orgmode@gnu.org; Tue, 16 Mar 2010 14:26:53 -0400
Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.69)
	(envelope-from <myotisone@gmail.com>) id 1NrbTb-0005PD-0j
	for emacs-orgmode@gnu.org; Tue, 16 Mar 2010 14:26:48 -0400
Received: from mail-wy0-f169.google.com ([74.125.82.169]:61398)
	by eggs.gnu.org with esmtp (Exim 4.69)
	(envelope-from <myotisone@gmail.com>) id 1NrbTa-0005OV-5x
	for emacs-orgmode@gnu.org; Tue, 16 Mar 2010 14:26:46 -0400
Received: by wyf22 with SMTP id 22so123964wyf.0
	for <emacs-orgmode@gnu.org>; Tue, 16 Mar 2010 11:26:44 -0700 (PDT)
List-Id: "General discussions about Org-mode." <emacs-orgmode.gnu.org>
List-Unsubscribe: <http://lists.gnu.org/mailman/listinfo/emacs-orgmode>,
	<mailto:emacs-orgmode-request@gnu.org?subject=unsubscribe>
List-Archive: <http://lists.gnu.org/pipermail/emacs-orgmode>
List-Post: <mailto:emacs-orgmode@gnu.org>
List-Help: <mailto:emacs-orgmode-request@gnu.org?subject=help>
List-Subscribe: <http://lists.gnu.org/mailman/listinfo/emacs-orgmode>,
	<mailto:emacs-orgmode-request@gnu.org?subject=subscribe>
Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org
Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org
To: emacs-orgmode@gnu.org

Below is a function that I am trying to run in orgmode/babel.

It seems to run OK, but instead of printing out three values, its only
printing the final result.

Once again, i would appreciate some help with what I am missing.

Thanks,

Graham


#+srcname: CI_function
#+begin_src R :session daf
summary.ci<-function(x){
xbar<-mean(x)
sigma<-sd(x)
n<-length(x)
sem<-sigma/sqrt(n)
lower.ci<-xbar+sem*qnorm(0.025)
upper.ci<-xbar+sem*qnorm(0.975)
print (xbar)
print  (lower.ci)
print  (upper.ci)
}
#+end_src

#+srcname: SumFlowering2005
#+begin_src R :session daf
summary.ci(daf$Flower[daf$YEAR=="2005"])
#+end_src

#+results: SumFlowering2005
: 1.97860201016947