Wie mache ich eine Aktienschwankungsfunktion in R?

Question

Ich habe eine Bestandsdaten namens 'Mytable'

I Datenrahmen erstellen möchten namens 'diff_Close5'

Ich möchte Daten in diff_Close5 setzen. IF Stock Fluktuationsrate erreicht + 5% in den letzten 5 Tagen einmal (ex 201770704 ~ 20170710), 1 else 0

Wie mache ich einen Code?

** Ich kann nicht gut Englisch sprechen. Es tut uns leid. **

library(stocks) 
library(RSQLite) 
library(dplyr) 
library(rpart) 
filename = "C:/Users/Kun/Documents/Dashin/test.db" # db connect 
sqlite.driver = dbDriver("SQLite") 
db = dbConnect(sqlite.driver,dbname = filename) 
database = dbListTables(db) 
str(database) 
database 
mytable = dbReadTable(db,'A005930') #stock table 

> head(mytable,10) 
    Date Volume Open High  Low Close diff_Close5 
1 20170710 211888 2425000 2445000 2416000 2433000 
2 20170707 162638 2387000 2406000 2381000 2393000 
3 20170706 218461 2400000 2405000 2386000 2403000 
4 20170705 212805 2341000 2384000 2339000 2379000 
5 20170704 159220 2358000 2370000 2345000 2350000 
6 20170703 136111 2375000 2389000 2356000 2361000 
7 20170630 237551 2375000 2381000 2355000 2377000 
8 20170629 166131 2402000 2416000 2397000 2397000 
9 20170628 191450 2380000 2400000 2378000 2385000 
10 20170627 192335 2411000 2420000 2395000 2415000 

Answer 1

Try this:

mytable$diff_Close5<- tail(mytable$Close, -1) - head(mytable$Close, -1)