{ "cells": [ { "cell_type": "markdown", "metadata": {}, "source": [ "## Reading Quiz 1\n", "\n", "Okay, now you know a bit about R, let's put that to the test. Enter your name below:" ] }, { "cell_type": "markdown", "metadata": {}, "source": [ "#### NAME: " ] }, { "cell_type": "markdown", "metadata": {}, "source": [ "### Problem 1\n", "\n", "In the cell below, do the following\n", "\n", "1) Assign an integer to the variable `x`\n", "\n", "2) Assign a logical to the variable `y`\n", "\n", "3) Assign a character to the variable `z`" ] }, { "cell_type": "code", "execution_count": null, "metadata": {}, "outputs": [], "source": [ "# Assign an integer to the variable x\n", "x <- 4L\n", "\n", "# Assign a logical to the variable y\n", "y <- TRUE\n", "\n", "# Assign a character to the variable z\n", "z <- \"stats\"\n" ] }, { "cell_type": "markdown", "metadata": {}, "source": [ "### Problem 2\n", "Run the cell below:" ] }, { "cell_type": "code", "execution_count": 1, "metadata": {}, "outputs": [], "source": [ "### RUN but DO NOT CHANGE CODE BELOW\n", "stuff<-\"hello world\"\n", "######" ] }, { "cell_type": "markdown", "metadata": {}, "source": [ "In the code cell below, write the function which will tell you what data type `stuff` is." ] }, { "cell_type": "code", "execution_count": 2, "metadata": {}, "outputs": [ { "data": { "text/html": [ "'character'" ], "text/latex": [ "'character'" ], "text/markdown": [ "'character'" ], "text/plain": [ "[1] \"character\"" ] }, "metadata": {}, "output_type": "display_data" } ], "source": [ "class(stuff)" ] }, { "cell_type": "markdown", "metadata": {}, "source": [ "### Problem 3\n", "Run the cell below" ] }, { "cell_type": "code", "execution_count": 3, "metadata": {}, "outputs": [], "source": [ "#### RUN but DO NOT CHANGE\n", "## This is a vector\n", "a<-c(1,2,3)\n", "## This is a numerical\n", "b<-2\n", "## This is a logical\n", "c<-TRUE\n", "## This is a logical\n", "d<-FALSE" ] }, { "cell_type": "markdown", "metadata": {}, "source": [ "Describe what happens if you (feel free to experiment)\n", "\n", "1) Add `a` and `c`\n", "\n", "2) Multiply `a` and `b`\n", "\n", "3) Multiply `b` and `d`" ] }, { "cell_type": "code", "execution_count": 4, "metadata": {}, "outputs": [ { "data": { "text/html": [ "

\n" ], "text/latex": [ "\\begin{enumerate*}\n", "\\item 2\n", "\\item 3\n", "\\item 4\n", "\\end{enumerate*}\n" ], "text/markdown": [ "1. 2\n", "2. 3\n", "3. 4\n", "\n", "\n" ], "text/plain": [ "[1] 2 3 4" ] }, "metadata": {}, "output_type": "display_data" }, { "data": { "text/html": [ "

\n" ], "text/latex": [ "\\begin{enumerate*}\n", "\\item 2\n", "\\item 4\n", "\\item 6\n", "\\end{enumerate*}\n" ], "text/markdown": [ "1. 2\n", "2. 4\n", "3. 6\n", "\n", "\n" ], "text/plain": [ "[1] 2 4 6" ] }, "metadata": {}, "output_type": "display_data" }, { "data": { "text/html": [ "0" ], "text/latex": [ "0" ], "text/markdown": [ "0" ], "text/plain": [ "[1] 0" ] }, "metadata": {}, "output_type": "display_data" } ], "source": [ "### Experiment here\n", "a+c\n", "a*b\n", "b*d\n" ] }, { "cell_type": "markdown", "metadata": {}, "source": [ "Answer 1) 2 3 4\n", "\n", "Answer 2) 2 4 6\n", "\n", "Answer 3) 0" ] }, { "cell_type": "markdown", "metadata": {}, "source": [ "### Problem 4\n", "Run the cell below" ] }, { "cell_type": "code", "execution_count": 7, "metadata": {}, "outputs": [], "source": [ "### Run but DO NOT CHANGE\n", "require(oibiostat) #This loads standard datasets, you will see this a lot\n", "data(iris) #This loads the data from the iris data set\n", "df<-iris #this puts the iris dataframe into the variable df" ] }, { "cell_type": "markdown", "metadata": {}, "source": [ "In the cell above, we loaded the famous \"iris\" data set into the dataframe `df`. Use `df` in to perform the following.\n", "\n", "1) Show the first few rows of iris" ] }, { "cell_type": "code", "execution_count": 2, "metadata": {}, "outputs": [ { "data": { "text/html": [ "\n", "\n", "\n", "\t\n", "\t\n", "\t\n", "\t\n", "\t\n", "\t\n", "\n", "

Sepal.Length	Sepal.Width	Petal.Length	Petal.Width	Species
5.1	3.5	1.4	0.2	setosa
4.9	3.0	1.4	0.2	setosa
4.7	3.2	1.3	0.2	setosa
4.6	3.1	1.5	0.2	setosa
5.0	3.6	1.4	0.2	setosa
5.4	3.9	1.7	0.4	setosa

\n" ], "text/latex": [ "\\begin{tabular}{r|lllll}\n", " Sepal.Length & Sepal.Width & Petal.Length & Petal.Width & Species\\\\\n", "\\hline\n", "\t 5.1 & 3.5 & 1.4 & 0.2 & setosa\\\\\n", "\t 4.9 & 3.0 & 1.4 & 0.2 & setosa\\\\\n", "\t 4.7 & 3.2 & 1.3 & 0.2 & setosa\\\\\n", "\t 4.6 & 3.1 & 1.5 & 0.2 & setosa\\\\\n", "\t 5.0 & 3.6 & 1.4 & 0.2 & setosa\\\\\n", "\t 5.4 & 3.9 & 1.7 & 0.4 & setosa\\\\\n", "\\end{tabular}\n" ], "text/markdown": [ "\n", "Sepal.Length | Sepal.Width | Petal.Length | Petal.Width | Species | \n", "|---|---|---|---|---|---|\n", "| 5.1 | 3.5 | 1.4 | 0.2 | setosa | \n", "| 4.9 | 3.0 | 1.4 | 0.2 | setosa | \n", "| 4.7 | 3.2 | 1.3 | 0.2 | setosa | \n", "| 4.6 | 3.1 | 1.5 | 0.2 | setosa | \n", "| 5.0 | 3.6 | 1.4 | 0.2 | setosa | \n", "| 5.4 | 3.9 | 1.7 | 0.4 | setosa | \n", "\n", "\n" ], "text/plain": [ " Sepal.Length Sepal.Width Petal.Length Petal.Width Species\n", "1 5.1 3.5 1.4 0.2 setosa \n", "2 4.9 3.0 1.4 0.2 setosa \n", "3 4.7 3.2 1.3 0.2 setosa \n", "4 4.6 3.1 1.5 0.2 setosa \n", "5 5.0 3.6 1.4 0.2 setosa \n", "6 5.4 3.9 1.7 0.4 setosa " ] }, "metadata": {}, "output_type": "display_data" } ], "source": [ "### Write the code that shows the first few rows of iris\n", "head(iris)" ] }, { "cell_type": "markdown", "metadata": {}, "source": [ "2) Show a `summary` of `df`" ] }, { "cell_type": "code", "execution_count": 4, "metadata": {}, "outputs": [ { "data": { "text/plain": [ " Sepal.Length Sepal.Width Petal.Length Petal.Width \n", " Min. :4.300 Min. :2.000 Min. :1.000 Min. :0.100 \n", " 1st Qu.:5.100 1st Qu.:2.800 1st Qu.:1.600 1st Qu.:0.300 \n", " Median :5.800 Median :3.000 Median :4.350 Median :1.300 \n", " Mean :5.843 Mean :3.057 Mean :3.758 Mean :1.199 \n", " 3rd Qu.:6.400 3rd Qu.:3.300 3rd Qu.:5.100 3rd Qu.:1.800 \n", " Max. :7.900 Max. :4.400 Max. :6.900 Max. :2.500 \n", " Species \n", " setosa :50 \n", " versicolor:50 \n", " virginica :50 \n", " \n", " \n", " " ] }, "metadata": {}, "output_type": "display_data" } ], "source": [ "summary(iris)" ] }, { "cell_type": "markdown", "metadata": {}, "source": [ "3) How many `species` of iris are there in this data set?" ] }, { "cell_type": "markdown", "metadata": {}, "source": [ "Answer: 3" ] } ], "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.4.4" } }, "nbformat": 4, "nbformat_minor": 2 }

ReadingQuiz1.ipynb