[rkward-cvs] SF.net SVN: rkward: [1888] trunk/rkward/rkward/plugins/distributions

tfry at users.sourceforge.net tfry at users.sourceforge.net
Wed May 9 14:45:28 UTC 2007


Revision: 1888
          http://svn.sourceforge.net/rkward/?rev=1888&view=rev
Author:   tfry
Date:     2007-05-09 07:45:27 -0700 (Wed, 09 May 2007)

Log Message:
-----------
Convert the probabilities and quantiles plugins to using snippets.
Add missing log option to F and t distribution

Modified Paths:
--------------
    trunk/rkward/rkward/plugins/distributions/cauchy_probabilities.xml
    trunk/rkward/rkward/plugins/distributions/cauchy_quantiles.xml
    trunk/rkward/rkward/plugins/distributions/chi_squared_probabilities.xml
    trunk/rkward/rkward/plugins/distributions/chi_squared_quantiles.xml
    trunk/rkward/rkward/plugins/distributions/exponential_probabilities.xml
    trunk/rkward/rkward/plugins/distributions/exponential_quantiles.xml
    trunk/rkward/rkward/plugins/distributions/f_probabilities.php
    trunk/rkward/rkward/plugins/distributions/f_probabilities.xml
    trunk/rkward/rkward/plugins/distributions/f_quantiles.php
    trunk/rkward/rkward/plugins/distributions/f_quantiles.xml
    trunk/rkward/rkward/plugins/distributions/gamma_probabilities.xml
    trunk/rkward/rkward/plugins/distributions/gamma_quantiles.xml
    trunk/rkward/rkward/plugins/distributions/geom_probabilities.xml
    trunk/rkward/rkward/plugins/distributions/geom_quantiles.xml
    trunk/rkward/rkward/plugins/distributions/gumbel_probabilities.xml
    trunk/rkward/rkward/plugins/distributions/gumbel_quantiles.xml
    trunk/rkward/rkward/plugins/distributions/hypergeometric_probabilities.xml
    trunk/rkward/rkward/plugins/distributions/hypergeometric_quantiles.xml
    trunk/rkward/rkward/plugins/distributions/log_normal_probabilities.xml
    trunk/rkward/rkward/plugins/distributions/log_normal_quantiles.xml
    trunk/rkward/rkward/plugins/distributions/logistic_probabilities.xml
    trunk/rkward/rkward/plugins/distributions/logistic_quantiles.xml
    trunk/rkward/rkward/plugins/distributions/negative_binomial_probabilities.xml
    trunk/rkward/rkward/plugins/distributions/negative_binomial_quantiles.xml
    trunk/rkward/rkward/plugins/distributions/normal_probabilities.xml
    trunk/rkward/rkward/plugins/distributions/normal_quantiles.xml
    trunk/rkward/rkward/plugins/distributions/poisson_probabilities.xml
    trunk/rkward/rkward/plugins/distributions/poisson_quantiles.xml
    trunk/rkward/rkward/plugins/distributions/t_probabilities.php
    trunk/rkward/rkward/plugins/distributions/t_probabilities.xml
    trunk/rkward/rkward/plugins/distributions/t_quantiles.php
    trunk/rkward/rkward/plugins/distributions/t_quantiles.xml
    trunk/rkward/rkward/plugins/distributions/tukey_probabilities.xml
    trunk/rkward/rkward/plugins/distributions/tukey_quantiles.xml
    trunk/rkward/rkward/plugins/distributions/uniform_probabilities.xml
    trunk/rkward/rkward/plugins/distributions/uniform_quantiles.xml
    trunk/rkward/rkward/plugins/distributions/weibull_probabilities.xml
    trunk/rkward/rkward/plugins/distributions/weibull_quantiles.xml
    trunk/rkward/rkward/plugins/distributions/wilcoxon_probabilities.xml
    trunk/rkward/rkward/plugins/distributions/wilcoxon_quantiles.xml

Modified: trunk/rkward/rkward/plugins/distributions/cauchy_probabilities.xml
===================================================================
--- trunk/rkward/rkward/plugins/distributions/cauchy_probabilities.xml	2007-05-09 12:12:08 UTC (rev 1887)
+++ trunk/rkward/rkward/plugins/distributions/cauchy_probabilities.xml	2007-05-09 14:45:27 UTC (rev 1888)
@@ -1,34 +1,14 @@
 <!DOCTYPE rkplugin>
-<!--This is the "Cauchy  probabilities" plugin-->
-
 <document>
-<code file="cauchy_probabilities.php" />
-<dialog label="Cauchy probabilities" >
-    <tabbook>
-     <tab label="Cauchy probabilities" >
-          <row>
-            <column>
-                <input required="true" initial="0.95" id="q" label="Vector of quantiles"/>
-                <spinbox default_precision="2" type="real" initial="0" id="location" label="Location"/>
-                <spinbox default_precision="2" type="real" min="0" initial="1" id="scale" label="Scale"/>
-            </column>
-            <column>
-                <row>
-                    <radio id="tail" label="Choose type of probability" >
-                        <option value="lower.tail=TRUE" label="lower tail" />
-                        <option value="lower.tail=FALSE" label="upper tail" />
-                    </radio>
-                </row>
-                <row>
-                    <radio id="logp" label="probabilities p are given as:" >
-                      <option value="log.p = FALSE" label="not log(p)" />
-                      <option value="log.p = TRUE" label="log(p)" />
-                  </radio>
-                </row>
-              <stretch/>
-            </column>
-          </row>
-      </tab>
-    </tabbook>
-  </dialog>
+	<code file="cauchy_probabilities.php" />
+	<snippets>
+		<snippet id="dist_options">
+			<spinbox default_precision="2" type="real" initial="0" id="location" label="Location"/>
+			<spinbox default_precision="2" type="real" min="0" initial="1" id="scale" label="Scale"/>
+		</snippet>
+		<include file="dist_snippets.xml"/>
+	</snippets>
+	<dialog label="Cauchy probabilities" >
+		<insert snippet="probabilities_layout"/>
+	</dialog>
 </document>

Modified: trunk/rkward/rkward/plugins/distributions/cauchy_quantiles.xml
===================================================================
--- trunk/rkward/rkward/plugins/distributions/cauchy_quantiles.xml	2007-05-09 12:12:08 UTC (rev 1887)
+++ trunk/rkward/rkward/plugins/distributions/cauchy_quantiles.xml	2007-05-09 14:45:27 UTC (rev 1888)
@@ -1,34 +1,14 @@
 <!DOCTYPE rkplugin>
-<!--This is the "Cauchy probabilities" plugin-->
-
 <document>
-<code file="cauchy_quantiles.php" />
-<dialog label="Cauchy quantiles" >
-    <tabbook>
-      <tab label="Cauchy quantiles" >
-          <row>
-            <column>
-                <input required="true" initial="0.95" id="p" label="Vector of probabilities"/>
-                <spinbox default_precision="2" type="real" initial="0" id="location" label="Location"/>
-                <spinbox default_precision="2" type="real" min="0" initial="1" id="scale" label="Scale"/>
-            </column>
-            <column>
-                <row>
-                    <radio id="tail" label="Choose type of probability" >
-                        <option value="lower.tail=TRUE" label="lower tail" />
-                        <option value="lower.tail=FALSE" label="upper tail" />
-                    </radio>
-                </row>
-                <row>
-                    <radio id="logp" label="probabilities p are given as:" >
-                      <option value="log.p = FALSE" label="not log(p)" />
-                      <option value="log.p = TRUE" label="log(p)" />
-                  </radio>
-                </row>
-              <stretch/>
-            </column>
-          </row>
-      </tab>
-    </tabbook>
-  </dialog>
+	<code file="cauchy_quantiles.php" />
+	<snippets>
+		<snippet id="dist_options">
+			<spinbox default_precision="2" type="real" initial="0" id="location" label="Location"/>
+			<spinbox default_precision="2" type="real" min="0" initial="1" id="scale" label="Scale"/>
+		</snippet>
+		<include file="dist_snippets.xml"/>
+	</snippets>
+	<dialog label="Cauchy quantiles" >
+		<insert snippet="quantiles_layout"/>
+	</dialog>
 </document>

Modified: trunk/rkward/rkward/plugins/distributions/chi_squared_probabilities.xml
===================================================================
--- trunk/rkward/rkward/plugins/distributions/chi_squared_probabilities.xml	2007-05-09 12:12:08 UTC (rev 1887)
+++ trunk/rkward/rkward/plugins/distributions/chi_squared_probabilities.xml	2007-05-09 14:45:27 UTC (rev 1888)
@@ -1,33 +1,14 @@
 <!DOCTYPE rkplugin>
-<!--This is the "Chi-squared probability" plugin-->
 <document>
 	<code file="chi_squared_probabilities.php" />
+	<snippets>
+		<snippet id="dist_options">
+			<spinbox default_precision="2" type="real" initial="1" id="df" min="0" label="Degrees of Freedom"/>
+			<spinbox default_precision="2" type="real" initial="0" id="ncp" min="0" label="non-centrality parameter"/>
+		</snippet>
+		<include file="dist_snippets.xml"/>
+	</snippets>
 	<dialog label="Chi-squared probability" >
-	<tabbook>
-		<tab label="Chi-squared probability" >
-			<row>
-				<column>
-					<input required="true" initial="0.95" id="q" label="Vector of quantiles"/>
-					<spinbox default_precision="2" type="real" initial="1" id="df" min="0" label="Degrees of Freedom"/>
-					<spinbox default_precision="2" type="real" initial="0" id="ncp" min="0" label="non-centrality parameter"/>
-				</column>
-				<column>
-					<row>
-						<radio id="tail" label="Choose type of probability" >
-							<option value="lower.tail=TRUE" label="lower tail" />
-							<option value="lower.tail=FALSE" label="upper tail" />
-						</radio>
-					</row>
-					<row>
-						<radio id="logp" label="probabilities p are given as:" >
-							<option value="log.p = FALSE" label="not log(p)" />
-							<option value="log.p = TRUE" label="log(p)" />
-						</radio>
-					</row>
-					<stretch/>
-				</column>
-			</row>
-		</tab>
-	</tabbook>
+		<insert snippet="probabilities_layout"/>
 	</dialog>
 </document>

Modified: trunk/rkward/rkward/plugins/distributions/chi_squared_quantiles.xml
===================================================================
--- trunk/rkward/rkward/plugins/distributions/chi_squared_quantiles.xml	2007-05-09 12:12:08 UTC (rev 1887)
+++ trunk/rkward/rkward/plugins/distributions/chi_squared_quantiles.xml	2007-05-09 14:45:27 UTC (rev 1888)
@@ -1,33 +1,14 @@
 <!DOCTYPE rkplugin>
-<!--This is the "Chi-squared quantile" plugin-->
 <document>
 	<code file="chi_squared_quantiles.php" />
+	<snippets>
+		<snippet id="dist_options">
+			<spinbox default_precision="2" type="real" initial="1" id="df" min="0" label="Degrees of Freedom"/>
+			<spinbox default_precision="2" type="real" initial="0" id="ncp" min="0" label="non-centrality parameter"/>
+		</snippet>
+		<include file="dist_snippets.xml"/>
+	</snippets>
 	<dialog label="Chi-squared quantile" >
