Practical Time Series Analysis - Week 1 Labs

Concatenation, Five-number summary, Standard Deviation Lab

data.1 <- c(35,8,10,23,42)
data.1

## [1] 35  8 10 23 42

print(data.1)

## [1] 35  8 10 23 42

summary(data.1)

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##     8.0    10.0    23.0    23.6    35.0    42.0

sum(data.1)/5

## [1] 23.6

sd(data.1)

## [1] 14.97665

Histogram

small.size.dataset=c(91,49,76,112,97,42,70, 100, 8, 112, 95, 90, 78, 62, 56, 94, 65, 58, 109, 70, 109, 91, 71, 76, 68, 62, 134, 57, 83, 66)
hist(small.size.dataset, xlab='My data points', main='Histogram of my data', freq=F, col='green', breaks=10)
lines(density(small.size.dataset), col='red', lwd=5)

Scatterplot

set.seed(2016)

# rnorm(n, mean, sd)   Normal distribution

Test_1_scores=round(rnorm(50, 78, 10))
Test_2_scores=round(rnorm(50, 78, 14))
plot(Test_2_scores~Test_1_scores, main='Test scores for two exams (50 students)', xlab='Test_1_scores', ylab='Test 2 scores', col='blue')