Skip to content

Instantly share code, notes, and snippets.

@Shreyes2010

Shreyes2010/gist:1320173

Created October 27, 2011 17:13
Show Gist options
  • Save Shreyes2010/1320173 to your computer and use it in GitHub Desktop.
Save Shreyes2010/1320173 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.r
## Set the working directory using setwd() ##
# Reading the relevant file.
infy <- read.csv("01-10-2010-TO-01-10-2011INFYEQN.csv")
# Plotting the past one years closing price of INFY
plot(as.Date(infy$Date, "%d-%b-%y"), infy$Close.Price, xlab= "Dates", ylab= "Adjusted closing price", type='l', col='red', main="Adjusted closing price of INFOSYS for past 1 year")
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment