Advanced Analysis Techniques
An Introduction....
![](https://s3.amazonaws.com/media-p.slid.es/uploads/905989/images/5110665/ox-uni.png)
A little about me
Kit Double
![](https://s3.amazonaws.com/media-p.slid.es/uploads/905989/images/5110651/Github.png)
![](https://s3.amazonaws.com/media-p.slid.es/uploads/905989/images/5110653/Twitter.png)
![](https://s3.amazonaws.com/media-p.slid.es/uploads/905989/images/5110656/Web.png)
![](https://s3.amazonaws.com/media-p.slid.es/uploads/905989/images/5110661/email-14-xxl.png)
![](https://s3.amazonaws.com/media-p.slid.es/uploads/905989/images/5110663/Face.png)
I'm interested in
Metacognition
Self-assessment
Confidence
![](https://s3.amazonaws.com/media-p.slid.es/uploads/905989/images/5110705/images.png)
![](https://s3.amazonaws.com/media-p.slid.es/uploads/905989/images/5110726/Hersenen.png)
![](https://s3.amazonaws.com/media-p.slid.es/uploads/905989/images/5110729/d8ba3d5347da0511290489eeafa1b38c.jpg)
Goals for this paper
Useful
Fun
Fun
Not fear invoking
Link theory and practice
![](https://s3.amazonaws.com/media-p.slid.es/uploads/905989/images/5110681/Hammer-Drawing-Pic.png)
![](https://s3.amazonaws.com/media-p.slid.es/uploads/905989/images/5110691/theory-vs-practice.jpg)
![](https://media2.giphy.com/media/YARUMKaGd8cRG/giphy.gif)
Some important links
WebLean
www.
Some important links
Software
![](https://s3.amazonaws.com/media-p.slid.es/uploads/905989/images/5110736/xk08XoKb_400x400_copy.png)
![](https://media2.giphy.com/media/AZa4KP7o6J7Us/giphy.gif)
Peek Slides
Make our first data set
# Make a variable
y <- c(7,5,9,3,2)
# Take a look
print(y)
y
# Make another variable
x <- c(3,6,18,2,5)
# Fix the typo
x <- c(3,6,8,2,5)
# And one more...
id <- 1001:1005
# Mash them together to make a data set
mydata <- cbind(id,x,y) #mashing
mydata <- as.data.frame(mydata) # make it into a 'data frame'
View(mydata)
# Clean up the variables
rm(id,x,y)
# Take a look again
print(y)
# Oh no...
# Take a look at the y variable in the data frame
print(mydata$y)
Open some data
# Read data from computer (MAC)
mydata <- read.csv("~/Desktop/AAT_s1.csv")
# Read data from computer (Windows)
mydata <- read.csv("C://Users/kitd/Desktop/AAT_s1.csv")
Installing our first package
# Install package
install.packages("lme4")
# Load package
library(lme4)
2019 AAT - Lecture 1
By kitdouble
2019 AAT - Lecture 1
- 393