####################################################################################
#This is a file with executable R code for chapter 20 of Natalia Levshina's (2015) 
#How to Do Linguistics with R. Amsterdam/Philadelphia: John Benjamins. 
####################################################################################


###Section 20.1

##Main text


install.packages("googleVis")

library(Rling); library(googleVis)

data(fut)

str(fut)

head(fut)

mch <- gvisMotionChart(fut, idvar = "Verb", timevar = "Period")

plot(mch)