Hoe om pare handel strategie te toets Hoe om pare handel strategie te toets? Hoekom ek kry nie enige plot. Let asseblief help my Met groete # Ons sal die quantmod pakket nodig vir kartering en trek data # Jy kan pakkette te installeer via: install. packages (& quot; packageName & quot;) # Install. packages (c (& quot; quantmod & quot;, & quot; TTR & quot;)) biblioteek (quantmod) # Trek & quot; KO & quot ;, & quot; PEP & quot; voorraad data van Yahoo! Finansies tckr1 & lt; - & quot; KO & quot; tckr2 & lt; - & quot; PEP & quot; begin & lt; - Sys. Date () - 500 einde & lt; - formaat (Sys. Date (), & quot;% Y% m-% d & quot;) # yyyy-mm-dd getSymbols (tckr1, uit = begin, om = einde) getSymbols (tckr2, uit = begin, om = einde) #Calculate Die paar verhouding ra & lt; - Cl (KO) / Cl (PEP) #Create 'N lang (tot) sein #if die huidige verhouding is minder as 2,7 * STD van gemiddelde. sigup & lt; - ifelse (RA. & lt; gemiddelde (RA) -2,7 * SD (RA) 1, 0) # Maak die kort (DN) seine #if die huidige verhouding is meer as 0,5 * STD van gemiddelde. sigdn & lt; - ifelse (RA & gt; gemiddelde (RA) -0,5 * SD (RA) -1, 0) sigup [is. na (sigup)] & lt; - 0 sigdn [is. na (sigdn)] & lt; - 0 # Lag seine in lyn te bring met dae in die mark, # Nie dae seine gegenereer #sigup & lt; - Lag (sigup, 1) # Gebruik lag () om Toby se fout te vermy #sigdn & lt; - Lag (sigdn, 1) # Gebruik lag () om Toby se fout te vermy sigup & lt; - lag (sigup, 1) # Let wel k = 1 impliseer 'n skuif * vorentoe * ret [1] & lt; - 0 # Bereken aandele kurwes eq_up & lt; - cumprod (1 + ret * sigup) eq_dn & lt; - cumprod (1 + ret * sigdn * -1)
No comments:
Post a Comment