1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52---
title: "CSCD429 Lab 3"
author: "Joseph Riddle"
date: "October 17, 2018"
output:
html_document: default
pdf_document: default
---
```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
```
##Q1
```{r}
x <- c(-20, -15, -5, 8, 12, 9, 2, 23, 19)
mean(x)
median(x)
sum(x)
sum(x[x > 0])
x[x <= -8]
```
##Q2
```{r}
x <- c(1, 3, 0, -2, 4, -1, 5, 2, 10)
sum(x)
sum(x) ^ 2
sum(x ^ 2)
sum(x[3:5])
sum(x[1:4] ^ 3)
```
##Q3
```{r}
x <- c(12, 6, 15, 3, 12, 6, 21, 15, 18, 12)
sum(x - mean(x))
range(x)
var(x)
sd(x)
summary(x)
```
##Q4
```{r}
x <- scan("C:/Users/joeri/Desktop/CSCD429/lab3/mismatch_dat.txt")
x
boxplot(x)
hist(x)
hist(x, breaks = 15)
plot(x, ylab = "Mismatch Value", main = "Scatter Plot of Mismatch Data")
```