Skip to content

Commit 4191210

Browse files
committed
add groups for HMM lab
1 parent bf82f31 commit 4191210

File tree

5 files changed

+34
-4
lines changed

5 files changed

+34
-4
lines changed

Labs/Week 5/Lab4_hmm.Rmd

Lines changed: 14 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -23,6 +23,20 @@ knitr::opts_knit$set(unnamed.chunk.label = "hw6-",
2323
warning=FALSE)
2424
```
2525

26+
## Teams
27+
28+
```{r, results = "asis", echo=FALSE}
29+
# Set up names and shuffle
30+
set.seed(123)
31+
names_str <- "Anna, Brian, Nicole, Matheus, Lilac, Mary, Ben, Emma, Tina"
32+
names <- strsplit(names_str, ",\\s*")[[1]]
33+
shuffled <- sample(names)
34+
teams <- split(shuffled, ceiling(seq_along(shuffled) / 3))
35+
for (i in seq_along(teams)) {
36+
cat(sprintf("- **Team %d**: %s \n", i, paste(teams[[i]], collapse = ", ")))
37+
}
38+
```
39+
2640
<br>
2741

2842
# Part 1. Hidden Markov Models {#sec-hmm}

_list_of_labs.Rmd

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -109,7 +109,7 @@ hmmlab <- fill.list(
109109
title = "Hidden Markov Models",
110110
topics = c("HMMs"),
111111
pdf = "",
112-
rmd = "",
112+
rmd = "https://atsa-es.github.io/atsa/Labs/Week%205/Lab4_hmm.Rmd",
113113
html = "https://atsa-es.github.io/atsa/Labs/Week%205/Lab4_hmm.html",
114114
video = "",
115115
youtube = "",

docs/Labs/Week 5/Lab4_hmm.Rmd

Lines changed: 15 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1,7 +1,7 @@
11
---
22
title: "Hidden Markov Models"
33
author: "Eric Ward"
4-
date: "Due Tues May 9 11:59 PM PDT"
4+
date: "Due Tues May 27 11:59 PM PDT"
55
output:
66
pdf_document:
77
toc: yes
@@ -23,6 +23,20 @@ knitr::opts_knit$set(unnamed.chunk.label = "hw6-",
2323
warning=FALSE)
2424
```
2525

26+
## Teams
27+
28+
```{r, results = "asis", echo=FALSE}
29+
# Set up names and shuffle
30+
set.seed(123)
31+
names_str <- "Anna, Brian, Nicole, Matheus, Lilac, Mary, Ben, Emma, Tina"
32+
names <- strsplit(names_str, ",\\s*")[[1]]
33+
shuffled <- sample(names)
34+
teams <- split(shuffled, ceiling(seq_along(shuffled) / 3))
35+
for (i in seq_along(teams)) {
36+
cat(sprintf("- **Team %d**: %s \n", i, paste(teams[[i]], collapse = ", ")))
37+
}
38+
```
39+
2640
<br>
2741

2842
# Part 1. Hidden Markov Models {#sec-hmm}

docs/comp_labs.html

Lines changed: 3 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -550,7 +550,9 @@ <h3>Resources</h3>
550550
<td style="text-align:center;">
551551
<a
552552
href="https://atsa-es.github.io/atsa/Labs/Week%205/Lab4_hmm.html">html
553-
1</a><br><br>
553+
1</a><br><br><a
554+
href="https://atsa-es.github.io/atsa/Labs/Week%205/Lab4_hmm.Rmd">Rmd
555+
1</a>
554556
</td>
555557
<td style="text-align:center;">
556558
<a

docs/index.html

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -349,7 +349,7 @@ <h2>
349349
</center>
350350
<p><br></p>
351351
<center>
352-
<em>This site was last updated at 14:49 on 08 May 2025</em>
352+
<em>This site was last updated at 14:54 on 08 May 2025</em>
353353
</center>
354354

355355

0 commit comments

Comments
 (0)