-		<tabbook>
-			<tab label="Chi-squared quantile" >
-				<row>
-					<column>
-						<input required="true" initial="0.95" id="p" min="0" max="1" label="Vector of probabilities"/>
-						<spinbox default_precision="2" type="real" initial="1" id="df" min="0" label="Degrees of Freedom"/>
-						<spinbox default_precision="2" type="real" initial="0" id="ncp" min="0" label="non-centrality parameter"/>
-					</column>
-					<column>
-						<row>
-							<radio id="tail" label="Choose type of probability" >
-								<option value="lower.tail=TRUE" label="lower tail" />
-								<option value="lower.tail=FALSE" label="upper tail" />
-							</radio>
-						</row>
-						<row>
-							<radio id="logp" label="probabilities p are given as:" >
-								<option value="log.p = FALSE" label="not log(p)" />
-								<option value="log.p = TRUE" label="log(p)" />
-							</radio>
-						</row>
-						<stretch/>
-					</column>
-				</row>
-			</tab>
-		</tabbook>
+		<insert snippet="quantiles_layout"/>
 	</dialog>
 </document>

Modified: trunk/rkward/rkward/plugins/distributions/exponential_probabilities.xml
===================================================================
--- trunk/rkward/rkward/plugins/distributions/exponential_probabilities.xml	2007-05-09 12:12:08 UTC (rev 1887)
+++ trunk/rkward/rkward/plugins/distributions/exponential_probabilities.xml	2007-05-09 14:45:27 UTC (rev 1888)
@@ -1,33 +1,13 @@
 <!DOCTYPE rkplugin>
-<!--This is the "Exponential probabilities" plugin-->
-
 <document>
-<code file="exponential_probabilities.php" />
-<dialog label="Exponential probabilities" >
-    <tabbook>
-     <tab label="Exponential probabilities" >
-          <row>
-            <column>
-                <input required="true" initial="0.95" id="q" label="Vector of quantiles"/>
-                <spinbox default_precision="2" type="real" min="0" initial="1" id="rate" label="vector of rates"/>
-            </column>
-            <column>
-                <row>
-                    <radio id="tail" label="Choose type of probability" >
-                        <option value="lower.tail=TRUE" label="lower tail" />
-                        <option value="lower.tail=FALSE" label="upper tail" />
-                    </radio>
-                </row>
-                <row>
-                    <radio id="logp" label="probabilities p are given as:" >
-                      <option value="log.p = FALSE" label="not log(p)" />
-                      <option value="log.p = TRUE" label="log(p)" />
-                  </radio>
-                </row>
-              <stretch/>
-            </column>
-          </row>
-      </tab>
-    </tabbook>
-  </dialog>
+	<code file="exponential_probabilities.php" />
+	<snippets>
+		<snippet id="dist_options">
+			<spinbox default_precision="2" type="real" min="0" initial="1" id="rate" label="vector of rates"/>
+		</snippet>
+		<include file="dist_snippets.xml"/>
+	</snippets>
+	<dialog label="Exponential probabilities" >
+		<insert snippet="probabilities_layout"/>
+	</dialog>
 </document>

Modified: trunk/rkward/rkward/plugins/distributions/exponential_quantiles.xml
===================================================================
--- trunk/rkward/rkward/plugins/distributions/exponential_quantiles.xml	2007-05-09 12:12:08 UTC (rev 1887)
+++ trunk/rkward/rkward/plugins/distributions/exponential_quantiles.xml	2007-05-09 14:45:27 UTC (rev 1888)
@@ -1,33 +1,13 @@
 <!DOCTYPE rkplugin>
-<!--This is the "Exponential quantiles" plugin-->
-
 <document>
-<code file="exponential_quantiles.php" />
-<dialog label="Exponential quantiles" >
-    <tabbook>
-     <tab label="Exponential quantiles" >
-          <row>
-            <column>
-              <input required="true" initial="0.95" id="p" label="Vector of probabilities"/>
-              <spinbox default_precision="2" type="real" min="0" initial="1" id="rate" label="vector of rates"/>
-            </column>
-            <column>
-                <row>
-                    <radio id="tail" label="Choose type of probability" >
-                        <option value="lower.tail=TRUE" label="lower tail" />
-                        <option value="lower.tail=FALSE" label="upper tail" />
-                    </radio>
-                </row>
-                <row>
-                    <radio id="logp" label="probabilities p are given as:" >
-                      <option value="log.p = FALSE" label="not log(p)" />
-                      <option value="log.p = TRUE" label="log(p)" />
-                  </radio>
-                </row>
-              <stretch/>
-            </column>
-          </row>
-      </tab>
-    </tabbook>
-  </dialog>
+	<code file="exponential_quantiles.php" />
+	<snippets>
+		<snippet id="dist_options">
+			<spinbox default_precision="2" type="real" min="0" initial="1" id="rate" label="vector of rates"/>
+		</snippet>
+		<include file="dist_snippets.xml"/>
+	</snippets>
+	<dialog label="Exponential quantiles" >
+		<insert snippet="quantiles_layout"/>
+	</dialog>
 </document>

Modified: trunk/rkward/rkward/plugins/distributions/f_probabilities.php
===================================================================
--- trunk/rkward/rkward/plugins/distributions/f_probabilities.php	2007-05-09 12:12:08 UTC (rev 1887)
+++ trunk/rkward/rkward/plugins/distributions/f_probabilities.php	2007-05-09 14:45:27 UTC (rev 1888)
@@ -6,14 +6,14 @@
 	global $q;
 	$q = "c (" . preg_replace ("/[, ]+/", ", ", getRK_val ("q")) . ")";
 ?>
-result <- (pf (q = <? echo ($q); ?>, df1 = <? getRK ("df1"); ?>, df2 = <? getRK ("df2"); ?>,  ncp = <? getRK ("ncp"); ?>, <? getRK ("tail"); ?>))
+result <- (pf (q = <? echo ($q); ?>, df1 = <? getRK ("df1"); ?>, df2 = <? getRK ("df2"); ?>,  ncp = <? getRK ("ncp"); ?>, <? getRK ("tail"); ?>, <? getRK("logp"); ?>))
 <?
 }
 
 function printout () {
 	global $q;
 ?>
-rk.header ("F probability", list ("Vector of quantiles", "<? echo ($q); ?>", "Numerator degrees of freedom", "<? getRK ("df1"); ?>", "Denominator degrees of freedom", "<? getRK ("df2"); ?>", "non-centrality parameter", "<? getRK ("ncp"); ?>", "Tail", "<? getRK ("tail"); ?>"));
+rk.header ("F probability", list ("Vector of quantiles", "<? echo ($q); ?>", "Numerator degrees of freedom", "<? getRK ("df1"); ?>", "Denominator degrees of freedom", "<? getRK ("df2"); ?>", "non-centrality parameter", "<? getRK ("ncp"); ?>", "Tail", "<? getRK ("tail"); ?>", "Probabilities p are given as", "<? getRK ("logp"); ?>"));
 rk.results (result, titles="F probabilities")
 <?
 }

Modified: trunk/rkward/rkward/plugins/distributions/f_probabilities.xml
===================================================================
--- trunk/rkward/rkward/plugins/distributions/f_probabilities.xml	2007-05-09 12:12:08 UTC (rev 1887)
+++ trunk/rkward/rkward/plugins/distributions/f_probabilities.xml	2007-05-09 14:45:27 UTC (rev 1888)
@@ -1,26 +1,15 @@
 <!DOCTYPE rkplugin>
-<!--This is the "F probability" plugin-->
 <document>
-  <code file="f_probabilities.php" />
-  <dialog label="F probability" >
-    <tabbook>
-      <tab label="F probability" >
-          <row>
-            <column>
-              <input required="true" initial="0.95" id="q" label="Vector of quantiles"/>
-              <spinbox default_precision="2" type="real" initial="1" id="df1" min="0" label="Numerator degree of Freedom"/>
-              <spinbox default_precision="2" type="real" initial="1" id="df2" min="0" label="Denominator degree of Freedom"/>
-              <spinbox default_precision="2" type="real" initial="0" id="ncp" min="0" label="non-centrality parameter"/>
-            </column>
-            <column>
-              <radio id="tail" label="Choose type of probability" >
-                <option value="lower.tail=TRUE" label="lower tail" />
-                <option value="lower.tail=FALSE" label="upper tail" />
-              </radio>
-              <stretch/>
-            </column>
-          </row>
-      </tab>
-    </tabbook>
-  </dialog>
+	<code file="f_probabilities.php" />
+	<snippets>
+		<snippet id="dist_options">
+			<spinbox default_precision="2" type="real" initial="1" id="df1" min="0" label="Numerator degree of Freedom"/>
+			<spinbox default_precision="2" type="real" initial="1" id="df2" min="0" label="Denominator degree of Freedom"/>
+			<spinbox default_precision="2" type="real" initial="0" id="ncp" min="0" label="non-centrality parameter"/>
+		</snippet>
+		<include file="dist_snippets.xml"/>
+	</snippets>
+	<dialog label="F probability" >
+		<insert snippet="probabilities_layout"/>
+	</dialog>
 </document>

Modified: trunk/rkward/rkward/plugins/distributions/f_quantiles.php
===================================================================
--- trunk/rkward/rkward/plugins/distributions/f_quantiles.php	2007-05-09 12:12:08 UTC (rev 1887)
+++ trunk/rkward/rkward/plugins/distributions/f_quantiles.php	2007-05-09 14:45:27 UTC (rev 1888)
@@ -6,14 +6,14 @@
 	global $p;
 	$p = "c (" . preg_replace ("/[, ]+/", ", ", getRK_val ("p")) . ")";
 ?>
-result <- (qf (p = <? echo ($p); ?>, df1 = <? getRK ("df1"); ?>, df2 = <? getRK ("df2"); ?>, ncp = <? getRK ("ncp"); ?>, <? getRK ("tail"); ?>))
+result <- (qf (p = <? echo ($p); ?>, df1 = <? getRK ("df1"); ?>, df2 = <? getRK ("df2"); ?>, ncp = <? getRK ("ncp"); ?>, <? getRK ("tail"); ?>, <? getRK("logp"); ?>))
 <?
 }
 
 function printout () {
 	global $p;
 ?>
-rk.header ("F quantile", list ("Vector of probabilities", "<? echo ($p); ?>", "Numerator degrees of freedom", "<? getRK ("df1"); ?>", "Denominator degrees of freedom", "<? getRK ("df2"); ?>", "non-centrality parameter", "<? getRK ("ncp"); ?>", "Tail", "<? getRK ("tail"); ?>"));
+rk.header ("F quantile", list ("Vector of probabilities", "<? echo ($p); ?>", "Numerator degrees of freedom", "<? getRK ("df1"); ?>", "Denominator degrees of freedom", "<? getRK ("df2"); ?>", "non-centrality parameter", "<? getRK ("ncp"); ?>", "Tail", "<? getRK ("tail"); ?>", "Probabilities p are given as", "<? getRK ("logp"); ?>"));
 rk.results (result, titles="F quantiles")
 <?
 }

