module 6.txt - #Read in Files from Module Four Sample...

> #Read in Files (from Module Four Sample Data Validation and Discovery)
> library(readr)
> aapl <- read_csv("~/workspace/SNHU/DAT-
500/Milestones/dat500_module_six_AAPL.csv")
Parsed with column specification:
cols(
Company = col_character(),
Ticker = col_character(),
Date = col_character(),
Week = col_integer(),
Price = col_double(),
Shares = col_integer(),
PriorDate = col_character(),
PriorWeek = col_integer(),
PriorPrice = col_double(),
PriorShares = col_integer()
)
> View(aapl)
>
>
> msft <- read_csv("~/workspace/SNHU/DAT-
500/Milestones/dat500_module_six_MSFT.csv")
Parsed with column specification:
cols(
Company = col_character(),
Ticker = col_character(),
Date = col_character(),
Week = col_integer(),
Price = col_double(),
Shares = col_integer(),
PriorDate = col_character(),
PriorWeek = col_integer(),
PriorPrice = col_double(),
PriorShares = col_integer()
)
> View(msft)
>
>
>
>
> #For the Price and Shares, determine the percentage of change (from Module Four
Sasmple Data Validation and Discovery)
> aaplPriceChangePct<-((aapl$PriorPrice/aapl$Price)-1)*100
> msftPriceChangePct<-((msft$PriorPrice/msft$Price)-1)*100
>
>