added 2019 fall material, changed 2019 spring naming convention

2019-fall/materials/team_work/team_work.ipynb

@@ -0,0 +1,138 @@
+{
+ "cells": [
+  {
+   "cell_type": "markdown",
+   "metadata": {},
+   "source": [
+    "# DSCI 100 Group project reflection\n",
+    "\n",
+    "The purpose of this individual report is to give you an avenue to present your viewpoint as to how the project went, how the group worked together, and your role in the group. Each group member must complete this form to report on the contributions of **yourself** and the other group members. That information be used to assign you a team work grade, and can also, if needed, be used to adjust final project grades of individuals. This is a private report, meaning that none of your classmates will see this report. Please fill out this form as a Jupyter notebook and then **convert it to html for submission to Canvas**.\n",
+    "\n",
+    "\n",
+    "Evaluate\teach\tmember\tof\tyour\tgroup\tby\twriting\tthe\tnumber\tthat\tbest\treflects\tthe\textent\tto\twhich\the/she\n",
+    "participated,\tprepared,\thelped\tthe\tgroup\texcel,\tand\twas\ta\tteam\tplayer.\tUse\tthe\tfollowing\tratings:\n",
+    "\n",
+    "| Rating | Description                                 |\n",
+    "|--------|---------------------------------------------|\n",
+    "| 4\t     | Usually\t(over\t90%\tof\tthe\ttime)            |\n",
+    "| 3\t     | Frequently\t(more\toften\tthan\tnot)           |\n",
+    "| 2\t     | Sometimes\t(less\tthan\thalf\tthe\ttime)      |\n",
+    "| 1\t     | Rarely\t(never\tor\tonce\tin\ta\tgreat\twhile) |\n",
+    "\n"
+   ]
+  },
+  {
+   "cell_type": "markdown",
+   "metadata": {},
+   "source": [
+    "**Preparation.**\tPrepared\tfor\t group\tmeetings and presentations;\thas spent time becoming familiar with the material relevant for the project; understands the project's goal and expectations;\tdoes what they say they will do on time;\tattends\tand\tis\ton\ttime\tto\tgroup\tmeetings and presentations."
+   ]
+  },
+  {
+   "cell_type": "markdown",
+   "metadata": {},
+   "source": [
+    "| Group member name | Preparation rating |\n",
+    "|-------------------|--------|\n",
+    "|                   |        |\n",
+    "|                   |        |\n",
+    "|                   |        |"
+   ]
+  },
+  {
+   "cell_type": "markdown",
+   "metadata": {},
+   "source": [
+    "**Participation\t&\tcommunication.**\tArticulates\tideas\teffectively\twhen speaking\tor\twriting;\twork\tis without\tgrammatical\terrors;\tlistens\tto\tothers;\tencourages\tothers\tto\ttalk."
+   ]
+  },
+  {
+   "cell_type": "markdown",
+   "metadata": {},
+   "source": [
+    "| Group member name | Participation\t&\tcommunication rating |\n",
+    "|-------------------|--------|\n",
+    "|                   |        |\n",
+    "|                   |        |\n",
+    "|                   |        |"
+   ]
+  },
+  {
+   "cell_type": "markdown",
+   "metadata": {},
+   "source": [
+    "**Helps\tgroup\texcel.**\tExpresses\tgreat\tinterest\tin\tgroup\tsuccess\tby\tevaluating\n",
+    "ideas\tand\tsuggestions;\tinitiates\tproblem\tsolving;\tinfluences\tand\tencourages\n",
+    "others\tto\tset\tup\thigh\tstandards;\tdoesn't\taccept\tjust\tany\tidea\tbut\tlooks\tfor\n",
+    "the\tbest\tideas;\tstays\tmotivated\tfrom\tbeginning\tto\tend\tof\tproject."
+   ]
+  },
+  {
+   "cell_type": "markdown",
+   "metadata": {},
+   "source": [
+    "| Group member name | Helps\tgroup\texcel rating |\n",
+    "|-------------------|--------|\n",
+    "|                   |        |\n",
+    "|                   |        |\n",
+    "|                   |        |"
+   ]
+  },
+  {
+   "cell_type": "markdown",
+   "metadata": {},
+   "source": [
+    "**Team\tplayer\t(cooperation).**\tKnows\twhen\tto\tbe\ta\tleader\n",
+    "and\ta\tfollower;\tkeeps\tan\topen\tmind;\tcompromises\twhen\n",
+    "appropriate;\tcan\ttake\tcriticism;\trespects\tothers.\n"
+   ]
+  },
+  {
+   "cell_type": "markdown",
+   "metadata": {},
+   "source": [
+    "| Group member name | Team\tplayer (cooperation) rating |\n",
+    "|-------------------|--------|\n",
+    "|                   |        |\n",
+    "|                   |        |\n",
+    "|                   |        |"
+   ]
+  },
+  {
+   "cell_type": "markdown",
+   "metadata": {},
+   "source": [
+    "Below,\tbriefly\tdescribe\tthe\tspecific\tcontribution(s)\teach\tteam\tmember (**including yourself**)\tmade\tto\tyour\tproject.\tPoint form\tis\tfine.\tSpecifically, comment on the following areas:\n",
+    "\n",
+    "- how the team worked together as a whole, including:\n",
+    "    - what was your role in the group? That is, what sort of things did you do to contribute to the evolution of the project?\n",
+    "    - what were the roles of others in your group?\n",
+    "- what went well and poorly throughout the team project experience?"
+   ]
+  },
+  {
+   "cell_type": "markdown",
+   "metadata": {},
+   "source": [
+    "> YOUR ANSWER HERE"
+   ]
+  }
+ ],
+ "metadata": {
+  "kernelspec": {
+   "display_name": "R",
+   "language": "R",
+   "name": "ir"
+  },
+  "language_info": {
+   "codemirror_mode": "r",
+   "file_extension": ".r",
+   "mimetype": "text/x-r-source",
+   "name": "R",
+   "pygments_lexer": "r",
+   "version": "3.6.1"
+  }
+ },
+ "nbformat": 4,
+ "nbformat_minor": 2
+}

