R/setup_ticker_vectors.R

In David-Statistics/djmisc: Generally Useful Functions for R & Personal Finance

#'
#'
#' @export

setup_ticker_vectors <- function() {
  champions = 'ABM
ADM
ADP
AFL
ALB
AOS
APD
AROW
ARTNA
ATO
ATR
AWR
BANF
BDX
BEN
BF-B
BKH
BMI
BRC
BRO
CAT
CB
CBSH
CBU
CFR
CHD
CINF
CL
CLX
CNI
CPKF
CSL
CSVI
CTAS
CTBI
CVX
CWT
DCI
DOV
EBTC
ECL
ED
EFSI
EMR
ENB
ERIE
ESS
EXPD
FELE
FFMR
FLIC
FMCB
FRT
FUL
GD
GPC
GRC
GWW
HRL
IBM
ITW
JKHY
JNJ
JW-A
KMB
KO
LANC
LECO
LEG
LIN
LOW
MATW
MCD
MCY
MDT
MDU
MGEE
MGRC
MKC
MMM
MO
MSA
MSEX
NC
NDSN
NEE
NFG
NIDB
NJR
NNN
NUE
NWN
O
ORI
OZK
PBCT
PEP
PG
PH
PII
PNR
PPG
PSBQ
RLI
RNR
ROP
RPM
SBSI
SCL
SEIC
SHW
SJW
SON
SPGI
SRCE
SWK
SYK
SYY
T
TDS
TGT
THFF
TMP
TNC
TR
TRI
TROW
TYCB
UBSI
UGI
UHT
UMBF
UVV
VFC
WABC
WBA
WEYS
WMT
WST
WTRG
XOM'
  contenders = 'A
AAPL
ABC
ABR
ACN
ADI
AEL
AEP
AES
AFG
AGM
AGO
AIRC
AIT
AIZ
AJG
ALE
ALL
ALRS
AMGN
AMP
AMT
ANDE
ANTM
AON
APLO
APOG
AQN
ARE
ASH
ATLO
ATRI
ATVI
AUB
AUBN
AVA
AVGO
AVNT
AVY
AWK
AXS
BAH
BAM
BBY
BCPC
BEP
BHB
BIP
BK
BKSC
BKUTK
BLK
BMRC
BMTC
BMY
BOKF
BR
CAH
CASS
CASY
CATC
CBOE
CCFN
CCOI
CE
CHDN
CHE
CHRW
CIVB
CLDB
CMA
CMCSA
CME
CMI
CMS
CNS
COR
CORE
COST
CPK
CPT
CSCO
CSX
CUBE
CULP
CZFS
DDS
DEI
DFS
DGICA
DGICB
DGX
DLR
DOX
DTE
DUK
EBMT
EIX
ELS
EMCF
EMN
ENSG
EPD
ES
ETN
EVBN
EVR
EVRG
EXR
FAF
FAST
FBVA
FDS
FFG
FFIN
FIBK
FISI
FITB
FLO
FMAO
FMBH
FNV
FRC
GATX
GBCI
GFF
GGG
GL
GLW
GNTX
GS
HAS
HBAN
HBNC
HCSG
HD
HEI
HFWA
HI
HIFS
HIG
HMN
HNI
HOMB
HON
HONT
HPQ
HRC
HSY
HUBB
HUM
HWKN
IBOC
IEX
IFF
INDB
INGR
INTU
IP
IRM
ISBA
ISBC
JBHT
JJSF
JPM
K
KALU
KEY
KLAC
KR
KW
KWR
LAD
LARK
LAZ
LBAI
LFUS
LHX
LII
LKFN
LMAT
LMT
LNC
LNN
LNT
LSTR
LYB
LYBC
MA
MAA
MAIN
MAN
MBWM
MCHP
MCK
MCO
MGA
MKTX
MMC
MMP
MNRO
MOFG
MORN
MPC
MRK
MSFT
MSI
MSM
MYBF
NDAQ
NEU
NHC
NHI
NI
NKE
NOC
NP
NRIM
NSP
NUS
NWBI
NWE
NWFL
ODC
OGE
OHI
OKE
OMC
ORCL
PAYX
PB
PEG
PETS
PFC
PFE
PFG
PLOW
PM
PNBI
PNC
PNM
POOL
POR
PPL
PPLL
PRGO
PRI
PRU
QCOM
QNBC
QNTO
R
RBA
RBC
RBCAA
RGA
RGCO
RGLD
RGP
RHI
ROK
RS
RSG
SASR
SBUX
SCI
SCVL
SFNC
SJI
SJM
SLG
SLGN
SMBC
SMG
SNA
SO
SOMC
SPTN
SR
SRE
STAG
STE
STLD
STT
SWX
SXI
SXT
SYBT
TBNK
TFC
THG
THO
TPL
TRN
TRNO
TRV
TSCO
TTC
TXN
TYBT
UDR
UNH
UNM
UNP
UPS
USB
UTMD
V
VLO
VSEC
VZ
WAFD
WASH
WBS
WCN
WDFC
WEC
WHR
WLK
WLTW
WM
WMPN
WOR
WPC
WRB
WSBC
WSM
WTBA
XEL
XYL
YORW'
  champions = strsplit(champions, '\\s+')[[1]]
  contenders = strsplit(contenders, '\\s+')[[1]]
  kings = c('AWR', 'DOV', 'NWN', 'EMR', 'GPC', 'PG', 'PH', 'MMM',
            'CINF', 'JNJ', 'KO', 'LANC', 'LOW', 'CL', 'NDSN', 'FMCB',
            'HRL', 'ABM', 'TR', 'CWT', 'FRT', 'SCL', 'SJW', 'SWK',
            'CBSH', 'FUL', 'MO', 'SYY', 'BKH', 'MSA', 'NFG')
  champions = setdiff(champions, kings)
  contenders = setdiff(contenders, union(kings, champions))
  kings <<- kings
  champions <<- champions
  contenders <<- contenders
}