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.
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 | Description | | --- | --- | | | Multivarious Stock Paths by dygraph: all stocks are based and initiated from the same value | | | Cross-section Returns by cloud() function: 3D visualization of multi-level bar plot in grid style | | | Parallel Coordinates as Screener: user can create a window and screen stocks according to factor-based strategies | | | Radial Columns Bart Plot to Visualize Quick Gainers: a quick visualization of top portfolio movers |
####################### 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 #############################
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.