본문 바로가기

R tidyquant

(2)

함수 적용해보기 스토캐스틱 N = (현재 가격 - N일중 최저가)/(N일중 최고가 - N일중 최저가) 거래정지를 당하면 분모가 0이 되어버린다. 저번에 만든 개념을 사용자 지정 함수로 만들었다. tradeFunction% filter((date>=from) & (date% mutate(type_signal=ifelse((rsisignal) & (slowk>slowd),"buy", ifelse((rsi>65) & (macd% mutate(trade = ifelse(is.na(lag(type_signal))==TRUE,type_signal, ifelse(lag(type_signal)==type_signal,NA,type_signal))) %>% na.omit() %>% mutate(rate_return=ifelse((tra..

제일제당, 존버가 답이었을까? - 5편 저번 글에 이어서, 매매를 진행해보았는데 library(readr) library(tidyverse) library(lubridate) library(tsibble) library(tidyquant) library(TTR) library(ggpubr) codeData% select(종목번호),".KS")) df_trade% na.omit() %>% mutate(ma5=SMA(close,5), ma20=SMA(close,20), ma120=SMA(close,120), macd=MACD(close,12,26,9,"EMA")[,1], signal=MACD(close,12,26,9,"EMA")[,2], roc=ROC(close,14), rsi=RSI(close,14), fastk=stoch(cbind(high,..

티스토리툴바