Modified: trunk/rkward/rkward/plugins/distributions/f_quantiles.xml
===================================================================
--- trunk/rkward/rkward/plugins/distributions/f_quantiles.xml	2007-05-09 12:12:08 UTC (rev 1887)
+++ trunk/rkward/rkward/plugins/distributions/f_quantiles.xml	2007-05-09 14:45:27 UTC (rev 1888)
@@ -1,26 +1,15 @@
 <!DOCTYPE rkplugin>
-<!--This is the "F quantile" plugin-->
 <document>
-  <code file="f_quantiles.php" />
-  <dialog label="F quantile" >
-    <tabbook>
-      <tab label="F quantile" >
-          <row>
-            <column>
-              <input required="true" initial="0.95" id="p" min="0" max="1" label="Vector of probabilities"/>
-              <spinbox default_precision="2" type="real" initial="1" id="df1" min="0" label="Numerator degree of Freedom"/>
-              <spinbox default_precision="2" type="real" initial="1" id="df2" min="0" label="Denominator degree of Freedom"/>
-	      <spinbox default_precision="2" type="real" initial="0" id="ncp" min="0" label="non-centrality parameter"/>	
-            </column>
-            <column>
-              <radio id="tail" label="Choose type of probability" >
-                <option value="lower.tail=TRUE" label="lower tail" />
-                <option value="lower.tail=FALSE" label="upper tail" />
-              </radio>
-              <stretch/>
-            </column>
-          </row>
-      </tab>
-    </tabbook>
-  </dialog>
+	<code file="f_quantiles.php" />
+	<snippets>
+		<snippet id="dist_options">
+			<spinbox default_precision="2" type="real" initial="1" id="df1" min="0" label="Numerator degree of Freedom"/>
+			<spinbox default_precision="2" type="real" initial="1" id="df2" min="0" label="Denominator degree of Freedom"/>
+			<spinbox default_precision="2" type="real" initial="0" id="ncp" min="0" label="non-centrality parameter"/>	
+		</snippet>
+		<include file="dist_snippets.xml"/>
+	</snippets>
+	<dialog label="F quantile" >
+		<insert snippet="quantiles_layout"/>
+	</dialog>
 </document>

Modified: trunk/rkward/rkward/plugins/distributions/gamma_probabilities.xml
===================================================================
--- trunk/rkward/rkward/plugins/distributions/gamma_probabilities.xml	2007-05-09 12:12:08 UTC (rev 1887)
+++ trunk/rkward/rkward/plugins/distributions/gamma_probabilities.xml	2007-05-09 14:45:27 UTC (rev 1888)
@@ -1,34 +1,14 @@
 <!DOCTYPE rkplugin>
-<!--This is the "Gamma probabilities" plugin-->
-
 <document>
-<code file="gamma_probabilities.php" />
-<dialog label="Gamma probabilities" >
-    <tabbook>
-      <tab label="Gamma probabilities" >
-          <row>
-            <column>
-                <input required="true" initial="0.95" id="q" label="Vector of quantiles"/>
-                <spinbox default_precision="2" type="real" min="0" initial="1" id="shape" label="Shape"/>
-                <spinbox default_precision="2" type="real" min="0" initial="1" id="rate" label="Rate"/>
-            </column>
-            <column>
-                <row>
-                    <radio id="tail" label="Choose type of probability" >
-                        <option value="lower.tail=TRUE" label="lower tail" />
-                        <option value="lower.tail=FALSE" label="upper tail" />
-                    </radio>
-                </row>
-                <row>
-                    <radio id="logp" label="probabilities p are given as:" >
-                      <option value="log.p = FALSE" label="not log(p)" />
-                      <option value="log.p = TRUE" label="log(p)" />
-                  </radio>
-                </row>
-              <stretch/>
-            </column>
-          </row>
-      </tab>
-    </tabbook>
-  </dialog>
+	<code file="gamma_probabilities.php" />
+	<snippets>
+		<snippet id="dist_options">
+			<spinbox default_precision="2" type="real" min="0" initial="1" id="shape" label="Shape"/>
+			<spinbox default_precision="2" type="real" min="0" initial="1" id="rate" label="Rate"/>
+		</snippet>
+		<include file="dist_snippets.xml"/>
+	</snippets>
+	<dialog label="Gamma probabilities" >
+		<insert snippet="probabilities_layout"/>
+	</dialog>
 </document>

Modified: trunk/rkward/rkward/plugins/distributions/gamma_quantiles.xml
===================================================================
--- trunk/rkward/rkward/plugins/distributions/gamma_quantiles.xml	2007-05-09 12:12:08 UTC (rev 1887)
+++ trunk/rkward/rkward/plugins/distributions/gamma_quantiles.xml	2007-05-09 14:45:27 UTC (rev 1888)
@@ -1,34 +1,14 @@
 <!DOCTYPE rkplugin>
-<!--This is the "Gamma quantiles" plugin-->
-
 <document>
-<code file="gamma_quantiles.php" />
-<dialog label="Gamma quantiles" >
-    <tabbook>
-     <tab label="Gamma quantiles" >
-          <row>
-            <column>
-                <input required="true" initial="0.95" id="p" label="Vector of probabilities"/>
-                <spinbox default_precision="2" type="real" min="0" initial="1" id="shape" label="Shape"/>
-                <spinbox default_precision="2" type="real" min="0" initial="1" id="rate" label="Rate"/>
-            </column>
-            <column>
-                <row>
-                    <radio id="tail" label="Choose type of probability" >
-                        <option value="lower.tail=TRUE" label="lower tail" />
-                        <option value="lower.tail=FALSE" label="upper tail" />
-                    </radio>
-                </row>
-                <row>
-                    <radio id="logp" label="probabilities p are given as:" >
-                      <option value="log.p = FALSE" label="not log(p)" />
-                      <option value="log.p = TRUE" label="log(p)" />
-                  </radio>
-                </row>
-              <stretch/>
-            </column>file:///home/pie/Rkward/current_development/gamma/gamma_quantiles.xml
-          </row>
-      </tab>
-    </tabbook>
-  </dialog>
+	<code file="gamma_quantiles.php" />
+	<snippets>
+		<snippet id="dist_options">
+			<spinbox default_precision="2" type="real" min="0" initial="1" id="shape" label="Shape"/>
+			<spinbox default_precision="2" type="real" min="0" initial="1" id="rate" label="Rate"/>
+		</snippet>
+		<include file="dist_snippets.xml"/>
+	</snippets>
+	<dialog label="Gamma quantiles" >
+		<insert snippet="quantiles_layout"/>
+	</dialog>
 </document>

Modified: trunk/rkward/rkward/plugins/distributions/geom_probabilities.xml
===================================================================
--- trunk/rkward/rkward/plugins/distributions/geom_probabilities.xml	2007-05-09 12:12:08 UTC (rev 1887)
+++ trunk/rkward/rkward/plugins/distributions/geom_probabilities.xml	2007-05-09 14:45:27 UTC (rev 1888)
@@ -1,33 +1,13 @@
 <!DOCTYPE rkplugin>
-<!--This is the "Geometric probabilities" plugin-->
-
 <document>
-<code file="geom_probabilities.php" />
-<dialog label="Geometric probabilities" >
-    <tabbook>
-      <tab label="Geometric probabilities" >
-          <row>
-            <column>
-                <input required="true" initial="0.95" id="q" label="Vector of quantiles"/>
-                <spinbox default_precision="2" type="real" min="0" initial="0.5" max="1" id="prob" label="probability of success in each trial"/>
-            </column>
-            <column>
-                <row>
-                    <radio id="tail" label="Choose type of probability" >
-                        <option value="lower.tail=TRUE" label="lower tail" />
-                        <option value="lower.tail=FALSE" label="upper tail" />
-                    </radio>
-                </row>
-                <row>
-                    <radio id="logp" label="probabilities p are given as:" >
-                      <option value="log.p = FALSE" label="not log(p)" />
-                      <option value="log.p = TRUE" label="log(p)" />
-                  </radio>
-                </row>
-              <stretch/>
-            </column>
-          </row>
-      </tab>
-    </tabbook>
-  </dialog>
+	<code file="geom_probabilities.php" />
+	<snippets>
+		<snippet id="dist_options">
+			<spinbox default_precision="2" type="real" min="0" initial="0.5" max="1" id="prob" label="probability of success in each trial"/>
+		</snippet>
+		<include file="dist_snippets.xml"/>
+	</snippets>
+	<dialog label="Geometric probabilities" >
+		<insert snippet="probabilities_layout"/>
+	</dialog>
 </document>

Modified: trunk/rkward/rkward/plugins/distributions/geom_quantiles.xml
===================================================================
--- trunk/rkward/rkward/plugins/distributions/geom_quantiles.xml	2007-05-09 12:12:08 UTC (rev 1887)
+++ trunk/rkward/rkward/plugins/distributions/geom_quantiles.xml	2007-05-09 14:45:27 UTC (rev 1888)
@@ -1,33 +1,13 @@
 <!DOCTYPE rkplugin>
-<!--This is the "Geometric probabilities" plugin-->
-
 <document>
-<code file="geom_quantiles.php" />
-<dialog label="Geometric quantiles" >
-    <tabbook>
-     <tab label="Geometric quantiles" >
-          <row>
-            <column>
-              <input required="true" initial="0.95" id="p" label="Vector of probabilities"/>
-              <spinbox default_precision="2" type="real" min="0" initial="0.5" max="1" id="prob" label="probability of success in each trial"/>
-            </column>
-            <column>
-                <row>
-                    <radio id="tail" label="Choose type of probability" >
-                        <option value="lower.tail=TRUE" label="lower tail" />
-                        <option value="lower.tail=FALSE" label="upper tail" />
-                    </radio>
-                </row>
-                <row>
-                    <radio id="logp" label="probabilities p are given as:" >
-                      <option value="log.p = FALSE" label="not log(p)" />
-                      <option value="log.p = TRUE" label="log(p)" />
-                  </radio>
-                </row>
-              <stretch/>
-            </column>
-          </row>
-      </tab>
-    </tabbook>
-  </dialog>
+	<code file="geom_quantiles.php" />
+	<snippets>
+		<snippet id="dist_options">
+			<spinbox default_precision="2" type="real" min="0" initial="0.5" max="1" id="prob" label="probability of success in each trial"/>
+		</snippet>
+		<include file="dist_snippets.xml"/>
+	</snippets>
+	<dialog label="Geometric quantiles" >
+		<insert snippet="quantiles_layout"/>
+	</dialog>
 </document>

Modified: trunk/rkward/rkward/plugins/distributions/gumbel_probabilities.xml
===================================================================
--- trunk/rkward/rkward/plugins/distributions/gumbel_probabilities.xml	2007-05-09 12:12:08 UTC (rev 1887)
+++ trunk/rkward/rkward/plugins/distributions/gumbel_probabilities.xml	2007-05-09 14:45:27 UTC (rev 1888)
@@ -1,34 +1,14 @@
 <!DOCTYPE rkplugin>
-<!--This is the "Gumbel probabilities" plugin-->
-
 <document>
