From dd37cef1cf0edb54caf447bb736ccf72bf5c07bb Mon Sep 17 00:00:00 2001
From: LPREM <lasantha.prem@gmail.com>
Date: Mon, 8 Jan 2024 19:53:23 +0000
Subject: [PATCH] upload week01 assignments

---
 materials/worksheet_01/worksheet_01.ipynb | 28 +++++++++++------------
 1 file changed, 14 insertions(+), 14 deletions(-)

diff --git a/materials/worksheet_01/worksheet_01.ipynb b/materials/worksheet_01/worksheet_01.ipynb
index 843e190..4754e1e 100644
--- a/materials/worksheet_01/worksheet_01.ipynb
+++ b/materials/worksheet_01/worksheet_01.ipynb
@@ -1259,7 +1259,7 @@
     "deletable": false,
     "nbgrader": {
      "cell_type": "code",
-     "checksum": "a7cc6dd7b86d7f485e48aa88cb0d0c12",
+     "checksum": "8be0e706a1529d293bc4542add0802c7",
      "grade": false,
      "grade_id": "cell-e524dde54936450d",
      "locked": false,
@@ -1273,19 +1273,19 @@
     "set.seed(10) #don't change this\n",
     "\n",
     "# tiktok_permute_results <-\n",
-    "#     tibble(\n",
-    "#         obs_test_stat = ... %>%\n",
-    "#             specify(formula = ... ~ ...) %>%\n",
-    "#             calculate(stat = \"diff in means\", order = c(\"new\", \"current\")) %>%\n",
-    "#             pull(),\n",
-    "#         pvalue = ... %>%\n",
-    "#             specify(formula = ... ~ ...) %>%\n",
-    "#             hypothesize(null = ...) %>%\n",
-    "#             generate(reps = ..., type = \"permute\") %>%\n",
-    "#             calculate(stat = ..., order = c(\"new\", \"current\")) %>%\n",
-    "#             get_p_value(obs_stat = ..., direction = ...) %>%\n",
-    "#             pull()\n",
-    "#     )\n",
+    "#     tibble(\n",
+    "#         obs_test_stat = ... %>%\n",
+    "#             specify(formula = ... ~ ...) %>%\n",
+    "#             calculate(stat = \"diff in means\", order = c(\"new\", \"current\")) %>%\n",
+    "#             pull(),\n",
+    "#         pvalue = ... %>%\n",
+    "#             specify(formula = ... ~ ...) %>%\n",
+    "#             hypothesize(null = ...) %>%\n",
+    "#             generate(reps = ..., type = \"permute\") %>%\n",
+    "#             calculate(stat = ..., order = c(\"new\", \"current\")) %>%\n",
+    "#             get_p_value(obs_stat = ..., direction = ...) %>%\n",
+    "#             pull()\n",
+    "#     )\n",
     "\n",
     "# your code here\n",
     "fail() # No Answer - remove if you provide an answer\n",