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

kapatp at users.sourceforge.net kapatp at users.sourceforge.net
Thu Mar 22 08:42:07 UTC 2007


Revision: 1698
          http://svn.sourceforge.net/rkward/?rev=1698&view=rev
Author:   kapatp
Date:     2007-03-22 01:42:06 -0700 (Thu, 22 Mar 2007)

Log Message:
-----------
t and Weibull CLT plugins. More transparency behind the mean and variance calculations as compared to other CLT plugins.

Modified Paths:
--------------
    trunk/rkward/rkward/plugins/under_development.pluginmap

Added Paths:
-----------
    trunk/rkward/rkward/plugins/distributions/clt/plot_t_clt.php
    trunk/rkward/rkward/plugins/distributions/clt/plot_t_clt.rkh
    trunk/rkward/rkward/plugins/distributions/clt/plot_t_clt.xml
    trunk/rkward/rkward/plugins/distributions/clt/plot_weibull_clt.php
    trunk/rkward/rkward/plugins/distributions/clt/plot_weibull_clt.rkh
    trunk/rkward/rkward/plugins/distributions/clt/plot_weibull_clt.xml

Added: trunk/rkward/rkward/plugins/distributions/clt/plot_t_clt.php
===================================================================
--- trunk/rkward/rkward/plugins/distributions/clt/plot_t_clt.php	                        (rev 0)
+++ trunk/rkward/rkward/plugins/distributions/clt/plot_t_clt.php	2007-03-22 08:42:06 UTC (rev 1698)
@@ -0,0 +1,122 @@
+<?php
+function preprocess () {
+}
+
+function calculate () {
+}
+
+function printout () {
+	doPrintout (true);
+}
+
+function preview () {
+	preprocess ();
+	calculate ();
+	doPrintout (false);
+}
+
+function doPrintout ($final) {
+	$fun = getRK_val ("function");
+	$nAvg = getRK_val ("nAvg"); // number of observations to calculate the averages
+	$nDist = getRK_val ("nDist"); // number of sample to construct the distribution
+
+	$scalenorm = getRK_val ("scalenorm"); // if variables should to normalised..
+	$drawnorm = getRK_val ("drawnorm");
+
+	// We need df>2 for variance to exist. Taken care of in xml file: using "is_var_gt2" in <logic>
+?>
+# parameters:
+df <- <? echo(getRK_val ("df")."\n"); ?>
+ncp <- <? echo(getRK_val ("ncp")."\n"); ?>
+<?
+	if ($scalenorm || $drawnorm) {
+		if ($ncp == "0") { // mean and variance of the distribution of sample averages
+?>
+# mean and variances of the distribution of sample averages:
+avg.exp <- 0;
+avg.var <- df/((df-2)*<? echo($nAvg); ?>)
+<?
+		} else {
+?>
+# mean and variances of the distribution of sample averages:
+tmp.var <- gamma((df-1)/2)/gamma(df/2)
+avg.exp <- ncp*sqrt(df/2)*tmp.var
+avg.var <- (df*(1+ncp^2)/(df-2) - ncp^2*df*tmp.var^2/2)/<? echo($nAvg); ?>
+<?
+		}
+	}
+	// Mean and Std.deviantion of Normal distribution:
+	if ($scalenorm) $normMuSigma_tag = "";
+	else	$normMuSigma_tag = ", mean = avg.exp, sd = sqrt(avg.var)";
+
+	$plotoptions = getRK_val("plotoptions.code.printout");
+	if ($fun == "hist") {
+		$normFun = "dnorm"; // draw normal density on the histogram
+		$histcalcoptions = getRK_val ("histogram_opt.code.calculate"); // options that goes into hist() function
+		$histplotoptions = getRK_val ("histogram_opt.code.printout"); // options that goes into plot.histogram()
+		$histplotoptions .= $plotoptions; // generic plot options
+	} elseif ($fun == "dist") {
+		$normFun = "pnorm"; // draw normal cdf on the ecdf plot
+		$plotoptions .= getRK_val ("dist_stepfun.code.printout"); // plot.ecdf() and plot.stepfun() options
+	}
+
+	$yLim = ""; // initialise the ylim option
+?>
+# generate the entire data:
+data <- matrix(rt(n=<? echo ($nAvg*$nDist); ?>, df=df, ncp=ncp), nrow=<? echo ($nAvg); ?>);
+# get the sample averages:
+avg <- colMeans(data);
+<?
+	if ($scalenorm) {
+?>
+# normalise the variables:
+avg <- (avg - avg.exp)/sqrt(avg.var);
+<?
+	}
+	if ($drawnorm) {
+?>
+# generate random normal samples:
+normX <- seq(from=min(avg), to=max(avg), length=<? echo ($nDist); ?>);
+normY <- <? echo ($normFun); ?> (normX<? echo ($normMuSigma_tag); ?>);
+<?
+	}
+	if ($fun == "hist") {
+?>
+dist.hist <- hist(avg, plot=FALSE<? echo ($histcalcoptions); ?>);
+<?
+	if ($drawnorm) {
+?>
+# calculate the ylims appropriately:
+ylim <- c(0,max(c(dist.hist$density, normY)));
+<?
+		$yLim = ', ylim=ylim';
+		}
+	}
+	if ($final) {
+?>
+rk.graph.on ()
+try ({
+<?
+	}
+  	if ($fun == "hist") {
+?>
+	plot(dist.hist<? echo ($yLim); echo ($histplotoptions); ?>)
+<?
+	} elseif ($fun == "dist") {
+?>
+	plot(ecdf(avg)<? echo ($plotoptions); ?>)
+<?
+	}
+	if ($drawnorm) {
+?>
+	lines (x=normX, y=normY, type="<? getRK ("normpointtype"); ?>"<? getRK ("normlinecol.code.printout"); ?>)
+<?
+	}
+	if ($final) {
+?>
+	})
+rk.graph.off ()
+<?
+	}
+}
+?>