-<code file="gumbel_probabilities.php" />
-<dialog label="Gumbel probabilities" >
-    <tabbook>
-     <tab label="Gumbel probabilities" >
-          <row>
-            <column>
-                <input required="true" initial="0.95" id="q" label="Vector of quantiles"/>
-                <spinbox default_precision="2" type="real" min="0" initial="1" id="shape" label="Shape"/>
-                <spinbox default_precision="2" type="real" min="1" initial="1" id="scale" label="Scale"/>
-            </column>
-            <column>
-                <row>
-                    <radio id="tail" label="Choose type of probability" >
-                        <option value="lower.tail=TRUE" label="lower tail" />
-                        <option value="lower.tail=FALSE" label="upper tail" />
-                    </radio>
-                </row>
-                <row>
-                    <radio id="logp" label="probabilities p are given as:" >
-                      <option value="log.p = FALSE" label="not log(p)" />
-                      <option value="log.p = TRUE" label="log(p)" />
-                  </radio>
-                </row>
-              <stretch/>
-            </column>
-          </row>
-      </tab>
-    </tabbook>
-  </dialog>
+	<code file="gumbel_probabilities.php" />
+	<snippets>
+		<snippet id="dist_options">
+			<spinbox default_precision="2" type="real" min="0" initial="1" id="shape" label="Shape"/>
+			<spinbox default_precision="2" type="real" min="1" initial="1" id="scale" label="Scale"/>
+		</snippet>
+		<include file="dist_snippets.xml"/>
+	</snippets>
+	<dialog label="Gumbel probabilities" >
+		<insert snippet="probabilities_layout"/>
+	</dialog>
 </document>

Modified: trunk/rkward/rkward/plugins/distributions/gumbel_quantiles.xml
===================================================================
--- trunk/rkward/rkward/plugins/distributions/gumbel_quantiles.xml	2007-05-09 12:12:08 UTC (rev 1887)
+++ trunk/rkward/rkward/plugins/distributions/gumbel_quantiles.xml	2007-05-09 14:45:27 UTC (rev 1888)
@@ -1,34 +1,14 @@
 <!DOCTYPE rkplugin>
-<!--This is the "Gumbel quantiles" plugin-->
-
 <document>
-<code file="gumbel_quantiles.php" />
-<dialog label="Gumbel quantiles" >
-    <tabbook>
-     <tab label="Gumbel quantiles" >
-          <row>
-            <column>
-                <input required="true" initial="0.95" id="p" label="Vector of probabilities"/>
-                <spinbox default_precision="2" type="real" min="0" initial="1" id="shape" label="Shape"/>
-                <spinbox default_precision="2" type="real" min="1" initial="1" id="scale" label="Scale"/>
-            </column>
-            <column>
-                <row>
-                    <radio id="tail" label="Choose type of probability" >
-                        <option value="lower.tail=TRUE" label="lower tail" />
-                        <option value="lower.tail=FALSE" label="upper tail" />
-                    </radio>
-                </row>
-                <row>
-                    <radio id="logp" label="probabilities p are given as:" >
-                      <option value="log.p = FALSE" label="not log(p)" />
-                      <option value="log.p = TRUE" label="log(p)" />
-                  </radio>
-                </row>
-              <stretch/>
-            </column>
-          </row>
-      </tab>
-    </tabbook>
-  </dialog>
+	<code file="gumbel_quantiles.php" />
+	<snippets>
+		<snippet id="dist_options">
+			<spinbox default_precision="2" type="real" min="0" initial="1" id="shape" label="Shape"/>
+			<spinbox default_precision="2" type="real" min="1" initial="1" id="scale" label="Scale"/>
+		</snippet>
+		<include file="dist_snippets.xml"/>
+	</snippets>
+	<dialog label="Gumbel quantiles" >
+		<insert snippet="quantiles_layout"/>
+	</dialog>
 </document>

Modified: trunk/rkward/rkward/plugins/distributions/hypergeometric_probabilities.xml
===================================================================
--- trunk/rkward/rkward/plugins/distributions/hypergeometric_probabilities.xml	2007-05-09 12:12:08 UTC (rev 1887)
+++ trunk/rkward/rkward/plugins/distributions/hypergeometric_probabilities.xml	2007-05-09 14:45:27 UTC (rev 1888)
@@ -1,35 +1,15 @@
 <!DOCTYPE rkplugin>
-<!--This is the "Hypergeometric probabilities" plugin-->
-
 <document>
-<code file="hypergeometric_probabilities.php" />
-<dialog label="Hypergeometric probabilities" >
-    <tabbook>
-     <tab label="Hypergeometric probabilities" >
-          <row>
-            <column>
-                <input required="true" initial="0.95" id="q" label="Vector of quantiles"/>
-                <spinbox type="integer" min="0" initial="1" id="m" label="m (Number of white balls in the urn)"/>
-                <spinbox type="integer" min="0" initial="1" id="n" label="n (Number of black balls in the urn)"/>
-                <spinbox type="integer" min="0" initial="1" id="k" label="k (Number of balls drawn from the urn)"/>
-            </column>
-            <column>
-                <row>
-                    <radio id="tail" label="Choose type of probability" >
-                        <option value="lower.tail=TRUE" label="lower tail" />
-                        <option value="lower.tail=FALSE" label="upper tail" />
-                    </radio>
-                </row>
-                <row>
-                    <radio id="logp" label="probabilities p are given as:" >
-                      <option value="log.p = FALSE" label="not log(p)" />
-                      <option value="log.p = TRUE" label="log(p)" />
-                  </radio>
-                </row>
-              <stretch/>
-            </column>
-          </row>
-      </tab>
-    </tabbook>
-  </dialog>
+	<code file="hypergeometric_probabilities.php" />
+	<snippets>
+		<snippet id="dist_options">
+			<spinbox type="integer" min="0" initial="1" id="m" label="m (Number of white balls in the urn)"/>
+			<spinbox type="integer" min="0" initial="1" id="n" label="n (Number of black balls in the urn)"/>
+			<spinbox type="integer" min="0" initial="1" id="k" label="k (Number of balls drawn from the urn)"/>
+		</snippet>
+		<include file="dist_snippets.xml"/>
+	</snippets>
+	<dialog label="Hypergeometric probabilities" >
+		<insert snippet="probabilities_layout"/>
+	</dialog>
 </document>

Modified: trunk/rkward/rkward/plugins/distributions/hypergeometric_quantiles.xml
===================================================================
--- trunk/rkward/rkward/plugins/distributions/hypergeometric_quantiles.xml	2007-05-09 12:12:08 UTC (rev 1887)
+++ trunk/rkward/rkward/plugins/distributions/hypergeometric_quantiles.xml	2007-05-09 14:45:27 UTC (rev 1888)
@@ -1,35 +1,15 @@
 <!DOCTYPE rkplugin>
-<!--This is the "Hypergeometric quantiles" plugin-->
-
 <document>
-<code file="hypergeometric_quantiles.php" />
-<dialog label="Hypergeometric quantiles" >
-    <tabbook>
-     <tab label="Hypergeometric quantiles" >
-          <row>
-            <column>
-                <input required="true" initial="0.95" id="p" label="Vector of probabilities"/>
-                <spinbox type="integer" min="0" initial="1" id="m" label="m (Number of white balls in the urn)"/>
-                <spinbox type="integer" min="0" initial="1" id="n" label="n (Number of black balls in the urn)"/>
-                <spinbox type="integer" min="0" initial="1" id="k" label="k (Number of balls drawn from the urn)"/>
-            </column>
-            <column>
-                <row>
-                    <radio id="tail" label="Choose type of probability" >
-                        <option value="lower.tail=TRUE" label="lower tail" />
-                        <option value="lower.tail=FALSE" label="upper tail" />
-                    </radio>
-                </row>
-                <row>
-                    <radio id="logp" label="probabilities p are given as:" >
-                      <option value="log.p = FALSE" label="not log(p)" />
-                      <option value="log.p = TRUE" label="log(p)" />
-                  </radio>
-                </row>
-              <stretch/>
-            </column>
-          </row>
-      </tab>
-    </tabbook>
-  </dialog>
+	<code file="hypergeometric_quantiles.php" />
+	<snippets>
+		<snippet id="dist_options">
+			<spinbox type="integer" min="0" initial="1" id="m" label="m (Number of white balls in the urn)"/>
+			<spinbox type="integer" min="0" initial="1" id="n" label="n (Number of black balls in the urn)"/>
+			<spinbox type="integer" min="0" initial="1" id="k" label="k (Number of balls drawn from the urn)"/>
+		</snippet>
+		<include file="dist_snippets.xml"/>
+	</snippets>
+	<dialog label="Hypergeometric quantiles" >
+		<insert snippet="quantiles_layout"/>
+	</dialog>
 </document>

Modified: trunk/rkward/rkward/plugins/distributions/log_normal_probabilities.xml
===================================================================
--- trunk/rkward/rkward/plugins/distributions/log_normal_probabilities.xml	2007-05-09 12:12:08 UTC (rev 1887)
+++ trunk/rkward/rkward/plugins/distributions/log_normal_probabilities.xml	2007-05-09 14:45:27 UTC (rev 1888)
@@ -1,33 +1,14 @@
 <!DOCTYPE rkplugin>
-<!--This is the simple "Log Normal probabilities" plugin-->
 <document>
-   <code file="log_normal_probabilities.php" />
-   <dialog label="Log Normal probabilities" >
-      <tabbook>
-         <tab label="Log Normal probabilities" >
-            <row>
-               <column>
-                  <input required="true" initial="0.95" id="q" label="Vector of quantiles"/>
-                  <spinbox default_precision="2" type="real" initial="0" id="meanlog" label="meanlog (mean of the distribution on the log scale)"/>
-                  <spinbox default_precision="2" type="real" min="0.000001" initial="1" id="sdlog" label="sdlog (standard deviation of the distribution on the log scale)"/>
-               </column>
-               <column>
-                  <row>
-                     <radio id="tail" label="Choose type of probability" >
-                        <option value="lower.tail=TRUE" label="lower tail" />
-                        <option value="lower.tail=FALSE" label="upper tail" />
-                     </radio>
-                  </row>
-                  <row>
-                     <radio id="logp" label="probabilities p are given as:" >
-                        <option value="log.p = FALSE" label="not log(p)" />
-                        <option value="log.p = TRUE" label="log(p)" />
-                     </radio>
-                  </row>
-                  <stretch/>
-               </column>
-            </row>
-         </tab>
-    </tabbook>
-   </dialog>
+	<code file="log_normal_probabilities.php" />
+	<snippets>
+		<snippet id="dist_options">
+			<spinbox default_precision="2" type="real" initial="0" id="meanlog" label="meanlog (mean of the distribution on the log scale)"/>
+			<spinbox default_precision="2" type="real" min="0.000001" initial="1" id="sdlog" label="sdlog (standard deviation of the distribution on the log scale)"/>
+		</snippet>
+		<include file="dist_snippets.xml"/>
+	</snippets>
+	<dialog label="Log Normal probabilities" >
+		<insert snippet="probabilities_layout"/>
+	</dialog>
 </document>

