This is the official quantitative and statistical software package by Yin's Capital. Artificial Intelligence (AI) is the logical extension of human will. At Yin's Capital, we investigate marketable securities through not only the lens of human experience but also by machine power to discover the undiscovered intrinsic value of securities.
- Copyright © Official quantitative and statistical software published by Yin's Capital.
- Copyright © 2010 – Present Yiqiao Yin
- Contact: Yiqiao Yin
- Email: [email protected]
You must have the following packages.
# Initialize:
# Please see https://yinscapital.com/yins-shop/
# Another prerequisite is Yin's Library Software Package:
# Access here: https://github.com/yiqiao-yin/YinsLibrary
# Please make sure you have it as well.
# Install Package: Yin's Capital (i.e. YinsCapital)
devtools::install_github("yiqiao-yin/YinsCapital")
There are the following categories:
########################## START SCRIPT ###########################
# ACKNOWLEDGEMENT:
# In this script, let us
# (1) download data for a designated stock, and
# (2) run Yin's packages, i.e. YinsCapital
# COPYRIGHT © Yiqiao Yin
# COPYRIGHT © Yin's Capital
# README:
# Open a new clean RStudio.
# Open a new R script by pressing ctrl + shift + n
# For easy navigation, please press ctrl + shift + o which will open the menu bar.
# Feel free to copy this script to yours and you can the codes for fast execution.
####################### INITIATE ALL LIBRARIES #######################
# Initialize:
# Please see https://yinscapital.com/yins-shop/
####################### AUTONOMOUS VISUALIZATION #######################
AutoViz <- YinsCapital::AutoViz_Portfolio(
base_dollar = 100,
tickers = c("SPY","QQQ","AAPL","FB","AMZN"),
past_days = 300)
####################### VISUALIZATION #######################
YinsCapital::DyPlot_Initial_with_100()
YinsCapital::DyPlot_Initial_with_Return()
temp = YinsCapital::QQ_Comparison(); temp$Grid
####################### BASIC FUNCTIONS #######################
getSymbols("AAPL"); ticker = AAPL
YinsCapital::Basic_Plot(ticker,r_day_plot=0.2,end_day_plot=1)
YinsCapital::Basic_Plot_Weekly(ticker,r_day_plot=0.2,end_day_plot=1)
YinsCapital::Basic_Plot_Monthly(ticker,r_day_plot=0.2,end_day_plot=1)
YinsCapital::BS_Algo(ticker,r_day_plot=0.2,end_day_plot=1,c.buy=-2,c.sell=+2,height=1,past.n.days=10,test.new.price=0)
YinsCapital::BS_Algo_Chart(ticker,r_day_plot=0.2,end_day_plot=1,c.buy=-2,c.sell=+2,height=1,past.n.days=10,test.new.price=0)
####################### WATCH LSIT #######################
YinsCapital::QQQ_Watch_List(buy.height = -1.96, past.days = 3)
YinsCapital::XLF_Watch_List(buy.height = -1.96, past.days = 3)
YinsCapital::XLI_Watch_List(buy.height = -1.96, past.days = 3)
YinsCapital::XLP_Watch_List(buy.height = -1.96, past.days = 3)
YinsCapital::XLU_Watch_List(buy.height = -1.96, past.days = 3)
YinsCapital::XLV_Watch_List(buy.height = -1.96, past.days = 3)
YinsCapital::SemiConductor_Watch_List(buy.height = -1.96, past.days = 3)
####################### TIME SERIES FORECAST #######################
YinsCapital::ARMA_Fit_D(ticker, 10); dygraphs::dygraph(YinsCapital::ARMA_Fit_D(ticker, 10))
YinsCapital::ARMA_Fit_W(ticker, 10)
YinsCapital::ARMA_Fit_M(ticker, 10)
YinsCapital::ARMA_Fit_A(ticker, 10)
####################### NATURAL LANGUAGE PROCESSING AND RNN #######################
YinsCapital::RNN_Daily(ticker)
####################### OTHER TIME-SERIES AI TECHNIQUES #######################
AI_Prediction = YinsCapital::AI_Predictor("AAPL", 0.03)
AI_Prediction$Candidates_Recommendation; AI_Prediction$Conclusion
Screener <- YinsCapital::AI_Screener(c("AAPL","FB","MSFT"), 0.03); Screener$Final_Data
# For whole list of screening,
# one can use the following.
# List for Selection
# This is for Navbar 1 and we store tickers here.
my_autocomplete_list <- c(
# All Indices
"SPY", "DIA", "QQQ", "IWM", "GLD", "XLB", "XLE", "XLK", "XLU", "XLI", "XLP", "XLY",
"EWC", "EWG", "EWJ", "EWZ", "FEZ", "FXI", "GDX", "GLD", "IBB", "INDA", "IVV", "SPXL", "TLT", "TQQQ",
"XBI", "ITA", "IYZ", "HACK", "KRE", "MOO", "SOCL", "XHB", "IAK",
# DJIA
"AXP", "AAPL", "BA", "CVX", "CSCO",
"DIS", "XOM", "GE", "GS", "HD", "IBM", "INTC",
"JNJ", "JPM", "MCD", "MRK", "MSFT", "NKE",
"PFE", "PG", "UTX", "UNH",
"V", "WMT",
# QQQ
"QQQ", "AAPL", "AMZN", "MSFT",
"FB", "GOOGL", "INTC", "CSCO",
"NFLX", "NVDA", "CMCSA", "AMGN", "ADBE",
"TXN",
# XLF
"XLF", "JPM", "BAC", "WFC",
"USB", "GS", "AXP", "MS", "PNC",
"BLK", "SCHW", "BK", "AIG",
# XLI
"XLI", "BA", "GE", "MMM",
"UNP", "HON", "UTX", "CAT", "LMT",
"UPS", "FDX", "CSX", "RTN",
# XLP
"XLP", "PG", "KO", "PEP",
"PM", "WMT", "COST", "MO", "MDLZ",
"CL", "WBA", "KHC", "STZ",
# XLU
"XLU", "NEE", "DUK",
"SO", "D", "EXC", "AEP",
"SRE", "PEG", "ED", "XEL",
"PCG", "EIX",
# XLV
"XLV", "JNJ", "UNH", "PFE",
"MRK", "ABBV", "AMGN", "MDT", "ABT",
"GILD", "BMY", "LLY",
"BIIB", "CVS",
# SEMI-CONDUCTOR
"NVDA", "AMD", "AVGO",
"IDTI", "MCHP", "MXIM", "TXN", "ADI",
"XLNX", "MU")
tickers <- my_autocomplete_list
Screener <- YinsCapital::AI_Screener(tickers, threshold = 0.03)
# Comment:
# The above code will go through all stocks in the list and
# generate a list with predicted returns for a probability.
The above codes navigate through over 100 stocks and screen for the ones with the predicted return to be higher than threshold. In addition, I also share the following which includes a narrower pool of stocks to screen from.
###################### PERSONALIZED #######################
# For myself, I tend to focus on large cap stocks with
# average day trading volumen more than 2 million shares
# and recent RSI to be higher than 40.
# I would directly start with the following.
# List for Selection
# Source: I would navigate to https://y-yin.shinyapps.io/CENTRAL-INTELLIGENCE-PLATFORM/
# and click on "break-out pattern"
my_autocomplete_list <- c(
# All Indices
# DJIA
"AXP", "AAPL", "BA", "CVX", "CSCO",
"DIS", "XOM", "GE", "GS", "HD", "IBM", "INTC",
"JNJ", "JPM", "MCD", "MRK", "MSFT", "NKE",
"PFE", "PG", "UTX", "UNH",
"V", "WMT",
# QQQ
"QQQ", "AAPL", "AMZN", "MSFT",
"FB", "GOOGL", "INTC", "CSCO",
"NFLX", "NVDA", "CMCSA", "AMGN", "ADBE",
"TXN",
# XLF
"XLF", "JPM", "BAC", "WFC",
"USB", "GS", "AXP", "MS", "PNC",
"BLK", "SCHW", "BK", "AIG",
# SEMI-CONDUCTOR
"NVDA", "AMD", "AVGO",
"MCHP", "MXIM", "TXN", "ADI",
"XLNX", "MU")
tickers <- my_autocomplete_list
Screener <- YinsCapital::AI_Screener(tickers, threshold = 0.035)
Screener$Final_Data
####################### FUNDAMENTALS #######################
YinsCapital::Fin_Report_IS_Plot(
"AAPL",
whichyear = 2017)
####################### FINISHING MESSAGE #######################
# This code creates a text message
# and saved it on desktop
# and will upload to RSTUDIO and
# pronouce it.
YinsCapital::job_finished_warning(
path = "C:/Users/eagle/Desktop/",
speed = 2,
content = c(
"Mr. Yin, your program is ready.",
"Sir, your code is finished.",
"Running job is done, sir.",
"Mr. Yin, job has just finished running."),
choose_or_random = TRUE )
######################### END SCRIPT #############################