Added: trunk/rkward/rkward/plugins/distributions/clt/plot_t_clt.rkh
===================================================================
--- trunk/rkward/rkward/plugins/distributions/clt/plot_t_clt.rkh	                        (rev 0)
+++ trunk/rkward/rkward/plugins/distributions/clt/plot_t_clt.rkh	2007-03-22 08:42:06 UTC (rev 1698)
@@ -0,0 +1,34 @@
+<!DOCTYPE rkhelp>
+<document>
+	<summary>
+		Normal approximation to t Sample averages. For any generic option refer to the RKWard help page on <link href="rkward://component/plot_binomial_clt"/> for detailed descriptions.
+	</summary>
+	<usage>
+		Choose the t parameter, the sample sizes needed for CLT and a choice of function.
+	</usage>
+	<settings>
+		<caption id="tab_plot_distrib_clt"/>
+		<setting id="frame_tparam">See RKWard help on <link href="rkward://component/plot_t_distribution"/>. For the variance to exist, the 'Degrees of freedom' parameter has to be greater than 2.</setting>
+		<setting id="nAvg"></setting>
+		<setting id="nDist"></setting>
+		<setting id="function"></setting>
+		<setting id="scalenorm"></setting>
+		<setting id="drawnorm">For all the above see 'Binomial CLT'.</setting>
+		<setting id="normpointtype">Pointtype for the Normal curve.</setting>
+		<setting id="normlinecol">Color of the Normal curve.</setting>
+		<setting id="plotoptions">Various plot options.</setting>
+		<setting id="preview">Preview button.</setting>
+		<caption id="tab_histoptions"/>
+		<setting id="histogram_opt">See Binomial CLT for details.</setting>
+		<caption id="tab_distfunction"/>
+		<setting id="dist_stepfun">See Binomial CLT for details.</setting>
+	</settings>
+	<related>
+		<ul>
+			<li><link href="rkward://component/plot_binomial_clt"/></li>
+			<li><link href="rkward://component/plot_t_distribution"/></li>
+			<li><link href="rkward://rhelp/TDist"/></li>
+			<li><link href="rkward://rhelp/Normal"/></li>
+		</ul>
+	</related>
+</document>