Modified: trunk/rkward/rkward/plugins/distributions/log_normal_quantiles.xml
===================================================================
--- trunk/rkward/rkward/plugins/distributions/log_normal_quantiles.xml	2007-05-09 12:12:08 UTC (rev 1887)
+++ trunk/rkward/rkward/plugins/distributions/log_normal_quantiles.xml	2007-05-09 14:45:27 UTC (rev 1888)
@@ -1,33 +1,14 @@
 <!DOCTYPE rkplugin>
-<!--This is the simple "Log Normal quantiles" plugin-->
 <document>
-   <code file="log_normal_quantiles.php" />
-   <dialog label="Log Normal quantiles" >
-      <tabbook>
-         <tab label="Log Normal quantiles" >
-            <row>
-               <column>
-                  <input required="true" initial="0.95" id="p" label="Vector of probabilities"/>
-                  <spinbox default_precision="2" type="real" initial="0" id="meanlog" label="meanlog (mean of the distribution on the log scale)"/>
-                  <spinbox default_precision="2" type="real" min="0" initial="1" id="sdlog" label="sdlog (standard deviation of the distribution on the log scale)"/>
-               </column>
-               <column>
-                  <row>
-                     <radio id="tail" label="Choose type of probability" >
-                        <option value="lower.tail=TRUE" label="lower tail" />
-                        <option value="lower.tail=FALSE" label="upper tail" />
-                     </radio>
-                  </row>
-                  <row>
-                     <radio id="logp" label="probabilities p are given as:" >
-                        <option value="log.p = FALSE" label="not log(p)" />
-                        <option value="log.p = TRUE" label="log(p)" />
-                     </radio>
-                  </row>
-                  <stretch/>
-               </column>
-            </row>
-         </tab>
-    </tabbook>
-   </dialog>
+	<code file="log_normal_quantiles.php" />
+	<snippets>
+		<snippet id="dist_options">
+			<spinbox default_precision="2" type="real" initial="0" id="meanlog" label="meanlog (mean of the distribution on the log scale)"/>
+			<spinbox default_precision="2" type="real" min="0" initial="1" id="sdlog" label="sdlog (standard deviation of the distribution on the log scale)"/>
+		</snippet>
+		<include file="dist_snippets.xml"/>
+	</snippets>
+	<dialog label="Log Normal quantiles" >
+		<insert snippet="quantiles_layout"/>
+	</dialog>
 </document>

Modified: trunk/rkward/rkward/plugins/distributions/logistic_probabilities.xml
===================================================================
--- trunk/rkward/rkward/plugins/distributions/logistic_probabilities.xml	2007-05-09 12:12:08 UTC (rev 1887)
+++ trunk/rkward/rkward/plugins/distributions/logistic_probabilities.xml	2007-05-09 14:45:27 UTC (rev 1888)
@@ -1,34 +1,14 @@
 <!DOCTYPE rkplugin>
-<!--This is the "Logistic probabilities" plugin-->
-
 <document>
-<code file="logistic_probabilities.php" />
-<dialog label="Logistic probabilities" >
-    <tabbook>
-     <tab label="Logistic probabilities" >
-          <row>
-            <column>
-                <input required="true" initial="0.95" id="q" label="Vector of quantiles"/>
-                <spinbox default_precision="2" type="real" initial="1" id="location" label="Location"/>
-                <spinbox default_precision="2" type="real" min="0" initial="1" id="scale" label="Scale"/>
-            </column>
-            <column>
-                <row>
-                    <radio id="tail" label="Choose type of probability" >
-                        <option value="lower.tail=TRUE" label="lower tail" />
-                        <option value="lower.tail=FALSE" label="upper tail" />
-                    </radio>
-                </row>
-                <row>
-                    <radio id="logp" label="probabilities p are given as:" >
-                      <option value="log.p = FALSE" label="not log(p)" />
-                      <option value="log.p = TRUE" label="log(p)" />
-                  </radio>
-                </row>
-              <stretch/>
-            </column>
-          </row>
-      </tab>
-    </tabbook>
-  </dialog>
+	<code file="logistic_probabilities.php" />
+	<snippets>
+		<snippet id="dist_options">
+			<spinbox default_precision="2" type="real" initial="1" id="location" label="Location"/>
+			<spinbox default_precision="2" type="real" min="0" initial="1" id="scale" label="Scale"/>
+		</snippet>
+		<include file="dist_snippets.xml"/>
+	</snippets>
+	<dialog label="Logistic probabilities" >
+		<insert snippet="probabilities_layout"/>
+	</dialog>
 </document>

Modified: trunk/rkward/rkward/plugins/distributions/logistic_quantiles.xml
===================================================================
--- trunk/rkward/rkward/plugins/distributions/logistic_quantiles.xml	2007-05-09 12:12:08 UTC (rev 1887)
+++ trunk/rkward/rkward/plugins/distributions/logistic_quantiles.xml	2007-05-09 14:45:27 UTC (rev 1888)
@@ -1,34 +1,14 @@
 <!DOCTYPE rkplugin>
-<!--This is the "Logistic quantiles" plugin-->
-
 <document>
-<code file="logistic_quantiles.php" />
-<dialog label="Logistic quantiles" >
-    <tabbook>
-     <tab label="Logistic quantiles" >
-          <row>
-            <column>
-                <input required="true" initial="0.95" id="p" label="Vector of probabilities"/>
-                <spinbox default_precision="2" type="real" initial="1" id="location" label="Location"/>
-                <spinbox default_precision="2" type="real" min="0" initial="1" id="scale" label="Scale"/>
-            </column>
-            <column>
-                <row>
-                    <radio id="tail" label="Choose type of probability" >
-                        <option value="lower.tail=TRUE" label="lower tail" />
-                        <option value="lower.tail=FALSE" label="upper tail" />
-                    </radio>
-                </row>
-                <row>
-                    <radio id="logp" label="probabilities p are given as:" >
-                      <option value="log.p = FALSE" label="not log(p)" />
-                      <option value="log.p = TRUE" label="log(p)" />
-                  </radio>
-                </row>
-              <stretch/>
-            </column>
-          </row>
-      </tab>
-    </tabbook>
-  </dialog>
+	<code file="logistic_quantiles.php" />
+	<snippets>
+		<snippet id="dist_options">
+			<spinbox default_precision="2" type="real" initial="1" id="location" label="Location"/>
+			<spinbox default_precision="2" type="real" min="0" initial="1" id="scale" label="Scale"/>
+		</snippet>
+		<include file="dist_snippets.xml"/>
+	</snippets>
+	<dialog label="Logistic quantiles" >
+		<insert snippet="quantiles_layout"/>
+	</dialog>
 </document>

Modified: trunk/rkward/rkward/plugins/distributions/negative_binomial_probabilities.xml
===================================================================
--- trunk/rkward/rkward/plugins/distributions/negative_binomial_probabilities.xml	2007-05-09 12:12:08 UTC (rev 1887)
+++ trunk/rkward/rkward/plugins/distributions/negative_binomial_probabilities.xml	2007-05-09 14:45:27 UTC (rev 1888)
@@ -1,34 +1,14 @@
 <!DOCTYPE rkplugin>
-<!--This is the "Negative Binomial probabilities" plugin-->
-
 <document>
-<code file="negative_binomial_probabilities.php" />
-<dialog label="Negative Binomial probabilities" >
-    <tabbook>
-     <tab label="Negative Binomial probabilities" >
-          <row>
-            <column>
-                <input required="true" initial="0.95" id="q" label="Vector of quantiles"/>
-                <spinbox type="integer" min="0" initial="1" id="size" label="Target for number of successful trials"/>
-                <spinbox default_precision="2" type="real" min="0" initial="0.5" max="1" id="prob" label="Probability of success in each trial"/>
-            </column>
-            <column>
-                <row>
-                    <radio id="tail" label="Choose type of probability" >
-                        <option value="lower.tail=TRUE" label="lower tail" />
-                        <option value="lower.tail=FALSE" label="upper tail" />
-                    </radio>
-                </row>
-                <row>
-                    <radio id="logp" label="probabilities p are given as:" >
-                      <option value="log.p = FALSE" label="not log(p)" />
-                      <option value="log.p = TRUE" label="log(p)" />
-                  </radio>
-                </row>
-              <stretch/>
-            </column>
-          </row>
-      </tab>
-    </tabbook>
-  </dialog>
+	<code file="negative_binomial_probabilities.php" />
+	<snippets>
+		<snippet id="dist_options">
+			<spinbox type="integer" min="0" initial="1" id="size" label="Target for number of successful trials"/>
+			<spinbox default_precision="2" type="real" min="0" initial="0.5" max="1" id="prob" label="Probability of success in each trial"/>
+		</snippet>
+		<include file="dist_snippets.xml"/>
+	</snippets>
+	<dialog label="Negative Binomial probabilities" >
+		<insert snippet="probabilities_layout"/>
+	</dialog>
 </document>

Modified: trunk/rkward/rkward/plugins/distributions/negative_binomial_quantiles.xml
===================================================================
--- trunk/rkward/rkward/plugins/distributions/negative_binomial_quantiles.xml	2007-05-09 12:12:08 UTC (rev 1887)
+++ trunk/rkward/rkward/plugins/distributions/negative_binomial_quantiles.xml	2007-05-09 14:45:27 UTC (rev 1888)
@@ -1,34 +1,14 @@
 <!DOCTYPE rkplugin>
-<!--This is the "Negative Binomial quantiles" plugin-->
-
 <document>
-<code file="negative_binomial_quantiles.php" />
-<dialog label="Negative Binomial quantiles" >
-    <tabbook>
-     <tab label="Negative Binomial quantiles" >
-          <row>
-            <column>
-                <input required="true" initial="0.95" id="p" label="Vector of probabilities"/>
-                <spinbox type="integer" min="0" initial="1" id="size" label="Target for number of successful trials"/>
-                <spinbox default_precision="2" type="real" min="0" initial="0.5" max="1" id="prob" label="Probability of success in each trial"/>
-            </column>
-            <column>
-                <row>
-                    <radio id="tail" label="Choose type of probability" >
-                        <option value="lower.tail=TRUE" label="lower tail" />
-                        <option value="lower.tail=FALSE" label="upper tail" />
-                    </radio>
-                </row>
-                <row>
-                    <radio id="logp" label="probabilities p are given as:" >
-                      <option value="log.p = FALSE" label="not log(p)" />
-                      <option value="log.p = TRUE" label="log(p)" />
-                  </radio>
-                </row>
-              <stretch/>
-            </column>
-          </row>
-      </tab>
-    </tabbook>
-  </dialog>
+	<code file="negative_binomial_quantiles.php" />
+	<snippets>
+		<snippet id="dist_options">
+			<spinbox type="integer" min="0" initial="1" id="size" label="Target for number of successful trials"/>
+			<spinbox default_precision="2" type="real" min="0" initial="0.5" max="1" id="prob" label="Probability of success in each trial"/>
+		</snippet>
+		<include file="dist_snippets.xml"/>
+	</snippets>
+	<dialog label="Negative Binomial quantiles" >
+		<insert snippet="quantiles_layout"/>
+	</dialog>
 </document>

