tutorial instructions

docs/site_libs/revealjs/plugin/quarto-tone/plugin.yml

@@ -0,0 +1,3 @@
+# adapted from https://github.com/gadenbuie/xaringanExtra/blob/master/docs/slide-tone/libs/slide-tone/slide-tone.js
+name: QuartoTone
+script: tone.js

docs/site_libs/revealjs/plugin/quarto-tone/tone.js

@@ -0,0 +1,53 @@
+window.QuartoTone = function () {
+  return {
+    id: "quarto-tone",
+    init: function (deck) {
+      function slideToneScale(i) {
+        // https://www.intmath.com/trigonometric-graphs/music.php
+        const note = 15 - (deck.getTotalSlides() - i);
+        return 440 * 2 ** (note / 12);
+      }
+
+      /*
+       * Sliding tones between C3 and C5 with equal steps between tones
+       * but not aligned to musical scale
+       */
+      function slideToneBounded(i, lower = 261.63, upper = 1046.5) {
+        const step = (upper - lower) / deck.getTotalSlides();
+        return lower + step * i;
+      }
+
+      /*
+       * Choose slide tone scale automatically based on number of slides.
+       * If there are <= 32 slides, use musical scale.
+       */
+      function slideToneAuto(toneIdx) {
+        return deck.getTotalSlides() > 32
+          ? slideToneBounded(toneIdx)
+          : slideToneScale(toneIdx);
+      }
+
+      const synth = new Tone.Synth({
+        oscillator: {
+          type: "sine",
+        },
+        envelope: {
+          attack: 0.001,
+          decay: 0.2,
+          sustain: 0.2,
+          release: 1,
+        },
+      }).toMaster();
+
+      const playTone = () => {
+        synth.triggerAttackRelease(
+          slideToneAuto(deck.getSlidePastCount()),
+          "8n"
+        );
+      };
+      deck.on("slidechanged", playTone);
+      deck.on("fragmentshown", playTone);
+      deck.on("fragmenthidden", playTone);
+    },
+  };
+};

docs/sitemap.xml

@@ -14,11 +14,11 @@
   </url>
   <url>
     <loc>https://iml.numbat.space/week4/tutorial.html</loc>
-    <lastmod>2024-03-12T22:43:57.412Z</lastmod>
+    <lastmod>2024-03-15T07:05:40.838Z</lastmod>
   </url>
   <url>
     <loc>https://iml.numbat.space/week4/tutorialsol.html</loc>
-    <lastmod>2024-03-12T22:43:57.412Z</lastmod>
+    <lastmod>2024-03-15T07:05:40.838Z</lastmod>
   </url>
   <url>
     <loc>https://iml.numbat.space/week3/tutorial.html</loc>

docs/week4/tutorial.html

@@ -5052,7 +5052,7 @@ <h4 class="anchored" data-anchor-id="assess-the-significance-of-pc-coefficients-
 <p>In the lecture, we used bootstrap to examine the significance of the coefficients for the second principal component from the womens’ track PCA. Do this computation for PC1. The question for you to answer is: <em>Can we consider all of the coefficients to be equal?</em></p>
 <p>The data can be read using:</p>
 <div class="cell" data-layout-align="center">
-<div class="sourceCode cell-code" id="cb2"><pre class="sourceCode r code-with-copy"><code class="sourceCode r"><span id="cb2-1"><a href="#cb2-1" aria-hidden="true" tabindex="-1"></a>track <span class="ot">&lt;-</span> track <span class="ot">&lt;-</span> <span class="fu">read_csv</span>(<span class="st">&quot;https://raw.githubusercontent.com/numbats/iml/master/data/womens_track.csv&quot;</span>)</span></code><button title="Copy to Clipboard" class="code-copy-button"><i class="bi"></i></button></pre></div>
+<div class="sourceCode cell-code" id="cb2"><pre class="sourceCode r code-with-copy"><code class="sourceCode r"><span id="cb2-1"><a href="#cb2-1" aria-hidden="true" tabindex="-1"></a>track <span class="ot">&lt;-</span> <span class="fu">read_csv</span>(<span class="st">&quot;https://raw.githubusercontent.com/numbats/iml/master/data/womens_track.csv&quot;</span>)</span></code><button title="Copy to Clipboard" class="code-copy-button"><i class="bi"></i></button></pre></div>
 </div>
 </section>
 <section id="using-simulation-to-assess-results-when-there-is-no-structure" class="level4">

docs/week4/tutorial.qmd

@@ -101,7 +101,7 @@ In the lecture, we used bootstrap to examine the significance of the coefficient
 The data can be read using:
 
 ```{r echo=TRUE}
-track <- track <- read_csv("https://raw.githubusercontent.com/numbats/iml/master/data/womens_track.csv")
+track <- read_csv("https://raw.githubusercontent.com/numbats/iml/master/data/womens_track.csv")
 ```
 
 ::: unilur-solution

week4/tutorial.qmd

@@ -101,7 +101,7 @@ In the lecture, we used bootstrap to examine the significance of the coefficient
 The data can be read using:
 
 ```{r echo=TRUE}
-track <- track <- read_csv("https://raw.githubusercontent.com/numbats/iml/master/data/womens_track.csv")
+track <- read_csv("https://raw.githubusercontent.com/numbats/iml/master/data/womens_track.csv")
 ```
 
 ::: unilur-solution