Added: trunk/rkward/rkward/plugins/distributions/clt/plot_t_clt.xml
===================================================================
--- trunk/rkward/rkward/plugins/distributions/clt/plot_t_clt.xml	                        (rev 0)
+++ trunk/rkward/rkward/plugins/distributions/clt/plot_t_clt.xml	2007-03-22 08:42:06 UTC (rev 1698)
@@ -0,0 +1,89 @@
+<!DOCTYPE rkplugin>
+<document>
+	<code file="plot_t_clt.php" />
+	<help file="plot_t_clt.rkh" />
+	<logic>
+		<set id="plotoptions.allow_log" to="false"/>
+		<set id="plotoptions.allow_type" to="false"/>
+		<set id="plotoptions.default_main" to="t"/>
+		<set id="plotoptions.default_xlab" to="Sample Averages"/>
+
+		<convert id="is_var_gt2" sources="df.real" mode="range" min="2.01" require_true="true"/>
+		<convert id="is_var_leq2" sources="is_var_gt2" mode="equals" standard="false"/>
+		<connect client="var_gt2_warn.visible" governor="is_var_leq2"/>
+
+		<set id="normlinecol.default_color" to="red" />
+
+		<set id="histogram_opt.varname" to="avg" />
+		<set id="histogram_opt.allow_freq" to="false" />
+		<set id="histogram_opt.allow_barlabels" to="true" />
+		<set id="histogram_opt.allow_addtoplot" to="false" />
+
+		<convert id="isHistogram" sources="function.string" mode="equals" standard="hist"/>
+		<connect client="tab_histoptions.enabled" governor="isHistogram"/>
+
+		<convert id="isDist" sources="function.string" mode="equals" standard="dist"/>
+		<connect client="tab_distfunction.enabled" governor="isDist"/>
+
+		<connect client="normpointtype.enabled" governor="drawnorm.state"/>
+		<connect client="normlinecol.color.enabled" governor="drawnorm.state"/>
+
+		<set id="dist_stepfun.allow_addtoplot" to="false" />
+		<set id="dist_stepfun.default_dopoints" to="false" />
+		<set id="dist_stepfun.allow_col01line" to="true"/>
+</logic>
+	<dialog label="Central Limit Theorem: t to Normal" >
+		<tabbook>
+			<tab id="tab_plot_distrib_clt" label="Parameters" >
+				<row>
+					<column>
+						<frame label="CLT Samples" >
+							<spinbox type="integer" min = "1" id="nAvg" initial="10" label="Samples for Average" />
+							<spinbox type="integer" min = "10" id="nDist" initial="1000" label="Samples for distribution" />
+						</frame>
+						<frame id="frame_tparam" label="t Parameters">
+								<spinbox default_precision="2" type="real" id="df" min="0.01" initial="2.01" label="Degrees of freedom" />
+								<spinbox default_precision="2" type="real" id="ncp" initial="0" label="Non-centrality parameter" />
+						</frame>
+					</column>
+					<column>
+						<radio id="function" label="Choose type of function plot" >
+							<option value="hist" label="Histogram and Density"  checked="true"/>
+							<option value="dist" label="ECDF and Distribution"/>
+						</radio>
+						<checkbox id="scalenorm" label="Use normalised random variable" value="1" value_unchecked="0"/>
+						<frame id="frame_lineoptions" label="Nomral Curve Options">
+							<checkbox id="drawnorm" label="Draw normal curve" value="1" value_unchecked="0" checked="true"/>
+							<dropdown id="normpointtype" label="Type of points/lines" >
+								<option value="p" label="Individual points " />
+								<option value="l" label="Lines" checked="true"/>
+								<option value="b" label="Points connected by lines (both)" />
+								<option value="o" label="Points overlaid by lines " />
+								<option value="h" label="Vertical lines (high-density)" />
+								<option value="s" label="Step-function on left edge" />
+								<option value="S" label="Step-function on right edge" />
+							</dropdown>
+							<embed id="normlinecol" component="rkward::color_chooser" label="Color" />
+						</frame>
+					</column>
+				</row>
+				<text id="var_gt2_warn">ERROR: Variance for t distribution exists only when the degress freedom > 2.</text>
+			<stretch/>
+				<row>
+					<embed id="plotoptions" component="rkward::plot_options" as_button="true" label="Plot Options" />
+					<preview id="preview" label="Preview"/>
+				</row>
+			</tab>
+
+			<tab id="tab_histoptions" label="Histogram">
+				<embed id="histogram_opt" component="rkward::histogram_options" label="Histogram Options"/>
+			</tab>
+
+			<tab id="tab_distfunction" label="ECDF options">
+				<embed id="dist_stepfun" component="rkward::plot_stepfun_options" label=""/>
+				<stretch/>
+			</tab>
+
+		</tabbook>
+	</dialog>
+</document>