Modified: trunk/rkward/rkward/plugins/distributions/normal_probabilities.xml
===================================================================
--- trunk/rkward/rkward/plugins/distributions/normal_probabilities.xml	2007-05-09 12:12:08 UTC (rev 1887)
+++ trunk/rkward/rkward/plugins/distributions/normal_probabilities.xml	2007-05-09 14:45:27 UTC (rev 1888)
@@ -1,33 +1,14 @@
 <!DOCTYPE rkplugin>
-<!--This is the simple "Normal probabilities" plugin-->
 <document>
-  <code file="normal_probabilities.php" />
-  <dialog label="Normal probabilities" >
-    <tabbook>
-      <tab label="Normal probabilities" >
-          <row>
-            <column>
-             <input required="true" initial="0.95" id="q" label="Vector of quantiles"/>
-             <spinbox default_precision="2" type="real" initial="0" id="mean" label="mu (mean)"/>
-	     <spinbox default_precision="2" type="real" min="0" initial="1" id="sd" label="sigma (standard deviation)"/>
-            </column>
-            <column>
-              <row>
-               <radio id="tail" label="Choose type of probability" >
-                 <option value="lower.tail=TRUE" label="lower tail" />
-                 <option value="lower.tail=FALSE" label="upper tail" />
-               </radio>
-              </row>
-              <row>
-               <radio id="logp" label="probabilities p are given as:" >
-                 <option value="log.p = FALSE" label="not log(p)" />
-                 <option value="log.p = TRUE" label="log(p)" />
-               </radio>
-              </row>
-             <stretch/>
-            </column>
-          </row>
-      </tab>
-    </tabbook>
-  </dialog>
+	<code file="normal_probabilities.php" />
+	<snippets>
+		<snippet id="dist_options">
+			<spinbox default_precision="2" type="real" initial="0" id="mean" label="mu (mean)"/>
+			<spinbox default_precision="2" type="real" min="0" initial="1" id="sd" label="sigma (standard deviation)"/>
+		</snippet>
+		<include file="dist_snippets.xml"/>
+	</snippets>
+	<dialog label="Normal probabilities" >
+		<insert snippet="probabilities_layout"/>
+	</dialog>
 </document>

Modified: trunk/rkward/rkward/plugins/distributions/normal_quantiles.xml
===================================================================
--- trunk/rkward/rkward/plugins/distributions/normal_quantiles.xml	2007-05-09 12:12:08 UTC (rev 1887)
+++ trunk/rkward/rkward/plugins/distributions/normal_quantiles.xml	2007-05-09 14:45:27 UTC (rev 1888)
@@ -1,33 +1,14 @@
 <!DOCTYPE rkplugin>
-<!--This is the simple "Normal quantile" plugin-->
 <document>
-  <code file="normal_quantiles.php" />
-  <dialog label="Normal quantile" >
-    <tabbook>
-      <tab label="Normal quantile" >
-          <row>
-            <column>
-              <input required="true" initial="0.95" id="p" min="0" max="1" label="probability [0,1]" />
-              <spinbox default_precision="2" type="real" initial="0" id="mean" label="mu (mean)" />
-              <spinbox default_precision="2" type="real" min="0" initial="1" id="sd" label="sigma (standard deviation)" />
-            </column>
-            <column>
-             <row>
-              <radio id="tail" label="Choose type of probability" >
-                <option value="lower.tail=TRUE" label="lower tail" />
-                <option value="lower.tail=FALSE" label="upper tail" />
-              </radio>
-             </row>
-             <row>
-              <radio id="logp" label="probabilities p are given as:" >
-                <option value="log.p = FALSE" label="not log(p)" />
-                <option value="log.p = TRUE" label="log(p)" />
-              </radio>
-             </row>
-             <stretch/>
-            </column>
-          </row>
-      </tab>
-    </tabbook>
-  </dialog>
+	<code file="normal_quantiles.php" />
+	<snippets>
+		<snippet id="dist_options">
+			<spinbox default_precision="2" type="real" initial="0" id="mean" label="mu (mean)" />
+			<spinbox default_precision="2" type="real" min="0" initial="1" id="sd" label="sigma (standard deviation)" />
+		</snippet>
+		<include file="dist_snippets.xml"/>
+	</snippets>
+	<dialog label="Normal quantile" >
+		<insert snippet="quantiles_layout"/>
+	</dialog>
 </document>

Modified: trunk/rkward/rkward/plugins/distributions/poisson_probabilities.xml
===================================================================
--- trunk/rkward/rkward/plugins/distributions/poisson_probabilities.xml	2007-05-09 12:12:08 UTC (rev 1887)
+++ trunk/rkward/rkward/plugins/distributions/poisson_probabilities.xml	2007-05-09 14:45:27 UTC (rev 1888)
@@ -1,33 +1,13 @@
 <!DOCTYPE rkplugin>
-<!--This is the "Poisson probabilities" plugin-->
-
 <document>
-<code file="poisson_probabilities.php" />
-<dialog label="Poisson probabilities" >
-    <tabbook>
-	    <tab label="Poisson probabilities" >
-          <row>
-            <column>
-                <input required="true" initial="0.95" id="q" label="Vector of quantiles"/>
-                <spinbox default_precision="2" type="real" min="0" initial="1" id="lambda" label="Lambda"/>
-            </column>
-            <column>
-                <row>
-                    <radio id="tail" label="Choose type of probability" >
-                        <option value="lower.tail=TRUE" label="lower tail" />
-                        <option value="lower.tail=FALSE" label="upper tail" />
-                    </radio>
-                </row>
-                <row>
-                    <radio id="logp" label="probabilities p are given as:" >
-                      <option value="log.p = FALSE" label="not log(p)" />
-                      <option value="log.p = TRUE" label="log(p)" />
-                  </radio>
-                </row>
-              <stretch/>
-            </column>
-          </row>
-      </tab>
-    </tabbook>
-  </dialog>
+	<code file="poisson_probabilities.php" />
+	<snippets>
+		<snippet id="dist_options">
+			<spinbox default_precision="2" type="real" min="0" initial="1" id="lambda" label="Lambda"/>
+		</snippet>
+		<include file="dist_snippets.xml"/>
+	</snippets>
+	<dialog label="Poisson probabilities" >
+		<insert snippet="probabilities_layout"/>
+	</dialog>
 </document>

Modified: trunk/rkward/rkward/plugins/distributions/poisson_quantiles.xml
===================================================================
--- trunk/rkward/rkward/plugins/distributions/poisson_quantiles.xml	2007-05-09 12:12:08 UTC (rev 1887)
+++ trunk/rkward/rkward/plugins/distributions/poisson_quantiles.xml	2007-05-09 14:45:27 UTC (rev 1888)
@@ -1,33 +1,13 @@
 <!DOCTYPE rkplugin>
-<!--This is the "Poisson quantiles" plugin-->
-
 <document>
-    <code file="poisson_quantiles.php" />
-  <dialog label="Poisson quantiles" >
-    <tabbook>
-      <tab label="Poisson quantiles" >
-          <row>
-            <column>
-                <input required="true" initial="0.95" id="p" label="Vector of probabilities"/>
-                <spinbox default_precision="2" type="real" min="0" initial="1" id="lambda" label="Lambda"/>
-            </column>
-            <column>
-                <row>
-                    <radio id="tail" label="Choose type of probability" >
-                        <option value="lower.tail=TRUE" label="lower tail" />
-                        <option value="lower.tail=FALSE" label="upper tail" />
-                    </radio>
-                </row>
-                <row>
-                    <radio id="logp" label="probabilities p are given as:" >
-                      <option value="log.p = FALSE" label="not log(p)" />
-                      <option value="log.p = TRUE" label="log(p)" />
-                  </radio>
-                </row>
-              <stretch/>
-            </column>
-          </row>
-      </tab>
-    </tabbook>
-  </dialog>
+	<code file="poisson_quantiles.php" />
+	<snippets>
+		<snippet id="dist_options">
+			<spinbox default_precision="2" type="real" min="0" initial="1" id="lambda" label="Lambda"/>
+		</snippet>
+		<include file="dist_snippets.xml"/>
+	</snippets>
+	<dialog label="Poisson quantiles" >
+		<insert snippet="quantiles_layout"/>
+	</dialog>
 </document>

Modified: trunk/rkward/rkward/plugins/distributions/t_probabilities.php
===================================================================
--- trunk/rkward/rkward/plugins/distributions/t_probabilities.php	2007-05-09 12:12:08 UTC (rev 1887)
+++ trunk/rkward/rkward/plugins/distributions/t_probabilities.php	2007-05-09 14:45:27 UTC (rev 1888)
@@ -6,14 +6,14 @@
 	global $q;
 	$q = "c (" . preg_replace ("/[, ]+/", ", ", getRK_val ("q")) . ")";
 ?>
-result <- (pt (q = <? echo ($q); ?>, df = <? getRK ("df"); ?>, ncp = <? getRK ("ncp"); ?>, <? getRK ("tail"); ?>))
+result <- (pt (q = <? echo ($q); ?>, df = <? getRK ("df"); ?>, ncp = <? getRK ("ncp"); ?>, <? getRK ("tail"); ?>, <? getRK("logp"); ?>))
 <?
 }
 
 function printout () {
 	global $q;
 ?>
-rk.header ("t probability", list ("Vector of quantiles", "<? echo ($q); ?>", "Degrees of Freedom", "<? getRK ("df"); ?>", "non-centrality parameter", "<? getRK ("ncp"); ?>", "Tail", "<? getRK ("tail"); ?>"));
+rk.header ("t probability", list ("Vector of quantiles", "<? echo ($q); ?>", "Degrees of Freedom", "<? getRK ("df"); ?>", "non-centrality parameter", "<? getRK ("ncp"); ?>", "Tail", "<? getRK ("tail"); ?>", "Probabilities p are given as", "<? getRK ("logp"); ?>"));
 rk.results (result, titles="t probabilities")
 <?
 }

Modified: trunk/rkward/rkward/plugins/distributions/t_probabilities.xml
===================================================================
--- trunk/rkward/rkward/plugins/distributions/t_probabilities.xml	2007-05-09 12:12:08 UTC (rev 1887)
+++ trunk/rkward/rkward/plugins/distributions/t_probabilities.xml	2007-05-09 14:45:27 UTC (rev 1888)
@@ -1,25 +1,14 @@
 <!DOCTYPE rkplugin>
-<!--This is the "t probability" plugin-->
 <document>