2019-fall/materials/tutorial_01/tests_tutorial_01.R

@@ -0,0 +1,204 @@
+library(testthat)
+library(digest)
+
+test_revision <- function(){
+    test_that('Solution is incorrect', {
+        expect_equal(digest(A), 'dbc09cba9fe2583fb01d63c70e1555a8') # we hid the answer to the test here so you can't see it, but we can still run the test
+        expect_equal(digest(B), 'db8e490a925a60e62212cefc7674ca02') # we hid the answer to the test here so you can't see it, but we can still run the test)
+        expect_equal(digest(C), '0aee9b78301d7ec8998971363be87c03') # we hid the answer to the test here so you can't see it, but we can still run the test
+        expect_equal(digest(D), '5e338704a8e069ebd8b38ca71991cf94') # we hid the answer to the test here so you can't see it, but we can still run the test
+        expect_equal(digest(E), '6717f2823d3202449301145073ab8719') # we hid the answer to the test here so you can't see it, but we can still run the test
+        expect_equal(digest(F), 'e5b57f323c7b3719bbaaf9f96b260d39') # we hid the answer to the test here so you can't see it, but we can still run the test
+    })
+print("Success!")
+    }
+
+test_1.1 <- function(){
+    test_that('Solution is incorrect', {
+        expect_equal(digest(answer1), '75f1160e72554f4270c809f041c7a776') # we hid the answer to the test here so you can't see it, but we can still run the test
+        })
+print("Success!")
+    }
+
+test_1.2 <- function(){
+    test_that('Solution is incorrect', {
+        expect_equal(digest(answer2), 'd2a90307aac5ae8d0ef58e2fe730d38b') # we hid the answer to the test here so you can't see it, but we can still run the test
+        })
+print("Success!")
+    }
+
+test_1.3 <- function(){
+    test_that('Solution is incorrect', {
+        expect_equal(digest(answer3), '475bf9280aab63a82af60791302736f6') # we hid the answer to the test here so you can't see it, but we can still run the test
+        })
+print("Success!")
+    }
+
+test_1.4 <- function(){
+    test_that('The tidyverse package needs to be loaded.', {
+        expect_that("package:tidyverse" %in% search() , is_true())
+        })
+print("Success!")
+    }
+
+test_1.5 <- function(){
+    test_that('Did not create an object named marathon_small.', {
+        expect_true(exists("marathon_small")) 
+        })
+    test_that('marathon_small should be a data frame.', {
+        expect_true('data.frame' %in% class(marathon_small))
+        })
+    test_that('marathon_small does not contain the correct data.', {
+        expect_equal(dim(marathon_small), c(1833, 5))
+        expect_equal(sum(marathon_small$age), 66455.5)
+        expect_equal(colnames(marathon_small), c("age", "bmi", "km5_time_seconds", "km10_time_seconds", "sex"))
+        })
+print("Success!")
+    }
+
+test_1.6 <- function(){
+    test_that('Did not create an object named marathon_age.', {
+        expect_true(exists("marathon_age")) 
+        })
+    test_that('Did not create an object named marathon_select.', {
+        expect_true(exists("marathon_select")) 
+        })
+    test_that('marathon_age does not contain the correct number of rows and/or columns.', {
+        expect_equal(dim(marathon_age), c(922, 5))
+        })
+    test_that('marathon_select does not contain the correct number of rows and/or columns.', {
+        expect_equal(dim(marathon_select), c(922, 2))
+        })
+    test_that('Columns in marathon_select contain incorrect values.', {
+        expect_equal(digest(as.integer(sum(marathon_select$bmi))), '26b0ef5c0ff9f596d71bec8beb2fd961') # we hid the answer to the test here so you can't see it, but we can still run the test
+        expect_equal(digest(as.integer(sum(marathon_select$km5_time_seconds, na.rm = TRUE))), '34a5cc5cac5c7e94d58a8de9c1d25d2a') # we hid the answer to the test here so you can't see it, but we can still run the test
+        })
+print("Success!")
+    }
+
+test_1.7 <- function(){
+    test_that('Did not create an object named marathon_mutate.', {
+        expect_true(exists("marathon_mutate")) 
+        })
+    test_that('Did not create an object named marathon_exact.', {
+        expect_true(exists("marathon_exact")) 
+        })
+    test_that('marathon_mutate does not contain the correct number of rows and/or columns.', {
+        expect_equal(dim(marathon_mutate), c(922, 3))
+        })
+    test_that('marathon_exact does not contain the correct number of rows and/or columns.', {
+        expect_equal(dim(marathon_exact), c(922, 2))
+        })
+    test_that('Columns in marathon_exact contain incorrect values.', {
+        expect_equal(digest(as.integer(sum(marathon_exact$bmi))), '26b0ef5c0ff9f596d71bec8beb2fd961') # we hid the answer to the test here so you can't see it, but we can still run the test
+        expect_equal(digest(as.integer(sum(marathon_exact$km5_time_minutes, na.rm = TRUE))), '2d07e1d5bee213ac567286a85e4e74af') # we hid the answer to the test here so you can't see it, but we can still run the test
+        })
+print("Success!")
+    }
+
+test_1.8 <- function(){
+    test_that('Did not create a plot named marathon_plot', {
+        expect_true(exists("marathon_plot")) 
+        })
+    test_that('bmi should be on the x-axis.', {
+        expect_that("bmi" %in% c(rlang::get_expr(marathon_plot$mapping$x),rlang::get_expr(marathon_plot$layers[[1]]$mapping$x)), is_true())
+        })
+    test_that('km5_time_minutes should be on the y-axis.', {
+        expect_that("km5_time_minutes" %in% c(rlang::get_expr(marathon_plot$mapping$y), rlang::get_expr(marathon_plot$layers[[1]]$mapping$y)) , is_true())
+        })
+    test_that('marathon_plot should be a scatter plot.', {
+        expect_that("GeomPoint" %in% c(class(marathon_plot$layers[[1]]$geom)) , is_true())
+        })
+    test_that('Labels on the axes should be descriptive and human readable.', {
+        expect_that((marathon_plot$labels$y) == 'km5_time_minutes', is_false())
+        expect_that((marathon_plot$labels$x) == 'bmi', is_false())
+        })
+print("Success!")
+    }
+
+test_1.10 <- function(){
+    test_that('Did not create a plot named age_vs_time', {
+        expect_true(exists("age_vs_time")) 
+        })
+    test_that('age should be on the x-axis.', {
+        expect_that("age" %in% c(rlang::get_expr(age_vs_time$mapping$x),rlang::get_expr(age_vs_time$layers[[1]]$mapping$x)), is_true())
+        })
+    test_that('km5_time_minutes should be on the y-axis.', {
+        expect_that("km5_time_minutes" %in% c(rlang::get_expr(age_vs_time$mapping$y), rlang::get_expr(age_vs_time$layers[[1]]$mapping$y)) , is_true())
+        })
+    test_that('age_vs_time should be a scatter plot.', {
+        expect_that("GeomPoint" %in% c(class(age_vs_time$layers[[1]]$geom)) , is_true())
+        })
+    test_that('Labels on the axes should be descriptive and human readable.', {
+        expect_that((age_vs_time$labels$y) == 'km5_time_minutes', is_false())
+        expect_that((age_vs_time$labels$x) == 'age', is_false())
+        })
+print("Success!")
+    }
+
+test_2.1 <- function(){
+    test_that('Solution is incorrect', {
+        expect_equal(digest(answer2.1), '3a5505c06543876fe45598b5e5e5195d') # we hid the answer to the test here so you can't see it, but we can still run the test
+        })
+print("Success!")
+    }
+
+test_2.2 <- function(){
+    test_that('Solution is incorrect', {
+        expect_equal(digest(answer2.2), '475bf9280aab63a82af60791302736f6') # we hid the answer to the test here so you can't see it, but we can still run the test
+        })
+print("Success!")
+    }
+
+test_2.3 <- function(){
+    test_that('Did not create an object named bike_data.', {
+        expect_true(exists("bike_data")) 
+        })
+    test_that('bike_data should be a data frame.', {
+        expect_true('data.frame' %in% class(bike_data))
+        })
+    test_that('bike_data does not contain the correct information.', {
+        expect_equal(dim(bike_data), c(731, 4))
+        expect_equal(sum(bike_data$casual_users), 620017)
+        expect_equal(colnames(bike_data), c("temperature", "casual_users", "registered_users", "season"))
+        })
+print("Success!")
+    }
+
+test_2.4 <- function(){
+    test_that('Did not create an object named bike_mutate.', {
+        expect_true(exists("bike_mutate")) 
+        })
+    test_that('bike_mutate does not contain the correct number of rows and/or columns.', {
+        expect_equal(dim(bike_mutate), c(731, 5))
+        })
+    test_that('Columns in bike_mutate contain incorrect values.', {
+        expect_equal(digest(as.integer(sum(bike_mutate$total_users))), 'ca696c077151dc0a05b3e3862ab38f52') # we hid the answer to the test here so you can't see it, but we can still run the test
+        expect_equal(digest(as.integer(sum(bike_mutate$temperature, na.rm = TRUE))), '01a2384f7d878a7355399ff2517925cc') # we hid the answer to the test here so you can't see it, but we can still run the test
+        })
+print("Success!")
+    }
+
+test_2.5 <- function(){
+    test_that('Did not create an object named bike_filter.', {
+        expect_true(exists("bike_filter")) 
+        })
+    test_that('The season column in bike_filter should only contain Spring.', {
+        expect_equal(unique(bike_filter$season), "Spring")
+        })
+    test_that('bike_filter does not contain the correct number of rows and/or columns.', {
+        expect_equal(dim(bike_filter), c(181, 5))
+        })
+    test_that('Columns in bike_filter contain incorrect values.', {
+        expect_equal(digest(as.integer(sum(bike_filter$total_users))), '051a1e8b9293438bbc0cb8ed6fa4e959') # we hid the answer to the test here so you can't see it, but we can still run the test
+        expect_equal(digest(as.integer(sum(bike_filter$temperature, na.rm = TRUE))), '15865a3cff7594d62b7897f23fb27fa8') # we hid the answer to the test here so you can't see it, but we can still run the test
+        })
+print("Success!")
+    }
+
+test_3.1 <- function(){
+    test_that('Solution is incorrect', {
+        expect_equal(digest(answer_filter), '3a5505c06543876fe45598b5e5e5195d') # we hid the answer to the test here so you can't see it, but we can still run the test
+        })
+print("Success!")
+    }