Added: trunk/rkward/rkward/plugins/distributions/clt/plot_weibull_clt.php
===================================================================
--- trunk/rkward/rkward/plugins/distributions/clt/plot_weibull_clt.php	                        (rev 0)
+++ trunk/rkward/rkward/plugins/distributions/clt/plot_weibull_clt.php	2007-03-22 08:42:06 UTC (rev 1698)
@@ -0,0 +1,113 @@
+<?php
+function preprocess () {
+}
+
+function calculate () {
+}
+
+function printout () {
+	doPrintout (true);
+}
+
+function preview () {
+	preprocess ();
+	calculate ();
+	doPrintout (false);
+}
+
+function doPrintout ($final) {
+	$fun = getRK_val ("function");
+	$nAvg = getRK_val ("nAvg"); // number of observations to calculate the averages
+	$nDist = getRK_val ("nDist"); // number of sample to construct the distribution
+
+	$scalenorm = getRK_val ("scalenorm"); // if variables should to normalised..
+	$drawnorm = getRK_val ("drawnorm");
+
+?>
+# parameters:
+scale <- <? echo(getRK_val ("scale")."\n"); ?>
+shape <- <? echo(getRK_val ("shape")."\n"); ?>
+<?
+	if ($scalenorm || $drawnorm) {
+?>
+# mean and variances of the distribution of sample averages:
+avg.exp <- scale*gamma(1+1/shape)
+avg.var <- (scale^2*gamma(1+2/shape) - avg.exp^2)/<? echo ($nAvg); ?>
+
+<?
+	}
+	// Mean and Std.deviantion of Normal distribution:
+	if ($scalenorm) $normMuSigma_tag = "";
+	else	$normMuSigma_tag = ", mean = avg.exp, sd = sqrt(avg.var)";
+
+	$plotoptions = getRK_val("plotoptions.code.printout");
+	if ($fun == "hist") {
+		$normFun = "dnorm"; // draw normal density on the histogram
+		$histcalcoptions = getRK_val ("histogram_opt.code.calculate"); // options that goes into hist() function
+		$histplotoptions = getRK_val ("histogram_opt.code.printout"); // options that goes into plot.histogram()
+		$histplotoptions .= $plotoptions; // generic plot options
+	} elseif ($fun == "dist") {
+		$normFun = "pnorm"; // draw normal cdf on the ecdf plot
+		$plotoptions .= getRK_val ("dist_stepfun.code.printout"); // plot.ecdf() and plot.stepfun() options
+	}
+
+	$yLim = ""; // initialise the ylim option
+?>
+# generate the entire data:
+data <- matrix(rweibull(n=<? echo ($nAvg*$nDist); ?>, shape=shape, scale=scale), nrow=<? echo ($nAvg); ?>);
+# get the sample averages:
+avg <- colMeans(data);
+<?
+	if ($scalenorm) {
+?>
+# normalise the variables:
+avg <- (avg - avg.exp)/sqrt(avg.var);
+<?
+	}
+	if ($drawnorm) {
+?>
+# generate random normal samples:
+normX <- seq(from=min(avg), to=max(avg), length=<? echo ($nDist); ?>);
+normY <- <? echo ($normFun); ?> (normX<? echo ($normMuSigma_tag); ?>);
+<?
+	}
+	if ($fun == "hist") {
+?>
+dist.hist <- hist(avg, plot=FALSE<? echo ($histcalcoptions); ?>);
+<?
+	if ($drawnorm) {
+?>
+# calculate the ylims appropriately:
+ylim <- c(0,max(c(dist.hist$density, normY)));
+<?
+		$yLim = ', ylim=ylim';
+		}
+	}
+	if ($final) {
+?>
+rk.graph.on ()
+try ({
+<?
+	}
+  	if ($fun == "hist") {
+?>
+	plot(dist.hist<? echo ($yLim); echo ($histplotoptions); ?>)
+<?
+	} elseif ($fun == "dist") {
+?>
+	plot(ecdf(avg)<? echo ($plotoptions); ?>)
+<?
+	}
+	if ($drawnorm) {
+?>
+	lines (x=normX, y=normY, type="<? getRK ("normpointtype"); ?>"<? getRK ("normlinecol.code.printout"); ?>)
+<?
+	}
+	if ($final) {
+?>
+	})
+rk.graph.off ()
+<?
+	}
+}
+?>