-  <code file="t_probabilities.php" />
-  <dialog label="t probability" >
-    <tabbook>
-      <tab label="t probability" >
-          <row>
-            <column>
-              <input required="true" initial="0.95" id="q" label="Vector of quantiles"/>
-              <spinbox default_precision="2" type="real" initial="1" id="df" min="0" label="Degrees of Freedom"/>
-              <spinbox default_precision="2" type="real" initial="0" id="ncp" min="0" label="non-centrality parameter"/>
-            </column>
-            <column>
-              <radio id="tail" label="Choose type of probability" >
-                <option value="lower.tail=TRUE" label="lower tail" />
-                <option value="lower.tail=FALSE" label="upper tail" />
-              </radio>
-              <stretch/>
-            </column>
-          </row>
-      </tab>
-    </tabbook>
-  </dialog>
+	<code file="t_probabilities.php" />
+	<snippets>
+		<snippet id="dist_options">
+			<spinbox default_precision="2" type="real" initial="1" id="df" min="0" label="Degrees of Freedom"/>
+			<spinbox default_precision="2" type="real" initial="0" id="ncp" min="0" label="non-centrality parameter"/>
+		</snippet>
+		<include file="dist_snippets.xml"/>
+	</snippets>
+	<dialog label="t probability" >
+		<insert snippet="probabilities_layout"/>
+	</dialog>
 </document>

Modified: trunk/rkward/rkward/plugins/distributions/t_quantiles.php
===================================================================
--- trunk/rkward/rkward/plugins/distributions/t_quantiles.php	2007-05-09 12:12:08 UTC (rev 1887)
+++ trunk/rkward/rkward/plugins/distributions/t_quantiles.php	2007-05-09 14:45:27 UTC (rev 1888)
@@ -6,14 +6,14 @@
 	global $p;
 	$p = "c (" . preg_replace ("/[, ]+/", ", ", getRK_val ("p")) . ")";
 ?>
-result <- (qt (p = <? echo ($p); ?>, df = <? getRK ("df"); ?>, ncp = <? getRK ("ncp"); ?>, <? getRK ("tail"); ?>))
+result <- (qt (p = <? echo ($p); ?>, df = <? getRK ("df"); ?>, ncp = <? getRK ("ncp"); ?>, <? getRK ("tail"); ?>, <? getRK ("logp"); ?>))
 <?
 }
 
 function printout () {
 	global $p;
 ?>
-rk.header ("t quantile", list ("Vector of probabilities", "<? echo ($p); ?>", "Degrees of freedom", "<? getRK ("df"); ?>", "non-centrality parameter", "<? getRK ("ncp"); ?>", "Tail", "<? getRK ("tail"); ?>"));
+rk.header ("t quantile", list ("Vector of probabilities", "<? echo ($p); ?>", "Degrees of freedom", "<? getRK ("df"); ?>", "non-centrality parameter", "<? getRK ("ncp"); ?>", "Tail", "<? getRK ("tail"); ?>", "Probabilities p are given as", "<? getRK ("logp"); ?>"));
 rk.results (result, titles="t quantiles")
 <?
 }

Modified: trunk/rkward/rkward/plugins/distributions/t_quantiles.xml
===================================================================
--- trunk/rkward/rkward/plugins/distributions/t_quantiles.xml	2007-05-09 12:12:08 UTC (rev 1887)
+++ trunk/rkward/rkward/plugins/distributions/t_quantiles.xml	2007-05-09 14:45:27 UTC (rev 1888)
@@ -1,24 +1,14 @@
 <!DOCTYPE rkplugin>
-<!--This is the "t quantile" plugin-->
 <document>
-  <code file="t_quantiles.php" />
-  <dialog label="t quantile" >
-    <tabbook>
-      <tab label="t quantile" >
-          <row>
-            <column>
-              <input required="true" initial="0.95" id="p" min="0" max="1" label="Probability"/>
-              <spinbox default_precision="2" type="real" initial="1" id="df" min="0" label="Degrees of Freedom"/>
-              <spinbox default_precision="2" type="real" initial="0" id="ncp" min="0" label="non-centrality parameter"/>
-            </column>
-            <column>
-              <radio id="tail" label="Choose type of probability" >
-                <option value="lower.tail=TRUE" label="lower tail" />
-                <option value="lower.tail=FALSE" label="upper tail" />
-              </radio>
-            </column>
-          </row>
-      </tab>
-    </tabbook>
-  </dialog>
+	<code file="t_quantiles.php" />
+	<snippets>
+		<snippet id="dist_options">
+			<spinbox default_precision="2" type="real" initial="1" id="df" min="0" label="Degrees of Freedom"/>
+			<spinbox default_precision="2" type="real" initial="0" id="ncp" min="0" label="non-centrality parameter"/>
+		</snippet>
+		<include file="dist_snippets.xml"/>
+	</snippets>
+	<dialog label="t quantile" >
+		<insert snippet="quantiles_layout"/>
+	</dialog>
 </document>

Modified: trunk/rkward/rkward/plugins/distributions/tukey_probabilities.xml
===================================================================
--- trunk/rkward/rkward/plugins/distributions/tukey_probabilities.xml	2007-05-09 12:12:08 UTC (rev 1887)
+++ trunk/rkward/rkward/plugins/distributions/tukey_probabilities.xml	2007-05-09 14:45:27 UTC (rev 1888)
@@ -1,34 +1,15 @@
 <!DOCTYPE rkplugin>
-<!--This is the simple "Studentized Range Distribution" plugin-->
 <document>
 	<code file="tukey_probabilities.php" />
+	<snippets>
+		<snippet id="dist_options">
+			<spinbox min="1" type="integer" initial="2" id="nmeans" label="Sample size for range"/>
+			<input default_precision="2" initial="5" id="df" label="Degrees of freedom for s"/>
+			<spinbox default_precision="2" type="integer" initial="1" min="0" id="nranges" label="Number of groups whose maximum range is considered"/>
+		</snippet>
+		<include file="dist_snippets.xml"/>
+	</snippets>
 	<dialog label="Studentized Range Distribution" >
-		<tabbook>
-			<tab label="Studentized Range Distribution probabilities" >
-				<row>
-					<column>
-						<input required="true" initial="0:10" id="q" label="Vector of quantiles"/>
-						<spinbox min="1" type="integer" initial="2" id="nmeans" label="Sample size for range"/>
-						<input default_precision="2" initial="5" id="df" label="Degrees of freedom for s"/>
-						<spinbox default_precision="2" type="integer" initial="1" min="0" id="nranges" label="Number of groups whose maximum range is considered"/>
-					</column>
-					<column>
-						<row>
-							<radio id="tail" label="Choose type of probability" >
-								<option value="lower.tail=TRUE" label="lower tail" />
-								<option value="lower.tail=FALSE" label="upper tail" />
-							</radio>
-						</row>
-						<row>
-							<radio id="logp" label="probabilities p are given as:" >
-								<option value="log.p = FALSE" label="not log(p)" />
-								<option value="log.p = TRUE" label="log(p)" />
-							</radio>
-						</row>
-						<stretch/>
-					</column>
-				</row>
-			</tab>
-		</tabbook>
+		<insert snippet="probabilities_layout"/>
 	</dialog>
 </document>

Modified: trunk/rkward/rkward/plugins/distributions/tukey_quantiles.xml
===================================================================
--- trunk/rkward/rkward/plugins/distributions/tukey_quantiles.xml	2007-05-09 12:12:08 UTC (rev 1887)
+++ trunk/rkward/rkward/plugins/distributions/tukey_quantiles.xml	2007-05-09 14:45:27 UTC (rev 1888)
@@ -1,34 +1,15 @@
 <!DOCTYPE rkplugin>
-<!--This is the simple "Studentized Range Distribution" plugin-->
 <document>
 	<code file="tukey_quantiles.php" />
-	<dialog label="Studentized Range Distribution" >
-		<tabbook>
-			<tab label="Studentized Range Distribution quantiles" >
-				<row>
-					<column>
-						<input required="true" initial="0.95" id="p" label="Vector of probabilities"/>
-						<spinbox min="1" type="integer" initial="2" id="nmeans" label="Sample size for range"/>
-						<input initial="2:11" min="0" id="df" label="Degrees of freedom for s"/>
-						<spinbox default_precision="2" type="integer" initial="1" min="0" id="nranges" label="Number of groups whose maximum range is considered"/>
-					</column>
-					<column>
-						<row>
-							<radio id="tail" label="Choose type of probability" >
-								<option value="lower.tail=TRUE" label="lower tail" />
-								<option value="lower.tail=FALSE" label="upper tail" />
-							</radio>
-						</row>
-						<row>
-							<radio id="logp" label="probabilities p are given as:" >
-								<option value="log.p = FALSE" label="not log(p)" />
-								<option value="log.p = TRUE" label="log(p)" />
-							</radio>
-						</row>
-						<stretch/>
-					</column>
-				</row>
-			</tab>
-		</tabbook>
+	<snippets>
+		<snippet id="dist_options">
+			<spinbox min="1" type="integer" initial="2" id="nmeans" label="Sample size for range"/>
+			<input initial="2:11" min="0" id="df" label="Degrees of freedom for s"/>
+			<spinbox default_precision="2" type="integer" initial="1" min="0" id="nranges" label="Number of groups whose maximum range is considered"/>
+		</snippet>
+		<include file="dist_snippets.xml"/>
+	</snippets>
+	<tab label="Studentized Range Distribution quantiles" >
+		<insert snippet="quantiles_layout"/>
 	</dialog>
 </document>

Modified: trunk/rkward/rkward/plugins/distributions/uniform_probabilities.xml
===================================================================
--- trunk/rkward/rkward/plugins/distributions/uniform_probabilities.xml	2007-05-09 12:12:08 UTC (rev 1887)
+++ trunk/rkward/rkward/plugins/distributions/uniform_probabilities.xml	2007-05-09 14:45:27 UTC (rev 1888)
@@ -1,34 +1,14 @@
 <!DOCTYPE rkplugin>
-<!--This is the "Uniform probabilities" plugin-->
-
 <document>
-<code file="uniform_probabilities.php" />
-<dialog label="Uniform probabilities" >
-    <tabbook>
-     <tab label="Uniform probabilities" >
-          <row>
-            <column>
-                <input required="true" initial="0.95" id="q" label="Vector of quantiles"/>
-                <spinbox default_precision="2" type="real" initial="0" id="min" label="Lower limit of the distribution"/>
-                <spinbox default_precision="2" type="real" initial="1" id="max" label="Upper limit of the distribution"/>
-            </column>
-            <column>
-                <row>
-                    <radio id="tail" label="Choose type of probability" >
-                        <option value="lower.tail=TRUE" label="lower tail" />
-                        <option value="lower.tail=FALSE" label="upper tail" />
-                    </radio>
-                </row>
-                <row>
-                    <radio id="logp" label="probabilities p are given as:" >
-                      <option value="log.p = FALSE" label="not log(p)" />
-                      <option value="log.p = TRUE" label="log(p)" />
-                  </radio>
-                </row>
-              <stretch/>
-            </column>
-          </row>
-      </tab>
-    </tabbook>
-  </dialog>
+	<code file="uniform_probabilities.php" />
+	<snippets>
+		<snippet id="dist_options">
+			<spinbox default_precision="2" type="real" initial="0" id="min" label="Lower limit of the distribution"/>
+			<spinbox default_precision="2" type="real" initial="1" id="max" label="Upper limit of the distribution"/>
+		</snippet>
+		<include file="dist_snippets.xml"/>
+	</snippets>
+	<dialog label="Uniform probabilities" >
+		<insert snippet="probabilities_layout"/>
+	</dialog>
 </document>

