33< html xmlns ="http://www.w3.org/1999/xhtml " lang ="en " xml:lang ="en ">
44 < head >
55 < meta http-equiv ="content-type " content ="text/html; charset=utf-8 " />
6- < meta name ="date " content ="2024-04-28 "/>
6+ < meta name ="date " content ="2024-05-07 "/>
77 < meta name ="generator " content ="generate_html 0.3.3 " />
88 < meta name ="author " content ="Andrew Penn " />
99 < meta name ="description " content ="A package for statistical analysis using resampling methods. " />
@@ -468,8 +468,8 @@ <h3><a name="10">Demonstration 10</a></h3>
468468< p > Produces the following output</ p >
469469< pre class ="example "> ci =
470470
471- 0.058644 -0.26038
472- 0.81295 0.60855 </ pre >
471+ -0.61473 -0.41387
472+ 0.57767 0.869 </ pre >
473473</ div >
474474
475475< h3 > < a name ="11 "> Demonstration 11</ a > </ h3 >
@@ -515,18 +515,18 @@ <h3><a name="11">Demonstration 11</a></h3>
515515
516516 % Calculations using the 'boot' and 'bootstrap' packages in R
517517 %
518- % library (boot) % Functions from Davison and Hinkley (1997)
519- % A < - c(48,36,20,29,42,42,20,42,22,41,45,14,6, ...
518+ % library (boot) # Functions from Davison and Hinkley (1997)
519+ % A < - c(48,36,20,29,42,42,20,42,22,41,45,14,6,
520520 % 0,33,28,34,4,32,24,47,41,24,26,30,41);
521521 % n < - length(A)
522522 % var.fun < - function (d, i) {
523- % % Function to compute the population variance
523+ % # Function to compute the population variance
524524 % n < - length (d);
525525 % return (var (d[i]) * (n - 1) / n) };
526526 % boot.fun < - function (d, i) {
527- % % Compute the estimate
527+ % # Compute the estimate
528528 % t < - var.fun (d, i);
529- % % Compute sampling variance of the estimate using Tukey's jackknife
529+ % # Compute sampling variance of the estimate using Tukey's jackknife
530530 % n < - length (d);
531531 % U < - empinf (data=d[i], statistic =var.fun, type ="jack ", stype ="i ");
532532 % var.t < - sum (U^2 / (n * (n - 1)));
@@ -539,7 +539,7 @@ <h3><a name="11">Demonstration 11</a></h3>
539539 % ci4 < - boot.ci (var.boot, conf =0.90, type ="bca ")
540540 % ci5 < - boot.ci (var.boot, conf =0.90, type ="stud ")
541541 %
542- % library (bootstrap) % Functions from Efron and Tibshirani (1993)
542+ % library (bootstrap) # Functions from Efron and Tibshirani (1993)
543543 % set.seed(1);
544544 % ci4a < - bcanon (A, 19999, var.fun, alpha =c(0.05,0.95))
545545 % set.seed(1);
0 commit comments