===================================================================
RCS file: /home/cvs/OpenXM/src/asir-port/cgi/cgi-asir-r-fd2.sh,v
retrieving revision 1.1
retrieving revision 1.3
diff -u -p -r1.1 -r1.3
--- OpenXM/src/asir-port/cgi/cgi-asir-r-fd2.sh	2014/08/31 07:53:57	1.1
+++ OpenXM/src/asir-port/cgi/cgi-asir-r-fd2.sh	2014/12/12 08:29:53	1.3
@@ -1,17 +1,30 @@
 #!/bin/bash
-# $OpenXM$
-## Replace $OpenXM_HOME by an absolute path of your cite.
-export OpenXM_HOME=/private/taka/OpenXM
+# $OpenXM: OpenXM/src/asir-port/cgi/cgi-asir-r-fd2.sh,v 1.2 2014/09/01 02:41:48 takayama Exp $
+## Replace $OpenXM_HOME by an absolute path of your cite and uncomment
+#export OpenXM_HOME=/private/taka/OpenXM
 export HOME=/tmp
 ## Note that OpenXM_tmp is set in the dot.bashrc below as HOME/.OpenXM_tmp
-source $OpenXM_HOME/rc/dot.bashrc
+source "$OpenXM_HOME/rc/dot.bashrc"
 #source /home/taka/OpenXM/rc/dot.bashrc
 export TMP=/tmp
-export CGI_ASIR_ALLOW="[(version) (asir_contrib_copyright) (r_ahvec)]"
+export CGI_ASIR_ALLOW="[(version) (asir_contrib_copyright) (r_ahvec) (a_expect) (r_expect) ]"
 export CGI_ASIR_TLIMIT="60"
-export OX_ASIR_LOAD_FILE=$OpenXM_HOME/src/asir-port/cgi/r-fd.rr
-tee /tmp/t.txt | oxdecode_post >${WFILE}
-webasir2 --settimer ${CGI_ASIR_TLIMIT} --debug 0 --stdin <${WFILE}
+export OX_ASIR_LOAD_FILE="$OpenXM_HOME/src/asir-port/cgi/r-fd.rr"
+export CGI_ASIR_MSG="<pre>
+ Example. r_ahvec(-1,[-2,-3],10,[[1,1/2,1/3],[1,1,1]])
+ r_ahvec(A,B,C,P),  P is a 2 by m matrix.
+ Contingency table:
+ -A,     0,    0,   0
+ C-1,-B[0],-B[1],-B[2]
+ It returns (Z, d21 Z, d22 Z, ..., d2m Z).
+ a_expect(A,B,C,P) or r_expect(A,B,C,P) returns
+  [E[U_21],E[U_22], ..., E[U_2m]]
+ BUG: decimal to rational transformation function might not work properly.
+          Then, double-check the R outputs.
+</pre><br>"
+WFILE=$TMP/tmp2-post-$$.txt
+tee /tmp/t2.txt | oxdecode_post >${WFILE}
+"$OpenXM_HOME/src/asir-port/cgi/webasir2" --settimer ${CGI_ASIR_TLIMIT} --debug 0 --stdin <${WFILE}
 rm -f ${WFILE}
 exit 0