Modified: trunk/rkward/rkward/plugins/distributions/uniform_quantiles.xml
===================================================================
--- trunk/rkward/rkward/plugins/distributions/uniform_quantiles.xml	2007-05-09 12:12:08 UTC (rev 1887)
+++ trunk/rkward/rkward/plugins/distributions/uniform_quantiles.xml	2007-05-09 14:45:27 UTC (rev 1888)
@@ -1,34 +1,14 @@
 <!DOCTYPE rkplugin>
-<!--This is the "Uniform probabilities" plugin-->
-
 <document>
-<code file="uniform_quantiles.php" />
-<dialog label="Uniform quantiles" >
-    <tabbook>
-     <tab label="Uniform quantiles" >
-          <row>
-            <column>
-                <input required="true" initial="0.95" id="p" label="Vector of probabilities"/>
-                <spinbox default_precision="2" type="real" initial="0" id="min" label="Lower limits of the distribution"/>
-                <spinbox default_precision="2" type="real" initial="1" id="max" label="Upper limits of the distribution"/>
-            </column>
-            <column>
-                <row>
-                    <radio id="tail" label="Choose type of probability" >
-                        <option value="lower.tail=TRUE" label="lower tail" />
-                        <option value="lower.tail=FALSE" label="upper tail" />
-                    </radio>
-                </row>
-                <row>
-                    <radio id="logp" label="probabilities p are given as:" >
-                      <option value="log.p = FALSE" label="not log(p)" />
-                      <option value="log.p = TRUE" label="log(p)" />
-                  </radio>
-                </row>
-              <stretch/>
-            </column>
-          </row>
-      </tab>
-    </tabbook>
-  </dialog>
+	<code file="uniform_quantiles.php" />
+	<snippets>
+		<snippet id="dist_options">
+			<spinbox default_precision="2" type="real" initial="0" id="min" label="Lower limits of the distribution"/>
+			<spinbox default_precision="2" type="real" initial="1" id="max" label="Upper limits of the distribution"/>
+		</snippet>
+		<include file="dist_snippets.xml"/>
+	</snippets>
+	<dialog label="Uniform quantiles" >
+		<insert snippet="quantiles_layout"/>
+	</dialog>
 </document>

Modified: trunk/rkward/rkward/plugins/distributions/weibull_probabilities.xml
===================================================================
--- trunk/rkward/rkward/plugins/distributions/weibull_probabilities.xml	2007-05-09 12:12:08 UTC (rev 1887)
+++ trunk/rkward/rkward/plugins/distributions/weibull_probabilities.xml	2007-05-09 14:45:27 UTC (rev 1888)
@@ -1,34 +1,14 @@
 <!DOCTYPE rkplugin>
-<!--This is the "Weibull probabilities" plugin-->
-
 <document>
-<code file="weibull_probabilities.php" />
-<dialog label="Weibull probabilities" >
-    <tabbook>
-     <tab label="Weibull probabilities" >
-          <row>
-            <column>
-                <input required="true" initial="0.95" id="q" label="Vector of quantiles"/>
-                <spinbox default_precision="2" type="real" min="0" initial="1" id="shape" label="Shape"/>
-                <spinbox default_precision="2" type="real" min="0.000001" initial="1" id="scale" label="Scale"/>
-            </column>
-            <column>
-                <row>
-                    <radio id="tail" label="Choose type of probability" >
-                        <option value="lower.tail=TRUE" label="lower tail" />
-                        <option value="lower.tail=FALSE" label="upper tail" />
-                    </radio>
-                </row>
-                <row>
-                    <radio id="logp" label="probabilities p are given as:" >
-                      <option value="log.p = FALSE" label="not log(p)" />
-                      <option value="log.p = TRUE" label="log(p)" />
-                  </radio>
-                </row>
-              <stretch/>
-            </column>
-          </row>
-      </tab>
-    </tabbook>
-  </dialog>
+	<code file="weibull_probabilities.php" />
+	<snippets>
+		<snippet id="dist_options">
+			<spinbox default_precision="2" type="real" min="0" initial="1" id="shape" label="Shape"/>
+			<spinbox default_precision="2" type="real" min="0.000001" initial="1" id="scale" label="Scale"/>
+		</snippet>
+		<include file="dist_snippets.xml"/>
+	</snippets>
+	<dialog label="Weibull probabilities" >
+		<insert snippet="probabilities_layout"/>
+	</dialog>
 </document>

Modified: trunk/rkward/rkward/plugins/distributions/weibull_quantiles.xml
===================================================================
--- trunk/rkward/rkward/plugins/distributions/weibull_quantiles.xml	2007-05-09 12:12:08 UTC (rev 1887)
+++ trunk/rkward/rkward/plugins/distributions/weibull_quantiles.xml	2007-05-09 14:45:27 UTC (rev 1888)
@@ -1,34 +1,14 @@
 <!DOCTYPE rkplugin>
-<!--This is the "Weibull quantiles" plugin-->
-
 <document>
-<code file="weibull_quantiles.php" />
-<dialog label="Weibull quantiles" >
-    <tabbook>
-      <tab label="Weibull quantiles" >
-          <row>
-            <column>
-                <input required="true" initial="0.95" id="p" label="Vector of probabilities"/>
-                <spinbox default_precision="2" type="real" min="0" initial="1" id="shape" label="Shape"/>
-                <spinbox default_precision="2" type="real" min="0.000001" initial="1" id="scale" label="Scale"/>
-            </column>
-            <column>
-                <row>
-                    <radio id="tail" label="Choose type of probability" >
-                        <option value="lower.tail=TRUE" label="lower tail" />
-                        <option value="lower.tail=FALSE" label="upper tail" />
-                    </radio>
-                </row>
-                <row>
-                    <radio id="logp" label="probabilities p are given as:" >
-                      <option value="log.p = FALSE" label="not log(p)" />
-                      <option value="log.p = TRUE" label="log(p)" />
-                  </radio>
-                </row>
-              <stretch/>
-            </column>
-          </row>
-      </tab>
-    </tabbook>
-  </dialog>
+	<code file="weibull_quantiles.php" />
+	<snippets>
+		<snippet id="dist_options">
+			<spinbox default_precision="2" type="real" min="0" initial="1" id="shape" label="Shape"/>
+			<spinbox default_precision="2" type="real" min="0.000001" initial="1" id="scale" label="Scale"/>
+		</snippet>
+		<include file="dist_snippets.xml"/>
+	</snippets>
+	<dialog label="Weibull quantiles" >
+		<insert snippet="quantiles_layout"/>
+	</dialog>
 </document>

Modified: trunk/rkward/rkward/plugins/distributions/wilcoxon_probabilities.xml
===================================================================
--- trunk/rkward/rkward/plugins/distributions/wilcoxon_probabilities.xml	2007-05-09 12:12:08 UTC (rev 1887)
+++ trunk/rkward/rkward/plugins/distributions/wilcoxon_probabilities.xml	2007-05-09 14:45:27 UTC (rev 1888)
@@ -1,34 +1,14 @@
 <!DOCTYPE rkplugin>
-<!--This is the "Wilcoxon Rank Sum probabilities" plugin-->
-
 <document>
-<code file="wilcoxon_probabilities.php" />
-<dialog label="Wilcoxon Rank Sum probabilities" >
-    <tabbook>
-       <tab label="Wilcoxon Rank Sum probabilities" >
-          <row>
-            <column>
-                <input required="true" initial="0.95" id="q" label="Vector of quantiles"/>
-                <spinbox type="integer" min="1" initial="1" id="m" label="m (Numbers of observations in the first sample)"/>
-                <spinbox type="integer" min="1" initial="1" id="n" label="n (Numbers of observations in the second sample)"/>
-            </column>
-            <column>
-                <row>
-                    <radio id="tail" label="Choose type of probability" >
-                        <option value="lower.tail=TRUE" label="lower tail" />
-                        <option value="lower.tail=FALSE" label="upper tail" />
-                    </radio>
-                </row>
-                <row>
-                    <radio id="logp" label="probabilities p are given as:" >
-                      <option value="log.p = FALSE" label="not log(p)" />
-                      <option value="log.p = TRUE" label="log(p)" />
-                  </radio>
-                </row>
-              <stretch/>
-            </column>
-          </row>
-      </tab>
-    </tabbook>
-  </dialog>
+	<code file="wilcoxon_probabilities.php" />
+	<snippets>
+		<snippet id="dist_options">
+			<spinbox type="integer" min="1" initial="1" id="m" label="m (Numbers of observations in the first sample)"/>
+			<spinbox type="integer" min="1" initial="1" id="n" label="n (Numbers of observations in the second sample)"/>
+		</snippet>
+		<include file="dist_snippets.xml"/>
+	</snippets>
+	<dialog label="Wilcoxon Rank Sum probabilities" >
+		<insert snippet="probabilities_layout"/>
+	</dialog>
 </document>

Modified: trunk/rkward/rkward/plugins/distributions/wilcoxon_quantiles.xml
===================================================================
--- trunk/rkward/rkward/plugins/distributions/wilcoxon_quantiles.xml	2007-05-09 12:12:08 UTC (rev 1887)
+++ trunk/rkward/rkward/plugins/distributions/wilcoxon_quantiles.xml	2007-05-09 14:45:27 UTC (rev 1888)
@@ -1,34 +1,14 @@
 <!DOCTYPE rkplugin>
-<!--This is the "Wilcoxon Rank Sum quantiles" plugin-->
-
 <document>
-<code file="wilcoxon_quantiles.php" />
-<dialog label="Wilcoxon Rank Sum quantiles" >
-    <tabbook>
-       <tab label="Wilcoxon Rank Sum quantiles" >
-          <row>
-            <column>
-                <input required="true" initial="0.95" id="p" label="Vector of probabilities"/>
-                <spinbox type="integer" min="1" initial="1" id="m" label="m (Numbers of observations in the first sample)"/>
-                <spinbox type="integer" min="1" initial="1" id="n" label="n (Numbers of observations in the second sample)"/>
-            </column>
-            <column>
-                <row>
-                    <radio id="tail" label="Choose type of probability" >
-                        <option value="lower.tail=TRUE" label="lower tail" />
-                        <option value="lower.tail=FALSE" label="upper tail" />
-                    </radio>
-                </row>
-                <row>
-                    <radio id="logp" label="probabilities p are given as:" >
-                      <option value="log.p = FALSE" label="not log(p)" />
-                      <option value="log.p = TRUE" label="log(p)" />
-                  </radio>
-                </row>
-              <stretch/>
-            </column>
-          </row>
-      </tab>
-    </tabbook>
-  </dialog>
+	<code file="wilcoxon_quantiles.php" />
+	<snippets>
+		<snippet id="dist_options">
+			<spinbox type="integer" min="1" initial="1" id="m" label="m (Numbers of observations in the first sample)"/>
+			<spinbox type="integer" min="1" initial="1" id="n" label="n (Numbers of observations in the second sample)"/>
+		</snippet>
+		<include file="dist_snippets.xml"/>
+	</snippets>
+	<dialog label="Wilcoxon Rank Sum quantiles" >
+		<insert snippet="quantiles_layout"/>
+	</dialog>
 </document>


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.




More information about the rkward-tracker mailing list