Jupyter notebook 2017-01-10-TestFIle.ipynb
testdaata<-c(1,2,3,4,5)
summary(testdaata)
plot(testdaata,testdaata)