Added: trunk/rkward/rkward/plugins/distributions/clt/plot_weibull_clt.rkh
===================================================================
--- trunk/rkward/rkward/plugins/distributions/clt/plot_weibull_clt.rkh	                        (rev 0)
+++ trunk/rkward/rkward/plugins/distributions/clt/plot_weibull_clt.rkh	2007-03-22 08:42:06 UTC (rev 1698)
@@ -0,0 +1,34 @@
+<!DOCTYPE rkhelp>
+<document>
+	<summary>
+		Normal approximation to Weibull Sample averages. For any generic option refer to the RKWard help page on <link href="rkward://component/plot_binomial_clt"/> for detailed descriptions.
+	</summary>
+	<usage>
+		Choose the Weibull parameter, the sample sizes needed for CLT and a choice of function.
+	</usage>
+	<settings>
+		<caption id="tab_plot_distrib_clt"/>
+		<setting id="frame_weibullparam">See RKWard help on <link href="rkward://component/plot_weibull_distribution"/>.</setting>
+		<setting id="nAvg"></setting>
+		<setting id="nDist"></setting>
+		<setting id="function"></setting>
+		<setting id="scalenorm"></setting>
+		<setting id="drawnorm">For all the above see 'Binomial CLT'.</setting>
+		<setting id="normpointtype">Pointtype for the Normal curve.</setting>
+		<setting id="normlinecol">Color of the Normal curve.</setting>
+		<setting id="plotoptions">Various plot options.</setting>
+		<setting id="preview">Preview button.</setting>
+		<caption id="tab_histoptions"/>
+		<setting id="histogram_opt">See Binomial CLT for details.</setting>
+		<caption id="tab_distfunction"/>
+		<setting id="dist_stepfun">See Binomial CLT for details.</setting>
+	</settings>
+	<related>
+		<ul>
+			<li><link href="rkward://component/plot_binomial_clt"/></li>
+			<li><link href="rkward://component/plot_weibull_distribution"/></li>
+			<li><link href="rkward://rhelp/Weibull"/></li>
+			<li><link href="rkward://rhelp/Normal"/></li>
+		</ul>
+	</related>
+</document>

Added: trunk/rkward/rkward/plugins/distributions/clt/plot_weibull_clt.xml
===================================================================
--- trunk/rkward/rkward/plugins/distributions/clt/plot_weibull_clt.xml	                        (rev 0)
+++ trunk/rkward/rkward/plugins/distributions/clt/plot_weibull_clt.xml	2007-03-22 08:42:06 UTC (rev 1698)
@@ -0,0 +1,84 @@
+<!DOCTYPE rkplugin>
+<document>
+	<code file="plot_weibull_clt.php" />
+	<help file="plot_weibull_clt.rkh" />
+	<logic>
+		<set id="plotoptions.allow_log" to="false"/>
+		<set id="plotoptions.allow_type" to="false"/>
+		<set id="plotoptions.default_main" to="Weibull"/>
+		<set id="plotoptions.default_xlab" to="Sample Averages"/>
+
+		<set id="normlinecol.default_color" to="red" />
+
+		<set id="histogram_opt.varname" to="avg" />
+		<set id="histogram_opt.allow_freq" to="false" />
+		<set id="histogram_opt.allow_barlabels" to="true" />
+		<set id="histogram_opt.allow_addtoplot" to="false" />
+
+		<convert id="isHistogram" sources="function.string" mode="equals" standard="hist"/>
+		<connect client="tab_histoptions.enabled" governor="isHistogram"/>
+
+		<convert id="isDist" sources="function.string" mode="equals" standard="dist"/>
+		<connect client="tab_distfunction.enabled" governor="isDist"/>
+
+		<connect client="normpointtype.enabled" governor="drawnorm.state"/>
+		<connect client="normlinecol.color.enabled" governor="drawnorm.state"/>
+
+		<set id="dist_stepfun.allow_addtoplot" to="false" />
+		<set id="dist_stepfun.default_dopoints" to="false" />
+		<set id="dist_stepfun.allow_col01line" to="true"/>
+</logic>
+	<dialog label="Central Limit Theorem: Weibull to Normal" >
+		<tabbook>
+			<tab id="tab_plot_distrib_clt" label="Parameters" >
+				<row>
+					<column>
+						<frame label="CLT Samples" >
+							<spinbox type="integer" min = "1" id="nAvg" initial="10" label="Samples for Average" />
+							<spinbox type="integer" min = "10" id="nDist" initial="1000" label="Samples for distribution" />
+						</frame>
+						<frame id="frame_weibullparam" label="Weibull Parameters">
+							<spinbox default_precision="2" type="real" id="shape" initial="2" min ="0.01" label="Shape" />
+							<spinbox default_precision="2" type="real" id="scale" initial="1" min ="0.01" label="Scale" />
+						</frame>
+					</column>
+					<column>
+						<radio id="function" label="Choose type of function plot" >
+							<option value="hist" label="Histogram and Density"  checked="true"/>
+							<option value="dist" label="ECDF and Distribution"/>
+						</radio>
+						<checkbox id="scalenorm" label="Use normalised random variable" value="1" value_unchecked="0"/>
+						<frame id="frame_lineoptions" label="Nomral Curve Options">
+							<checkbox id="drawnorm" label="Draw normal curve" value="1" value_unchecked="0" checked="true"/>
+							<dropdown id="normpointtype" label="Type of points/lines" >
+								<option value="p" label="Individual points " />
+								<option value="l" label="Lines" checked="true"/>
+								<option value="b" label="Points connected by lines (both)" />
+								<option value="o" label="Points overlaid by lines " />
+								<option value="h" label="Vertical lines (high-density)" />
+								<option value="s" label="Step-function on left edge" />
+								<option value="S" label="Step-function on right edge" />
+							</dropdown>
+							<embed id="normlinecol" component="rkward::color_chooser" label="Color" />
+						</frame>
+					</column>
+				</row>
+			<stretch/>
+				<row>
+					<embed id="plotoptions" component="rkward::plot_options" as_button="true" label="Plot Options" />
+					<preview id="preview" label="Preview"/>
+				</row>
+			</tab>
+
+			<tab id="tab_histoptions" label="Histogram">
+				<embed id="histogram_opt" component="rkward::histogram_options" label="Histogram Options"/>
+			</tab>
+
+			<tab id="tab_distfunction" label="ECDF options">
+				<embed id="dist_stepfun" component="rkward::plot_stepfun_options" label=""/>
+				<stretch/>
+			</tab>
+
+		</tabbook>
+	</dialog>
+</document>

