qmj.R
In qmj: Quality Scores for the Russell 3000

### R code from vignette source 'qmj.Rnw'

###################################################
### code chunk number 1: qmj.Rnw:52-54
###################################################
library(qmj)
head(companies_r3k16, n = 5)


###################################################
### code chunk number 2: qmj.Rnw:68-69
###################################################
head(financials_r3k16, n = 5)


###################################################
### code chunk number 3: qmj.Rnw:108-110
###################################################
rbind(head(prices_r3k16, n = 5),
      prices_r3k16[1050:1054,])


###################################################
### code chunk number 4: qmj.Rnw:120-125
###################################################
quality_scores <- quality_r3k16
quality_scores[-which(colnames(quality_scores) %in% c("ticker", "name"))] <-
  round(quality_scores[-which(colnames(quality_scores) %in% c("ticker", "name"))], 
        digits = 3)
head(quality_scores, n = 5)


###################################################
### code chunk number 5: qmj.Rnw:176-178 (eval = FALSE)
###################################################
## raw_prices <- get_prices(companies_r3k16)
## raw_data <- get_info(companies_r3k16)


###################################################
### code chunk number 6: qmj.Rnw:183-185 (eval = FALSE)
###################################################
## clean_prices <- tidy_prices(raw_prices)
## clean_data <- tidyinfo(raw_data)


###################################################
### code chunk number 7: qmj.Rnw:190-191 (eval = FALSE)
###################################################
## quality_data <- market_data(companies_r3k16, clean_data, clean_prices)