[rkward-cvs] SF.net SVN: rkward: [862] trunk/rkward/rkward/plugins/distributions
tfry at users.sourceforge.net
tfry at users.sourceforge.net
Thu Oct 12 16:09:22 UTC 2006
Revision: 862
http://svn.sourceforge.net/rkward/?rev=862&view=rev
Author: tfry
Date: 2006-10-12 09:08:12 -0700 (Thu, 12 Oct 2006)
Log Message:
-----------
Distribution-plugin updates by sjar part 3: Lots of new distributions
Added Paths:
-----------
trunk/rkward/rkward/plugins/distributions/beta_probabilities.php
trunk/rkward/rkward/plugins/distributions/beta_probabilities.xml
trunk/rkward/rkward/plugins/distributions/beta_quantiles.php
trunk/rkward/rkward/plugins/distributions/beta_quantiles.xml
trunk/rkward/rkward/plugins/distributions/cauchy_probabilities.php
trunk/rkward/rkward/plugins/distributions/cauchy_probabilities.xml
trunk/rkward/rkward/plugins/distributions/cauchy_quantiles.php
trunk/rkward/rkward/plugins/distributions/cauchy_quantiles.xml
trunk/rkward/rkward/plugins/distributions/exponential_probabilities.php
trunk/rkward/rkward/plugins/distributions/exponential_probabilities.xml
trunk/rkward/rkward/plugins/distributions/exponential_quantiles.php
trunk/rkward/rkward/plugins/distributions/exponential_quantiles.xml
trunk/rkward/rkward/plugins/distributions/gamma_probabilities.php
trunk/rkward/rkward/plugins/distributions/gamma_probabilities.xml
trunk/rkward/rkward/plugins/distributions/gamma_quantiles.php
trunk/rkward/rkward/plugins/distributions/gamma_quantiles.xml
trunk/rkward/rkward/plugins/distributions/geom_probabilities.php
trunk/rkward/rkward/plugins/distributions/geom_probabilities.xml
trunk/rkward/rkward/plugins/distributions/geom_quantiles.php
trunk/rkward/rkward/plugins/distributions/geom_quantiles.xml
trunk/rkward/rkward/plugins/distributions/gumbel_probabilities.php
trunk/rkward/rkward/plugins/distributions/gumbel_probabilities.xml
trunk/rkward/rkward/plugins/distributions/gumbel_quantiles.php
trunk/rkward/rkward/plugins/distributions/gumbel_quantiles.xml
trunk/rkward/rkward/plugins/distributions/hypergeometric_probabilities.php
trunk/rkward/rkward/plugins/distributions/hypergeometric_probabilities.xml
trunk/rkward/rkward/plugins/distributions/hypergeometric_quantiles.php
trunk/rkward/rkward/plugins/distributions/hypergeometric_quantiles.xml
trunk/rkward/rkward/plugins/distributions/log_normal_probabilities.php
trunk/rkward/rkward/plugins/distributions/log_normal_probabilities.xml
trunk/rkward/rkward/plugins/distributions/log_normal_quantiles.php
trunk/rkward/rkward/plugins/distributions/log_normal_quantiles.xml
trunk/rkward/rkward/plugins/distributions/logistic_probabilities.php
trunk/rkward/rkward/plugins/distributions/logistic_probabilities.xml
trunk/rkward/rkward/plugins/distributions/logistic_quantiles.php
trunk/rkward/rkward/plugins/distributions/logistic_quantiles.xml
trunk/rkward/rkward/plugins/distributions/negative_binomial_probabilities.php
trunk/rkward/rkward/plugins/distributions/negative_binomial_probabilities.xml
trunk/rkward/rkward/plugins/distributions/negative_binomial_quantiles.php
trunk/rkward/rkward/plugins/distributions/negative_binomial_quantiles.xml
trunk/rkward/rkward/plugins/distributions/poisson_quantiles.php
trunk/rkward/rkward/plugins/distributions/poisson_quantiles.xml
trunk/rkward/rkward/plugins/distributions/uniform_probabilities.php
trunk/rkward/rkward/plugins/distributions/uniform_probabilities.xml
trunk/rkward/rkward/plugins/distributions/uniform_quantiles.php
trunk/rkward/rkward/plugins/distributions/uniform_quantiles.xml
trunk/rkward/rkward/plugins/distributions/weibull_probabilities.php
trunk/rkward/rkward/plugins/distributions/weibull_probabilities.xml
trunk/rkward/rkward/plugins/distributions/weibull_quantiles.php
trunk/rkward/rkward/plugins/distributions/weibull_quantiles.xml
Added: trunk/rkward/rkward/plugins/distributions/beta_probabilities.php
===================================================================
--- trunk/rkward/rkward/plugins/distributions/beta_probabilities.php (rev 0)
+++ trunk/rkward/rkward/plugins/distributions/beta_probabilities.php 2006-10-12 16:08:12 UTC (rev 862)
@@ -0,0 +1,26 @@
+<?
+function preprocess () {
+}
+
+function calculate () {
+ global $q;
+ $q = "c (" . preg_replace ("/[, ]+/", ", ", getRK_val ("q")) . ")";
+?>
+rk.temp = (pbeta (q = <? echo ($q); ?>, shape1 = <? getRK ("shape1"); ?>, shape2 = <? getRK ("shape2"); ?>, ncp = <? getRK ("ncp"); ?>, <? getRK ("tail"); ?>, <? getRK("logp"); ?>))
+<?
+}
+
+function printout () {
+ global $q;
+?>
+rk.header ("Beta probability", list ("Vector of quantiles", "<? echo ($q); ?>", "Shape 1", "<? getRK ("shape1"); ?>", "Shape 2", "<? getRK ("shape2"); ?>", "non-centrality parameter (ncp)", "<? echo ($ncp); ?>", "Tail", "<? getRK ("tail"); ?>", "Probabilities p are given as", "<? getRK ("logp"); ?>"));
+cat ("<h3>Beta probability: ", rk.temp, "</h3>")
+<?
+}
+
+function cleanup () {
+?>
+rm (rk.temp)
+<?
+}
+?>
Property changes on: trunk/rkward/rkward/plugins/distributions/beta_probabilities.php
___________________________________________________________________
Name: svn:executable
+ *
Added: trunk/rkward/rkward/plugins/distributions/beta_probabilities.xml
===================================================================
--- trunk/rkward/rkward/plugins/distributions/beta_probabilities.xml (rev 0)
+++ trunk/rkward/rkward/plugins/distributions/beta_probabilities.xml 2006-10-12 16:08:12 UTC (rev 862)
@@ -0,0 +1,35 @@
+<!DOCTYPE rkplugin>
+<!--This is the "Beta probability" plugin-->
+
+<document>
+ <code file="beta_probabilities.php" />
+ <dialog label="Beta probability" >
+ <tabbook>
+ <tab label="Beta probability" >
+ <row>
+ <column>
+ <input initial="0.95" id="q" label="Vector of quantiles"/>
+ <spinbox type="real" initial="1" id="shape1" min="0" label="Shape 1"/>
+ <spinbox type="real" initial="1" id="shape2" min="0" label="Shape 2"/>
+ <spinbox type="real" initial="1" id="ncp" label="non-centrality parameter (ncp)"/>
+ </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>
+</document>
Property changes on: trunk/rkward/rkward/plugins/distributions/beta_probabilities.xml
___________________________________________________________________
Name: svn:executable
+ *
Added: trunk/rkward/rkward/plugins/distributions/beta_quantiles.php
===================================================================
--- trunk/rkward/rkward/plugins/distributions/beta_quantiles.php (rev 0)
+++ trunk/rkward/rkward/plugins/distributions/beta_quantiles.php 2006-10-12 16:08:12 UTC (rev 862)
@@ -0,0 +1,27 @@
+<?
+function preprocess () {
+}
+
+function calculate () {
+ global $p;
+ $p = "c (" . preg_replace ("/[, ]+/", ", ", getRK_val ("p")) . ")";
+
+?>
+rk.temp = (qbeta (p = <? echo ($p); ?>, shape1 = <? getRK ("shape1"); ?>, shape2 = <? getRK ("shape2"); ?>, ncp = <? getRK ("ncp"); ?>, <? getRK ("tail"); ?>, <? getRK("logp"); ?>))
+<?
+}
+
+function printout () {
+ global $p;
+?>
+rk.header ("Beta quantiles", list ("Vector of probabilities", "<? echo ($p); ?>", "Shape 1", "<? getRK ("shape1"); ?>", "Shape 2", "<? getRK ("shape2"); ?>", "non-centrality parameter (ncp)", "<? getRK ("ncp"); ?>", "Tail", "<? getRK ("tail"); ?>", "Probabilities p are given as", "<? getRK ("logp"); ?>"));
+cat ("<h3>Beta quantiles: ", rk.temp, "</h3>")
+<?
+}
+
+function cleanup () {
+?>
+rm (rk.temp)
+<?
+}
+?>
Property changes on: trunk/rkward/rkward/plugins/distributions/beta_quantiles.php
___________________________________________________________________
Name: svn:executable
+ *
Added: trunk/rkward/rkward/plugins/distributions/beta_quantiles.xml
===================================================================
--- trunk/rkward/rkward/plugins/distributions/beta_quantiles.xml (rev 0)
+++ trunk/rkward/rkward/plugins/distributions/beta_quantiles.xml 2006-10-12 16:08:12 UTC (rev 862)
@@ -0,0 +1,35 @@
+<!DOCTYPE rkplugin>
+<!--This is the "Beta quantiles" plugin-->
+
+<document>
+ <code file="beta_quantiles.php" />
+ <dialog label="Beta quantiles" >
+ <tabbook>
+ <tab label="Beta quantiles" >
+ <row>
+ <column>
+ <input initial="0.95" id="p" label="Vector of probabilities"/>
+ <spinbox default_precision="2" type="real" initial="1" id="shape1" min="0" label="Shape 1"/>
+ <spinbox default_precision="2" type="real" initial="1" id="shape2" min="0" label="Shape 2"/>
+ <spinbox default_precision="2" type="real" initial="1" id="ncp" label="non-centrality parameter (ncp)"/>
+ </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>
+</document>
Property changes on: trunk/rkward/rkward/plugins/distributions/beta_quantiles.xml
___________________________________________________________________
Name: svn:executable
+ *
Added: trunk/rkward/rkward/plugins/distributions/cauchy_probabilities.php
===================================================================
--- trunk/rkward/rkward/plugins/distributions/cauchy_probabilities.php (rev 0)
+++ trunk/rkward/rkward/plugins/distributions/cauchy_probabilities.php 2006-10-12 16:08:12 UTC (rev 862)
@@ -0,0 +1,26 @@
+<?
+function preprocess () {
+}
+
+function calculate () {
+ global $q;
+ $q = "c (" . preg_replace ("/[, ]+/", ", ", getRK_val ("q")) . ")";
+?>
+rk.temp = (pcauchy (q = <? echo ($q); ?>, location = <? getRK ("location"); ?>, scale = <? getRK ("scale"); ?>, <? getRK ("tail"); ?>, <? getRK("logp"); ?>))
+<?
+}
+
+function printout () {
+ global $q;
+?>
+rk.header ("Cauchy probabilities", list ("Vector of quantiles", "<? echo ($q); ?>", "Location", "<? getRK ("location"); ?>", "Scale", "<? getRK ("scale"); ?>", "Tail", "<? getRK ("tail"); ?>", "Probabilities p are given as", "<? getRK ("logp"); ?>"))
+cat ("<h3>Cauchy probabilities: ", rk.temp, "</h3>")
+<?
+}
+
+function cleanup () {
+?>
+rm (rk.temp)
+<?
+}
+?>
Property changes on: trunk/rkward/rkward/plugins/distributions/cauchy_probabilities.php
___________________________________________________________________
Name: svn:executable
+ *
Added: trunk/rkward/rkward/plugins/distributions/cauchy_probabilities.xml
===================================================================
--- trunk/rkward/rkward/plugins/distributions/cauchy_probabilities.xml (rev 0)
+++ trunk/rkward/rkward/plugins/distributions/cauchy_probabilities.xml 2006-10-12 16:08:12 UTC (rev 862)
@@ -0,0 +1,34 @@
+<!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 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>
+</document>
Property changes on: trunk/rkward/rkward/plugins/distributions/cauchy_probabilities.xml
___________________________________________________________________
Name: svn:executable
+ *
Added: trunk/rkward/rkward/plugins/distributions/cauchy_quantiles.php
===================================================================
--- trunk/rkward/rkward/plugins/distributions/cauchy_quantiles.php (rev 0)
+++ trunk/rkward/rkward/plugins/distributions/cauchy_quantiles.php 2006-10-12 16:08:12 UTC (rev 862)
@@ -0,0 +1,26 @@
+<?
+function preprocess () {
+}
+
+function calculate () {
+ global $p;
+ $p = "c (" . preg_replace ("/[, ]+/", ", ", getRK_val ("p")) . ")";
+?>
+rk.temp = (qcauchy (p = <? echo ($p); ?>, location = <? getRK ("location"); ?>, scale = <? getRK ("scale"); ?>, <? getRK ("tail"); ?>, <? getRK("logp"); ?>))
+<?
+}
+
+function printout () {
+ global $p;
+?>
+rk.header ("Cauchy quantiles", list ("Vector of probabilities", "<? echo ($p); ?>", "Location", "<? getRK ("location"); ?>", "Scale", "<? getRK ("scale"); ?>", "Tail", "<? getRK ("tail"); ?>", "Probabilities p are given as", "<? getRK ("logp"); ?>"));
+cat ("<h3>Cauchy quantiles: ", rk.temp, "</h3>")
+<?
+}
+
+function cleanup () {
+?>
+rm (rk.temp)
+<?
+}
+?>
Property changes on: trunk/rkward/rkward/plugins/distributions/cauchy_quantiles.php
___________________________________________________________________
Name: svn:executable
+ *
Added: trunk/rkward/rkward/plugins/distributions/cauchy_quantiles.xml
===================================================================
--- trunk/rkward/rkward/plugins/distributions/cauchy_quantiles.xml (rev 0)
+++ trunk/rkward/rkward/plugins/distributions/cauchy_quantiles.xml 2006-10-12 16:08:12 UTC (rev 862)
@@ -0,0 +1,34 @@
+<!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 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>
+</document>
Property changes on: trunk/rkward/rkward/plugins/distributions/cauchy_quantiles.xml
___________________________________________________________________
Name: svn:executable
+ *
Added: trunk/rkward/rkward/plugins/distributions/exponential_probabilities.php
===================================================================
--- trunk/rkward/rkward/plugins/distributions/exponential_probabilities.php (rev 0)
+++ trunk/rkward/rkward/plugins/distributions/exponential_probabilities.php 2006-10-12 16:08:12 UTC (rev 862)
@@ -0,0 +1,27 @@
+<?
+function preprocess () {
+}
+
+function calculate () {
+ global $q;
+ $q = "c (" . preg_replace ("/[, ]+/", ", ", getRK_val ("q")) . ")";
+
+?>
+rk.temp = (pexp (q = <? echo ($q); ?>, rate = <? getRK ("rate"); ?>, <? getRK ("tail"); ?>, <? getRK("logp"); ?>))
+<?
+}
+
+function printout () {
+ global $q;
+?>
+rk.header ("Exponential probabilities", list ("Vector of quantiles", "<? echo ($q); ?>", "Rate", "<? getRK ("rate"); ?>", "Tail", "<? getRK ("tail"); ?>", "Probabilities p are given as", "<? getRK ("logp"); ?>"))
+cat ("<h3>Exponential probabilities: ", rk.temp, "</h3>")
+<?
+}
+
+function cleanup () {
+?>
+rm (rk.temp)
+<?
+}
+?>
Property changes on: trunk/rkward/rkward/plugins/distributions/exponential_probabilities.php
___________________________________________________________________
Name: svn:executable
+ *
Added: trunk/rkward/rkward/plugins/distributions/exponential_probabilities.xml
===================================================================
--- trunk/rkward/rkward/plugins/distributions/exponential_probabilities.xml (rev 0)
+++ trunk/rkward/rkward/plugins/distributions/exponential_probabilities.xml 2006-10-12 16:08:12 UTC (rev 862)
@@ -0,0 +1,33 @@
+<!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 initial="0.95" id="q" label="Vector of quantiles"/>
+ <spinbox default_precision="2" type="real" min="0" initial="0.5" 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>
+</document>
Property changes on: trunk/rkward/rkward/plugins/distributions/exponential_probabilities.xml
___________________________________________________________________
Name: svn:executable
+ *
Added: trunk/rkward/rkward/plugins/distributions/exponential_quantiles.php
===================================================================
--- trunk/rkward/rkward/plugins/distributions/exponential_quantiles.php (rev 0)
+++ trunk/rkward/rkward/plugins/distributions/exponential_quantiles.php 2006-10-12 16:08:12 UTC (rev 862)
@@ -0,0 +1,26 @@
+<?
+function preprocess () {
+}
+
+function calculate () {
+ global $p;
+ $p = "c (" . preg_replace ("/[, ]+/", ", ", getRK_val ("p")) . ")";
+?>
+rk.temp = (pexp (p = <? echo ($p); ?>, rate = <? getRK ("rate"); ?>, <? getRK ("tail"); ?>, <? getRK("logp"); ?>))
+<?
+}
+
+function printout () {
+ global $p;
+?>
+rk.header ("Exponential quantiles", list ("Vector of probabilities", "<? echo ($p); ?>", "Rate", "<? getRK ("rate"); ?>", "Tail", "<? getRK ("tail"); ?>", "Probabilities p are given as", "<? getRK ("logp"); ?>"))
+cat ("<h3>Exponential quantiles: ", rk.temp, "</h3>")
+<?
+}
+
+function cleanup () {
+?>
+rm (rk.temp)
+<?
+}
+?>
Property changes on: trunk/rkward/rkward/plugins/distributions/exponential_quantiles.php
___________________________________________________________________
Name: svn:executable
+ *
Added: trunk/rkward/rkward/plugins/distributions/exponential_quantiles.xml
===================================================================
--- trunk/rkward/rkward/plugins/distributions/exponential_quantiles.xml (rev 0)
+++ trunk/rkward/rkward/plugins/distributions/exponential_quantiles.xml 2006-10-12 16:08:12 UTC (rev 862)
@@ -0,0 +1,33 @@
+<!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 initial="0.95" id="q" label="Vector of probabilities"/>
+ <spinbox default_precision="2" type="real" min="0" initial="0.5" 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>
+</document>
Property changes on: trunk/rkward/rkward/plugins/distributions/exponential_quantiles.xml
___________________________________________________________________
Name: svn:executable
+ *
Added: trunk/rkward/rkward/plugins/distributions/gamma_probabilities.php
===================================================================
--- trunk/rkward/rkward/plugins/distributions/gamma_probabilities.php (rev 0)
+++ trunk/rkward/rkward/plugins/distributions/gamma_probabilities.php 2006-10-12 16:08:12 UTC (rev 862)
@@ -0,0 +1,26 @@
+<?
+function preprocess () {
+}
+
+function calculate () {
+ global $q;
+ $q = "c (" . preg_replace ("/[, ]+/", ", ", getRK_val ("q")) . ")";
+?>
+rk.temp = (pgamma (q = <? echo ($q); ?>, shape = <? getRK ("shape"); ?>, rate = <? getRK ("rate"); ?>, <? getRK ("tail"); ?>, <? getRK("logp"); ?>))
+<?
+}
+
+function printout () {
+ global $q;
+?>
+rk.header ("Gamma probabilities", list ("Vector of quantiles", "<? echo ($q); ?>", "Shape", "<? getRK ("shape"); ?>", "Rate", "<? getRK ("rate"); ?>", "Tail", "<? getRK ("tail"); ?>", "Probabilities p are given as", "<? getRK ("logp"); ?>"))
+cat ("<h3>Gamma probabilities: ", rk.temp, "</h3>")
+<?
+}
+
+function cleanup () {
+?>
+rm (rk.temp)
+<?
+}
+?>
Property changes on: trunk/rkward/rkward/plugins/distributions/gamma_probabilities.php
___________________________________________________________________
Name: svn:executable
+ *
Added: trunk/rkward/rkward/plugins/distributions/gamma_probabilities.xml
===================================================================
--- trunk/rkward/rkward/plugins/distributions/gamma_probabilities.xml (rev 0)
+++ trunk/rkward/rkward/plugins/distributions/gamma_probabilities.xml 2006-10-12 16:08:12 UTC (rev 862)
@@ -0,0 +1,34 @@
+<!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 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" initial="0" 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>
+</document>
Property changes on: trunk/rkward/rkward/plugins/distributions/gamma_probabilities.xml
___________________________________________________________________
Name: svn:executable
+ *
Added: trunk/rkward/rkward/plugins/distributions/gamma_quantiles.php
===================================================================
--- trunk/rkward/rkward/plugins/distributions/gamma_quantiles.php (rev 0)
+++ trunk/rkward/rkward/plugins/distributions/gamma_quantiles.php 2006-10-12 16:08:12 UTC (rev 862)
@@ -0,0 +1,27 @@
+<?
+function preprocess () {
+}
+
+function calculate () {
+ global $p;
+ $p = "c (" . preg_replace ("/[, ]+/", ", ", getRK_val ("p")) . ")";
+?>
+rk.temp = (qgamma (p = <? echo ($p); ?>, shape = <? getRK ("shape"); ?>, rate = <? getRK ("rate"); ?>, <? getRK ("tail"); ?>, <? getRK("logp"); ?>))
+
+<?
+}
+
+function printout () {
+ global $p;
+?>
+rk.header ("Gamma quantiles", list ("Vector of probabilities", "<? echo ($p); ?>", "Shape", "<? getRK ("shape"); ?>", "Rate", "<? getRK ("rate"); ?>", "Tail", "<? getRK ("tail"); ?>", "Probabilities p are given as", "<? getRK ("logp"); ?>"))
+cat ("<h3>Gamma quantiles: ", rk.temp, "</h3>")
+<?
+}
+
+function cleanup () {
+?>
+rm (rk.temp)
+<?
+}
+?>
Property changes on: trunk/rkward/rkward/plugins/distributions/gamma_quantiles.php
___________________________________________________________________
Name: svn:executable
+ *
Added: trunk/rkward/rkward/plugins/distributions/gamma_quantiles.xml
===================================================================
--- trunk/rkward/rkward/plugins/distributions/gamma_quantiles.xml (rev 0)
+++ trunk/rkward/rkward/plugins/distributions/gamma_quantiles.xml 2006-10-12 16:08:12 UTC (rev 862)
@@ -0,0 +1,34 @@
+<!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 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" initial="0" 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>
+</document>
Property changes on: trunk/rkward/rkward/plugins/distributions/gamma_quantiles.xml
___________________________________________________________________
Name: svn:executable
+ *
Added: trunk/rkward/rkward/plugins/distributions/geom_probabilities.php
===================================================================
--- trunk/rkward/rkward/plugins/distributions/geom_probabilities.php (rev 0)
+++ trunk/rkward/rkward/plugins/distributions/geom_probabilities.php 2006-10-12 16:08:12 UTC (rev 862)
@@ -0,0 +1,26 @@
+<?
+function preprocess () {
+}
+
+function calculate () {
+ global $q;
+ $q = "c (" . preg_replace ("/[, ]+/", ", ", getRK_val ("q")) . ")";
+?>
+rk.temp = (pgeom (q = <? echo ($q); ?>, prob = <? getRK ("prob"); ?>, <? getRK ("tail"); ?>, <? getRK("logp"); ?>))
+<?
+}
+
+function printout () {
+ global $q;
+?>
+rk.header ("Geometric probabilities", list ("Vector of quantiles", "<? echo ($q); ?>", "Probability of success in each trial", "<? getRK ("prob"); ?>", "Tail", "<? getRK ("tail"); ?>", "Probabilities p are given as", "<? getRK ("logp"); ?>"))
+cat ("<h3>Geometric probabilities: ", rk.temp, "</h3>")
+<?
+}
+
+function cleanup () {
+?>
+rm (rk.temp)
+<?
+}
+?>
Property changes on: trunk/rkward/rkward/plugins/distributions/geom_probabilities.php
___________________________________________________________________
Name: svn:executable
+ *
Added: trunk/rkward/rkward/plugins/distributions/geom_probabilities.xml
===================================================================
--- trunk/rkward/rkward/plugins/distributions/geom_probabilities.xml (rev 0)
+++ trunk/rkward/rkward/plugins/distributions/geom_probabilities.xml 2006-10-12 16:08:12 UTC (rev 862)
@@ -0,0 +1,33 @@
+<!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 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>
+</document>
Property changes on: trunk/rkward/rkward/plugins/distributions/geom_probabilities.xml
___________________________________________________________________
Name: svn:executable
+ *
Added: trunk/rkward/rkward/plugins/distributions/geom_quantiles.php
===================================================================
--- trunk/rkward/rkward/plugins/distributions/geom_quantiles.php (rev 0)
+++ trunk/rkward/rkward/plugins/distributions/geom_quantiles.php 2006-10-12 16:08:12 UTC (rev 862)
@@ -0,0 +1,26 @@
+<?
+function preprocess () {
+}
+
+function calculate () {
+ global $p;
+ $p = "c (" . preg_replace ("/[, ]+/", ", ", getRK_val ("p")) . ")";
+?>
+rk.temp = (qgeom (p = <? echo ($p); ?>, prob = <? getRK ("prob"); ?>, <? getRK ("tail"); ?>, <? getRK("logp"); ?>))
+<?
+}
+
+function printout () {
+ global $p;
+?>
+rk.header ("Geometric quantiles", list ("Vector of probabilities", "<? echo ($p); ?>", "Probability of success in each trial", "<? getRK ("prob"); ?>", "Tail", "<? getRK ("tail"); ?>", "Probabilities p are given as", "<? getRK ("logp"); ?>"))
+cat ("<h3>Geometric quantiles: ", rk.temp, "</h3>")
+<?
+}
+
+function cleanup () {
+?>
+rm (rk.temp)
+<?
+}
+?>
Property changes on: trunk/rkward/rkward/plugins/distributions/geom_quantiles.php
___________________________________________________________________
Name: svn:executable
+ *
Added: trunk/rkward/rkward/plugins/distributions/geom_quantiles.xml
===================================================================
--- trunk/rkward/rkward/plugins/distributions/geom_quantiles.xml (rev 0)
+++ trunk/rkward/rkward/plugins/distributions/geom_quantiles.xml 2006-10-12 16:08:12 UTC (rev 862)
@@ -0,0 +1,33 @@
+<!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 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>
+</document>
Property changes on: trunk/rkward/rkward/plugins/distributions/geom_quantiles.xml
___________________________________________________________________
Name: svn:executable
+ *
Added: trunk/rkward/rkward/plugins/distributions/gumbel_probabilities.php
===================================================================
--- trunk/rkward/rkward/plugins/distributions/gumbel_probabilities.php (rev 0)
+++ trunk/rkward/rkward/plugins/distributions/gumbel_probabilities.php 2006-10-12 16:08:12 UTC (rev 862)
@@ -0,0 +1,26 @@
+<?
+function preprocess () {
+}
+
+function calculate () {
+ global $q;
+ $q = "c (" . preg_replace ("/[, ]+/", ", ", getRK_val ("q")) . ")";
+?>
+rk.temp = (pweibull (q = exp(<? echo ($q); ?>), shape = <? getRK ("shape"); ?>, scale = <? getRK ("scale"); ?>, <? getRK ("tail"); ?>, <? getRK("logp"); ?>))
+<?
+}
+
+function printout () {
+ global $q;
+?>
+rk.header ("Gumbel probabilities", list ("Vector of quantiles", "<? echo ($q); ?>", "Shape", "<? getRK ("shape"); ?>", "Scale", "<? getRK ("scale"); ?>", "Tail", "<? getRK ("tail"); ?>", "Probabilities p are given as", "<? getRK ("logp"); ?>"))
+cat ("<h3>Gumbel probabilities: ", rk.temp, "</h3>")
+<?
+}
+
+function cleanup () {
+?>
+rm (rk.temp)
+<?
+}
+?>
Property changes on: trunk/rkward/rkward/plugins/distributions/gumbel_probabilities.php
___________________________________________________________________
Name: svn:executable
+ *
Added: trunk/rkward/rkward/plugins/distributions/gumbel_probabilities.xml
===================================================================
--- trunk/rkward/rkward/plugins/distributions/gumbel_probabilities.xml (rev 0)
+++ trunk/rkward/rkward/plugins/distributions/gumbel_probabilities.xml 2006-10-12 16:08:12 UTC (rev 862)
@@ -0,0 +1,34 @@
+<!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 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>
+</document>
Property changes on: trunk/rkward/rkward/plugins/distributions/gumbel_probabilities.xml
___________________________________________________________________
Name: svn:executable
+ *
Added: trunk/rkward/rkward/plugins/distributions/gumbel_quantiles.php
===================================================================
--- trunk/rkward/rkward/plugins/distributions/gumbel_quantiles.php (rev 0)
+++ trunk/rkward/rkward/plugins/distributions/gumbel_quantiles.php 2006-10-12 16:08:12 UTC (rev 862)
@@ -0,0 +1,26 @@
+<?
+function preprocess () {
+}
+
+function calculate () {
+ global $p;
+ $p = "c (" . preg_replace ("/[, ]+/", ", ", getRK_val ("p")) . ")";
+?>
+rk.temp = log(qweibull (p = <? echo ($p); ?>, shape = <? getRK ("shape"); ?>, scale = <? getRK ("scale"); ?>, <? getRK ("tail"); ?>, <? getRK("logp"); ?>))
+<?
+}
+
+function printout () {
+ global $p;
+?>
+rk.header ("Gumbel quantiles", list ("Vector of probabilities", "<? echo ($p); ?>", "Shape", "<? getRK ("shape"); ?>", "Scale", "<? getRK ("scale"); ?>", "Tail", "<? getRK ("tail"); ?>", "Probabilities p are given as", "<? getRK ("logp"); ?>"))
+cat ("<h3>Gumbel quantiles: ", rk.temp, "</h3>")
+<?
+}
+
+function cleanup () {
+?>
+rm (rk.temp)
+<?
+}
+?>
Property changes on: trunk/rkward/rkward/plugins/distributions/gumbel_quantiles.php
___________________________________________________________________
Name: svn:executable
+ *
Added: trunk/rkward/rkward/plugins/distributions/gumbel_quantiles.xml
===================================================================
--- trunk/rkward/rkward/plugins/distributions/gumbel_quantiles.xml (rev 0)
+++ trunk/rkward/rkward/plugins/distributions/gumbel_quantiles.xml 2006-10-12 16:08:12 UTC (rev 862)
@@ -0,0 +1,34 @@
+<!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 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>
+</document>
Property changes on: trunk/rkward/rkward/plugins/distributions/gumbel_quantiles.xml
___________________________________________________________________
Name: svn:executable
+ *
Added: trunk/rkward/rkward/plugins/distributions/hypergeometric_probabilities.php
===================================================================
--- trunk/rkward/rkward/plugins/distributions/hypergeometric_probabilities.php (rev 0)
+++ trunk/rkward/rkward/plugins/distributions/hypergeometric_probabilities.php 2006-10-12 16:08:12 UTC (rev 862)
@@ -0,0 +1,26 @@
+<?
+function preprocess () {
+}
+
+function calculate () {
+ global $q;
+ $q = "c (" . preg_replace ("/[, ]+/", ", ", getRK_val ("q")) . ")";
+?>
+rk.temp = (phyper (q = <? echo ($q); ?>, m = <? getRK ("m"); ?>, n = <? getRK ("n"); ?>, k = <? getRK ("k"); ?>, <? getRK ("tail"); ?>, <? getRK("logp"); ?>))
+<?
+}
+
+function printout () {
+ global $q;
+?>
+rk.header ("Hypergeometric probabilities", list ("Vector of quantiles", "<? echo ($q); ?>", "Number of white balls in the urn", "<? getRK ("m"); ?>", "Number of black balls in the urn", "<? getRK ("n"); ?>", "Number of balls drawn from the urn", "<? getRK ("k"); ?>", "Tail", "<? getRK ("tail"); ?>", "Probabilities p are given as", "<? getRK ("logp"); ?>"))
+cat ("<h3>Hypergeometric probabilities: ", rk.temp, "</h3>")
+<?
+}
+
+function cleanup () {
+?>
+rm (rk.temp)
+<?
+}
+?>
Property changes on: trunk/rkward/rkward/plugins/distributions/hypergeometric_probabilities.php
___________________________________________________________________
Name: svn:executable
+ *
Added: trunk/rkward/rkward/plugins/distributions/hypergeometric_probabilities.xml
===================================================================
--- trunk/rkward/rkward/plugins/distributions/hypergeometric_probabilities.xml (rev 0)
+++ trunk/rkward/rkward/plugins/distributions/hypergeometric_probabilities.xml 2006-10-12 16:08:12 UTC (rev 862)
@@ -0,0 +1,35 @@
+<!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 default_precision="2" type="real" initial="0.95" id="q" label="Vector 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>
+</document>
Property changes on: trunk/rkward/rkward/plugins/distributions/hypergeometric_probabilities.xml
___________________________________________________________________
Name: svn:executable
+ *
Added: trunk/rkward/rkward/plugins/distributions/hypergeometric_quantiles.php
===================================================================
--- trunk/rkward/rkward/plugins/distributions/hypergeometric_quantiles.php (rev 0)
+++ trunk/rkward/rkward/plugins/distributions/hypergeometric_quantiles.php 2006-10-12 16:08:12 UTC (rev 862)
@@ -0,0 +1,26 @@
+<?
+function preprocess () {
+}
+
+function calculate () {
+ global $p;
+ $p = "c (" . preg_replace ("/[, ]+/", ", ", getRK_val ("p")) . ")";
+?>
+rk.temp = (qhyper (p = <? echo ($p); ?>, m = <? getRK ("m"); ?>, n = <? getRK ("n"); ?>, k = <? getRK ("k"); ?>, <? getRK ("tail"); ?>, <? getRK("logp"); ?>))
+<?
+}
+
+function printout () {
+ global $p;
+?>
+rk.header ("Hypergeometric quantiles", list ("Vector of probabilities", "<? echo ($p); ?>", "Number of white balls in the urn", "<? getRK ("m"); ?>", "Number of black balls in the urn", "<? getRK ("n"); ?>", "Number of balls drawn from the urn", "<? getRK ("k"); ?>", "Tail", "<? getRK ("tail"); ?>", "Probabilities p are given as", "<? getRK ("logp"); ?>"))
+cat ("<h3>Hypergeometric quantiles: ", rk.temp, "</h3>")
+<?
+}
+
+function cleanup () {
+?>
+rm (rk.temp)
+<?
+}
+?>
Property changes on: trunk/rkward/rkward/plugins/distributions/hypergeometric_quantiles.php
___________________________________________________________________
Name: svn:executable
+ *
Added: trunk/rkward/rkward/plugins/distributions/hypergeometric_quantiles.xml
===================================================================
--- trunk/rkward/rkward/plugins/distributions/hypergeometric_quantiles.xml (rev 0)
+++ trunk/rkward/rkward/plugins/distributions/hypergeometric_quantiles.xml 2006-10-12 16:08:12 UTC (rev 862)
@@ -0,0 +1,35 @@
+<!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 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>
+</document>
Property changes on: trunk/rkward/rkward/plugins/distributions/hypergeometric_quantiles.xml
___________________________________________________________________
Name: svn:executable
+ *
Added: trunk/rkward/rkward/plugins/distributions/log_normal_probabilities.php
===================================================================
--- trunk/rkward/rkward/plugins/distributions/log_normal_probabilities.php (rev 0)
+++ trunk/rkward/rkward/plugins/distributions/log_normal_probabilities.php 2006-10-12 16:08:12 UTC (rev 862)
@@ -0,0 +1,26 @@
+<?
+function preprocess () {
+}
+
+function calculate () {
+ global $q;
+ $q = "c (" . preg_replace ("/[, ]+/", ", ", getRK_val ("q")) . ")";
+?>
+rk.temp = (plnorm (q = <? echo ($q); ?>, meanlog = <? getRK ("meanlog"); ?>, sdlog = <? getRK ("sdlog"); ?>, <? getRK ("tail"); ?>, <? getRK ("logp"); ?>))
+<?
+}
+
+function printout () {
+ global $q;
+?>
+rk.header ("Log Normal probabilities", list ("Vector of quantiles", "<? echo ($q); ?>", "meanlog", "<? getRK ("meanlog"); ?>", "sdlog", "<? getRK ("sdlog"); ?>", "Tail", "<? getRK ("tail"); ?>", "Probabilities p are given as", "<? getRK ("logp"); ?>"));
+cat ("<h3>Log Normal probabilities: ", rk.temp, "</h3>")
+<?
+}
+
+function cleanup () {
+?>
+rm (rk.temp)
+<?
+}
+?>
Added: trunk/rkward/rkward/plugins/distributions/log_normal_probabilities.xml
===================================================================
--- trunk/rkward/rkward/plugins/distributions/log_normal_probabilities.xml (rev 0)
+++ trunk/rkward/rkward/plugins/distributions/log_normal_probabilities.xml 2006-10-12 16:08:12 UTC (rev 862)
@@ -0,0 +1,33 @@
+<!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 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" 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>
+</document>
Added: trunk/rkward/rkward/plugins/distributions/log_normal_quantiles.php
===================================================================
--- trunk/rkward/rkward/plugins/distributions/log_normal_quantiles.php (rev 0)
+++ trunk/rkward/rkward/plugins/distributions/log_normal_quantiles.php 2006-10-12 16:08:12 UTC (rev 862)
@@ -0,0 +1,26 @@
+<?
+function preprocess () {
+}
+
+function calculate () {
+ global $p;
+ $p = "c (" . preg_replace ("/[, ]+/", ", ", getRK_val ("p")) . ")";
+?>
+rk.temp = (qlnorm (p = <? echo ($p); ?>, meanlog = <? getRK ("meanlog"); ?>, sdlog = <? getRK ("sdlog"); ?>, <? getRK ("tail"); ?>, <? getRK ("logp"); ?>))
+<?
+}
+
+function printout () {
+ global $p;
+?>
+rk.header ("Log Normal quantiles", list ("Vector of probabilities", "<? echo ($p); ?>", "meanlog", "<? getRK ("meanlog"); ?>", "sdlog", "<? getRK ("sdlog"); ?>", "Tail", "<? getRK ("tail"); ?>", "Probabilities p are given as", "<? getRK ("logp"); ?>"));
+cat ("<h3>Log Normal quantiles: ", rk.temp, "</h3>")
+<?
+}
+
+function cleanup () {
+?>
+rm (rk.temp)
+<?
+}
+?>
Added: trunk/rkward/rkward/plugins/distributions/log_normal_quantiles.xml
===================================================================
--- trunk/rkward/rkward/plugins/distributions/log_normal_quantiles.xml (rev 0)
+++ trunk/rkward/rkward/plugins/distributions/log_normal_quantiles.xml 2006-10-12 16:08:12 UTC (rev 862)
@@ -0,0 +1,33 @@
+<!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 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" 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>
+</document>
Added: trunk/rkward/rkward/plugins/distributions/logistic_probabilities.php
===================================================================
--- trunk/rkward/rkward/plugins/distributions/logistic_probabilities.php (rev 0)
+++ trunk/rkward/rkward/plugins/distributions/logistic_probabilities.php 2006-10-12 16:08:12 UTC (rev 862)
@@ -0,0 +1,26 @@
+<?
+function preprocess () {
+}
+
+function calculate () {
+ global $q;
+ $q = "c (" . preg_replace ("/[, ]+/", ", ", getRK_val ("q")) . ")";
+?>
+rk.temp = (plogis (q = <? echo ($q); ?>, location = <? getRK ("location"); ?>, scale = <? getRK ("scale"); ?>, <? getRK ("tail"); ?>, <? getRK("logp"); ?>))
+<?
+}
+
+function printout () {
+ global $q;
+?>
+rk.header ("Logistic probabilities", list ("Vector of quantiles", "<? echo ($q); ?>", "Location", "<? getRK ("location"); ?>", "Scale", "<? getRK ("scale"); ?>", "Tail", "<? getRK ("tail"); ?>", "Probabilities p are given as", "<? getRK ("logp"); ?>"))
+cat ("<h3>Logistic probabilities: ", rk.temp, "</h3>")
+<?
+}
+
+function cleanup () {
+?>
+rm (rk.temp)
+<?
+}
+?>
Property changes on: trunk/rkward/rkward/plugins/distributions/logistic_probabilities.php
___________________________________________________________________
Name: svn:executable
+ *
Added: trunk/rkward/rkward/plugins/distributions/logistic_probabilities.xml
===================================================================
--- trunk/rkward/rkward/plugins/distributions/logistic_probabilities.xml (rev 0)
+++ trunk/rkward/rkward/plugins/distributions/logistic_probabilities.xml 2006-10-12 16:08:12 UTC (rev 862)
@@ -0,0 +1,34 @@
+<!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 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="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>
+</document>
Property changes on: trunk/rkward/rkward/plugins/distributions/logistic_probabilities.xml
___________________________________________________________________
Name: svn:executable
+ *
Added: trunk/rkward/rkward/plugins/distributions/logistic_quantiles.php
===================================================================
--- trunk/rkward/rkward/plugins/distributions/logistic_quantiles.php (rev 0)
+++ trunk/rkward/rkward/plugins/distributions/logistic_quantiles.php 2006-10-12 16:08:12 UTC (rev 862)
@@ -0,0 +1,26 @@
+<?
+function preprocess () {
+}
+
+function calculate () {
+ global $p;
+ $p = "c (" . preg_replace ("/[, ]+/", ", ", getRK_val ("p")) . ")";
+?>
+rk.temp = (qlogis (p = <? echo ($p); ?>, location = <? getRK ("location"); ?>, scale = <? getRK ("scale"); ?>, <? getRK ("tail"); ?>, <? getRK("logp"); ?>))
+<?
+}
+
+function printout () {
+ global $p;
+?>
+rk.header ("Logistic quantiles", list ("Vector of probabilities", "<? echo ($p); ?>", "Location", "<? getRK ("location"); ?>", "Scale", "<? getRK ("scale"); ?>", "Tail", "<? getRK ("tail"); ?>", "Probabilities p are given as", "<? getRK ("logp"); ?>"))
+cat ("<h3>Logistic quantiles: ", rk.temp, "</h3>")
+<?
+}
+
+function cleanup () {
+?>
+rm (rk.temp)
+<?
+}
+?>
Property changes on: trunk/rkward/rkward/plugins/distributions/logistic_quantiles.php
___________________________________________________________________
Name: svn:executable
+ *
Added: trunk/rkward/rkward/plugins/distributions/logistic_quantiles.xml
===================================================================
--- trunk/rkward/rkward/plugins/distributions/logistic_quantiles.xml (rev 0)
+++ trunk/rkward/rkward/plugins/distributions/logistic_quantiles.xml 2006-10-12 16:08:12 UTC (rev 862)
@@ -0,0 +1,34 @@
+<!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 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="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>
+</document>
Property changes on: trunk/rkward/rkward/plugins/distributions/logistic_quantiles.xml
___________________________________________________________________
Name: svn:executable
+ *
Added: trunk/rkward/rkward/plugins/distributions/negative_binomial_probabilities.php
===================================================================
--- trunk/rkward/rkward/plugins/distributions/negative_binomial_probabilities.php (rev 0)
+++ trunk/rkward/rkward/plugins/distributions/negative_binomial_probabilities.php 2006-10-12 16:08:12 UTC (rev 862)
@@ -0,0 +1,27 @@
+<?
+function preprocess () {
+}
+
+function calculate () {
+ global $q;
+ $q = "c (" . preg_replace ("/[, ]+/", ", ", getRK_val ("q")) . ")";
+
+?>
+rk.temp = (pnbinom (q = <? echo ($q); ?>, size = <? getRK ("size"); ?>, prob = <? getRK ("prob"); ?>, <? getRK ("tail"); ?>, <? getRK("logp"); ?>))
+<?
+}
+
+function printout () {
+ global $q;
+?>
+rk.header ("Negative Binomial probabilities", list ("Vector of quantiles", "<? echo ($q); ?>", "Size", "<? getRK ("size"); ?>", "Probability of success in each trial", "<? getRK ("prob"); ?>", "Tail", "<? getRK ("tail"); ?>", "Probabilities p are given as", "<? getRK ("logp"); ?>"))
+cat ("<h3>Negative Binomial probabilities: ", rk.temp, "</h3>")
+<?
+}
+
+function cleanup () {
+?>
+rm (rk.temp)
+<?
+}
+?>
Property changes on: trunk/rkward/rkward/plugins/distributions/negative_binomial_probabilities.php
___________________________________________________________________
Name: svn:executable
+ *
Added: trunk/rkward/rkward/plugins/distributions/negative_binomial_probabilities.xml
===================================================================
--- trunk/rkward/rkward/plugins/distributions/negative_binomial_probabilities.xml (rev 0)
+++ trunk/rkward/rkward/plugins/distributions/negative_binomial_probabilities.xml 2006-10-12 16:08:12 UTC (rev 862)
@@ -0,0 +1,34 @@
+<!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 initial="0.95" id="q" label="Vector of quantiles"/>
+ <spinbox default_precision="2" type="real" min="0" initial="1" id="size" label="Target for number of successful trials"/>
+ <spinbox default_precision="2" type="real" min="0" initial="1" 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>
+</document>
Property changes on: trunk/rkward/rkward/plugins/distributions/negative_binomial_probabilities.xml
___________________________________________________________________
Name: svn:executable
+ *
Added: trunk/rkward/rkward/plugins/distributions/negative_binomial_quantiles.php
===================================================================
--- trunk/rkward/rkward/plugins/distributions/negative_binomial_quantiles.php (rev 0)
+++ trunk/rkward/rkward/plugins/distributions/negative_binomial_quantiles.php 2006-10-12 16:08:12 UTC (rev 862)
@@ -0,0 +1,26 @@
+<?
+function preprocess () {
+}
+
+function calculate () {
+ global $p;
+ $p = "c (" . preg_replace ("/[, ]+/", ", ", getRK_val ("p")) . ")";
+?>
+rk.temp = (qnbinom (q = <? echo ($p); ?>, size = <? getRK ("size"); ?>, prob = <? getRK ("prob"); ?>, <? getRK ("tail"); ?>, <? getRK("logp"); ?>))
+<?
+}
+
+function printout () {
+ global $p;
+?>
+rk.header ("Negative Binomial quantiles", list ("Vector of probabilities", "<? echo ($p); ?>", "Size", "<? getRK ("size"); ?>", "Probability of success in each trial", "<? getRK ("prob"); ?>", "Tail", "<? getRK ("tail"); ?>", "Probabilities p are given as", "<? getRK ("logp"); ?>"))
+cat ("<h3>Negative Binomial quantiles: ", rk.temp, "</h3>")
+<?
+}
+
+function cleanup () {
+?>
+rm (rk.temp)
+<?
+}
+?>
Property changes on: trunk/rkward/rkward/plugins/distributions/negative_binomial_quantiles.php
___________________________________________________________________
Name: svn:executable
+ *
Added: trunk/rkward/rkward/plugins/distributions/negative_binomial_quantiles.xml
===================================================================
--- trunk/rkward/rkward/plugins/distributions/negative_binomial_quantiles.xml (rev 0)
+++ trunk/rkward/rkward/plugins/distributions/negative_binomial_quantiles.xml 2006-10-12 16:08:12 UTC (rev 862)
@@ -0,0 +1,34 @@
+<!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 initial="0.95" id="p" label="Vector of probabilities"/>
+ <spinbox default_precision="2" type="real" min="0" initial="1" id="size" label="Target for number of successful trials"/>
+ <spinbox default_precision="2" type="real" min="0" initial="1" 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>
+</document>
Property changes on: trunk/rkward/rkward/plugins/distributions/negative_binomial_quantiles.xml
___________________________________________________________________
Name: svn:executable
+ *
Added: trunk/rkward/rkward/plugins/distributions/poisson_quantiles.php
===================================================================
--- trunk/rkward/rkward/plugins/distributions/poisson_quantiles.php (rev 0)
+++ trunk/rkward/rkward/plugins/distributions/poisson_quantiles.php 2006-10-12 16:08:12 UTC (rev 862)
@@ -0,0 +1,26 @@
+<?
+function preprocess () {
+}
+
+function calculate () {
+ global $p;
+ $p = "c (" . preg_replace ("/[, ]+/", ", ", getRK_val ("p")) . ")";
+?>
+rk.temp = (qpois (p = <? echo ($p); ?>, lambda = <? getRK ("lambda"); ?>, <? getRK ("tail"); ?>, <? getRK("logp"); ?>))
+<?
+}
+
+function printout () {
+ global $p;
+?>
+rk.header ("Poisson quantiles", list ("Vector of probabilities", "<? echo ($p); ?>", "Lambda", "<? getRK ("lambda"); ?>", "Tail", "<? getRK ("tail"); ?>", "Probabilities p are given as", "<? getRK ("logp"); ?>"))
+cat ("<h3>Poisson quantiles: ", rk.temp, "</h3>")
+<?
+}
+
+function cleanup () {
+?>
+rm (rk.temp)
+<?
+}
+?>
Property changes on: trunk/rkward/rkward/plugins/distributions/poisson_quantiles.php
___________________________________________________________________
Name: svn:executable
+ *
Added: trunk/rkward/rkward/plugins/distributions/poisson_quantiles.xml
===================================================================
--- trunk/rkward/rkward/plugins/distributions/poisson_quantiles.xml (rev 0)
+++ trunk/rkward/rkward/plugins/distributions/poisson_quantiles.xml 2006-10-12 16:08:12 UTC (rev 862)
@@ -0,0 +1,33 @@
+<!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 initial="0.95" id="p" label="Vector of probabilities"/>
+ <spinbox default_precision="2" type="real" 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>
+</document>
Property changes on: trunk/rkward/rkward/plugins/distributions/poisson_quantiles.xml
___________________________________________________________________
Name: svn:executable
+ *
Added: trunk/rkward/rkward/plugins/distributions/uniform_probabilities.php
===================================================================
--- trunk/rkward/rkward/plugins/distributions/uniform_probabilities.php (rev 0)
+++ trunk/rkward/rkward/plugins/distributions/uniform_probabilities.php 2006-10-12 16:08:12 UTC (rev 862)
@@ -0,0 +1,26 @@
+<?
+function preprocess () {
+}
+
+function calculate () {
+ global $q;
+ $q = "c (" . preg_replace ("/[, ]+/", ", ", getRK_val ("q")) . ")";
+?>
+rk.temp = (punif (q = <? echo ($q); ?>, min = <? getRK ("min"); ?>, max = <? getRK ("max"); ?>, <? getRK ("tail"); ?>, <? getRK("logp"); ?>))
+<?
+}
+
+function printout () {
+ global $q;
+?>
+rk.header ("Uniform probabilities", list ("Vector of quantiles", "<? echo ($q); ?>", "Lower limits of the distribution", "<? getRK ("min"); ?>", "Upper limits of the distribution", "<? getRK ("max"); ?>", "Tail", "<? getRK ("tail"); ?>", "Probabilities p are given as", "<? getRK ("logp"); ?>"))
+cat ("<h3>Uniform probabilities: ", rk.temp, "</h3>")
+<?
+}
+
+function cleanup () {
+?>
+rm (rk.temp)
+<?
+}
+?>
Property changes on: trunk/rkward/rkward/plugins/distributions/uniform_probabilities.php
___________________________________________________________________
Name: svn:executable
+ *
Added: trunk/rkward/rkward/plugins/distributions/uniform_probabilities.xml
===================================================================
--- trunk/rkward/rkward/plugins/distributions/uniform_probabilities.xml (rev 0)
+++ trunk/rkward/rkward/plugins/distributions/uniform_probabilities.xml 2006-10-12 16:08:12 UTC (rev 862)
@@ -0,0 +1,34 @@
+<!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 initial="0.95" id="q" label="Vector of quantiles"/>
+ <spinbox default_precision="2" type="real" initial="1" 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>
+</document>
Property changes on: trunk/rkward/rkward/plugins/distributions/uniform_probabilities.xml
___________________________________________________________________
Name: svn:executable
+ *
Added: trunk/rkward/rkward/plugins/distributions/uniform_quantiles.php
===================================================================
--- trunk/rkward/rkward/plugins/distributions/uniform_quantiles.php (rev 0)
+++ trunk/rkward/rkward/plugins/distributions/uniform_quantiles.php 2006-10-12 16:08:12 UTC (rev 862)
@@ -0,0 +1,26 @@
+<?
+function preprocess () {
+}
+
+function calculate () {
+ global $p;
+ $p = "c (" . preg_replace ("/[, ]+/", ", ", getRK_val ("p")) . ")";
+?>
+rk.temp = (qunif (p = <? echo ($p); ?>, min = <? getRK ("min"); ?>, max = <? getRK ("max"); ?>, <? getRK ("tail"); ?>, <? getRK("logp"); ?>))
+<?
+}
+
+function printout () {
+ global $p;
+?>
+rk.header ("Uniform quantiles", list ("Vector of probabilities", "<? echo ($p); ?>", "Lower limits of the distribution", "<? getRK ("min"); ?>", "Upper limits of the distribution", "<? getRK ("max"); ?>", "Tail", "<? getRK ("tail"); ?>", "Probabilities p are given as", "<? getRK ("logp"); ?>"))
+cat ("<h3>Uniform quantiles: ", rk.temp, "</h3>")
+<?
+}
+
+function cleanup () {
+?>
+rm (rk.temp)
+<?
+}
+?>
Property changes on: trunk/rkward/rkward/plugins/distributions/uniform_quantiles.php
___________________________________________________________________
Name: svn:executable
+ *
Added: trunk/rkward/rkward/plugins/distributions/uniform_quantiles.xml
===================================================================
--- trunk/rkward/rkward/plugins/distributions/uniform_quantiles.xml (rev 0)
+++ trunk/rkward/rkward/plugins/distributions/uniform_quantiles.xml 2006-10-12 16:08:12 UTC (rev 862)
@@ -0,0 +1,34 @@
+<!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 initial="0.95" id="p" label="Vector of probabilities"/>
+ <spinbox default_precision="2" type="real" initial="1" 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>
+</document>
Property changes on: trunk/rkward/rkward/plugins/distributions/uniform_quantiles.xml
___________________________________________________________________
Name: svn:executable
+ *
Added: trunk/rkward/rkward/plugins/distributions/weibull_probabilities.php
===================================================================
--- trunk/rkward/rkward/plugins/distributions/weibull_probabilities.php (rev 0)
+++ trunk/rkward/rkward/plugins/distributions/weibull_probabilities.php 2006-10-12 16:08:12 UTC (rev 862)
@@ -0,0 +1,26 @@
+<?
+function preprocess () {
+}
+
+function calculate () {
+ global $q;
+ $q = "c (" . preg_replace ("/[, ]+/", ", ", getRK_val ("q")) . ")";
+?>
+rk.temp = (pweibull (q = <? echo ($q); ?>, shape = <? getRK ("shape"); ?>, scale = <? getRK ("scale"); ?>, <? getRK ("tail"); ?>, <? getRK("logp"); ?>))
+<?
+}
+
+function printout () {
+ global $q;
+?>
+rk.header ("Weibull probabilities", list ("Vector of quantiles", "<? echo ($q); ?>", "Shape", "<? getRK ("shape"); ?>", "Scale", "<? getRK ("scale"); ?>", "Tail", "<? getRK ("tail"); ?>", "Probabilities p are given as", "<? getRK ("logp"); ?>"))
+cat ("<h3>Weibull probabilities: ", rk.temp, "</h3>")
+<?
+}
+
+function cleanup () {
+?>
+rm (rk.temp)
+<?
+}
+?>
Property changes on: trunk/rkward/rkward/plugins/distributions/weibull_probabilities.php
___________________________________________________________________
Name: svn:executable
+ *
Added: trunk/rkward/rkward/plugins/distributions/weibull_probabilities.xml
===================================================================
--- trunk/rkward/rkward/plugins/distributions/weibull_probabilities.xml (rev 0)
+++ trunk/rkward/rkward/plugins/distributions/weibull_probabilities.xml 2006-10-12 16:08:12 UTC (rev 862)
@@ -0,0 +1,34 @@
+<!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 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>
+</document>
Property changes on: trunk/rkward/rkward/plugins/distributions/weibull_probabilities.xml
___________________________________________________________________
Name: svn:executable
+ *
Added: trunk/rkward/rkward/plugins/distributions/weibull_quantiles.php
===================================================================
--- trunk/rkward/rkward/plugins/distributions/weibull_quantiles.php (rev 0)
+++ trunk/rkward/rkward/plugins/distributions/weibull_quantiles.php 2006-10-12 16:08:12 UTC (rev 862)
@@ -0,0 +1,26 @@
+<?
+function preprocess () {
+}
+
+function calculate () {
+ global $p;
+ $p = "c (" . preg_replace ("/[, ]+/", ", ", getRK_val ("p")) . ")";
+?>
+rk.temp = (qweibull (p = <? echo ($p); ?>, shape = <? getRK ("shape"); ?>, scale = <? getRK ("scale"); ?>, <? getRK ("tail"); ?>, <? getRK("logp"); ?>))
+<?
+}
+
+function printout () {
+ global $p;
+?>
+rk.header ("Weibull quantiles", list ("Vector of probabilities", "<? echo ($p); ?>", "Shape", "<? getRK ("shape"); ?>", "Scale", "<? getRK ("scale"); ?>", "Tail", "<? getRK ("tail"); ?>", "Probabilities p are given as", "<? getRK ("logp"); ?>"))
+cat ("<h3>Weibull quantiles: ", rk.temp, "</h3>")
+<?
+}
+
+function cleanup () {
+?>
+rm (rk.temp)
+<?
+}
+?>
Property changes on: trunk/rkward/rkward/plugins/distributions/weibull_quantiles.php
___________________________________________________________________
Name: svn:executable
+ *
Added: trunk/rkward/rkward/plugins/distributions/weibull_quantiles.xml
===================================================================
--- trunk/rkward/rkward/plugins/distributions/weibull_quantiles.xml (rev 0)
+++ trunk/rkward/rkward/plugins/distributions/weibull_quantiles.xml 2006-10-12 16:08:12 UTC (rev 862)
@@ -0,0 +1,34 @@
+<!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 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>
+</document>
Property changes on: trunk/rkward/rkward/plugins/distributions/weibull_quantiles.xml
___________________________________________________________________
Name: svn:executable
+ *
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