Modified: trunk/rkward/rkward/plugins/under_development.pluginmap
===================================================================
--- trunk/rkward/rkward/plugins/under_development.pluginmap	2007-03-22 06:06:50 UTC (rev 1697)
+++ trunk/rkward/rkward/plugins/under_development.pluginmap	2007-03-22 08:42:06 UTC (rev 1698)
@@ -17,7 +17,9 @@
 		<component type="standard" id="plot_logistic_clt" file="distributions/clt/plot_logistic_clt.xml" label="Logistic CLT" />
 		<component type="standard" id="plot_log_normal_clt" file="distributions/clt/plot_lognormal_clt.xml" label="Log Normal CLT" />
 		<component type="standard" id="plot_normal_clt" file="distributions/clt/plot_normal_clt.xml" label="Normal CLT" />
+		<component type="standard" id="plot_t_clt" file="distributions/clt/plot_t_clt.xml" label="t CLT" />
 		<component type="standard" id="plot_uniform_clt" file="distributions/clt/plot_uniform_clt.xml" label="Uniform CLT" />
+		<component type="standard" id="plot_weibull_clt" file="distributions/clt/plot_weibull_clt.xml" label="Weibull CLT" />
 
 		<component type="standard" id="moment" file="analysis/moments/moment.xml" label="Moment" />
 		<component type="standard" id="bonett_test" file="analysis/moments/bonett_test.xml" label="Bonett-Seier test of Geary's kurtosis" />
@@ -110,9 +112,15 @@
 				<menu id="normal_distribution" label="Normal">
 					<entry component="plot_normal_clt" label="Normal CLT" index="2"/>
 				</menu>
+				<menu id="t_distribution" label="t">
+					<entry component="plot_t_clt" label="t CLT" index="2"/>
+				</menu>
 				<menu id="uniform_distribution" label="Uniform">
 					<entry component="plot_uniform_clt" label="Uniform CLT" index="2"/>
 				</menu>
+				<menu id="weibull_distribution" label="Weibull">
+					<entry component="plot_weibull_clt" label="Weibull CLT" index="2"/>
+				</menu>
 			</menu>
 			<menu id="univariate_discrete_distributions" label="Univariate discrete distributions" index="2">
 				<menu id="binomial_distribution" label="Binomial" index="0">


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