[R lang 크롤링] (R) [전략적가치투자] - 증액 투자법  

(R) [전략적가치투자] - 증액 투자법

프로필

2019. 1. 18. 3:43

 

전략적가치투자 증액 투자법 R 코드입니다. 증액 투자법에 대한 이론적인 내용은 제 블로그 금융 주제에 있으니 먼저 읽고 와주시면 좋을 것 같네요. 그리고 기본적인 코드는 이전 포스트에서 했으므로 생략하겠습니다. 필요하신 분들은 아래의 주소를 참고해 주세요

https://blog.naver.com/jk940/221442437947

getincrease = function(money){ stock = matrix(NA,nrow=nrow(kospi),ncol=1) bond = matrix(NA,nrow=nrow(kospi),ncol=1) stock[1] = 0 # 주식에는 채권의 이자만큼 투자하므로 투자 초기시점에는 0 원을 투입합니다. bond[1] = money # 투자 초기시점에 채권에는 원금 전액을 투자합니다. for(i in 2:nrow(kospi)){ stock[i] = (stock[(i-1)]+(money*chaegwonret[(i-1)]))*(1+ret[(i-1)]) # 채권의 이자액과 전 달의 주식 평가액만큼 재투자 bond[i] = bond[(i-1)] # 지난 달 채권 평가액에서 이자만큼 뺐으므로 그대로 } result = cbind(stock,bond,stock+bond) colnames(result) = c('stock','bond','strategy') return(result) } increase = getincrease(200000000) increase

증액 투자법에서는 투자기간 초기에 원금을 전액 채권에 투자하고, 매달 수령하는 이자 전액만 주식에 투자하는 로직을 가지고 투자합니다. 그래서 처음 주식의 투자액은 0 원이며, 채권의 투자액은 원금입니다. 그 다음부터는 채권의 이자액과 주식의 전 달 평가액을 합친 금액만큼 주식에 재투자하고 채권에는 원금 그대로 남아있습니다.

경축! 아무것도 안하여 에스천사게임즈가 새로운 모습으로 재오픈 하였습니다.
어린이용이며, 설치가 필요없는 브라우저 게임입니다.
https://s1004games.com

아래는 증액 투자법을 통해 투자하였을 때 포트폴리오의 가치변화를 출력하는 코드입니다. 코스피와 채권을 벤치마크로 함께 출력했습니다.

plot(date,kospi_hold,type='l',main="주식과 채권에 각각 투자했을 때",ylab='가치(단위:억 원)',xlab='기간',ylim=c(7e+07,10e+08)) lines(date,chaegwon,type='l',col='blue') # 채권 벤치마크 abline(h=2e+08,col='red') # 원금선 lines(date,increase[,3],type='l',col='brown') legend('topleft',legend='정액',col='navy',pch='l')

다음은 증액 투자법과 기타 다른 전략들의 사용했을 때 주식 보유비중의 변화를 한 눈에 보기 쉽게 출력하는 코드입니다. 마찬가지로 다른 전략들 코드가 없으시다면 지난 포스트를 보고 코드를 먼저 실행해주신 뒤 따라오시면 됩니다.

plot(date,maib[,1]/maib[,3]*100,ylim=c(0,100),type='l',main='주식-채권 비중', ylab='주식보유%',xlab='기간',col='green') # 매입 보유법의 주식 보유 비중 abline(h=50,col='purple') # 정률 투자법의 주식 보유 비중 lines(date,maib[,2]/maib[,3]*100,col='blue') # 변율 투자법의 주식 보유 비중(매입보유법의 반대) lines(date,100000000/fixed[,3]*100,col='purple') # 정액 투자법의 주식 보유 비중) lines(date,increase[,1]/increase[,3]*100,col='brown') # 증액 투자법의 주식 보유 비중 legend("topleft",legend=c('매입','정률','변율','정액','증액'),col=c('green','purple','orange','navy','brown'),pch='l') grid() # 그래프 뒤의 점선 출력

읽어주셔서 감사드리고 보충해야할 점이나 궁금하신점 있으시면 댓글에 달아주시면 좋겠습니다.

[출처] https://m.blog.naver.com/jk940/221444840632

본 웹사이트는 광고를 포함하고 있습니다.
광고 클릭에서 발생하는 수익금은 모두 웹사이트 서버의 유지 및 관리, 그리고 기술 콘텐츠 향상을 위해 쓰여집니다.
번호 제목 글쓴이 날짜 조회 수
공지 오라클 기본 샘플 데이터베이스 졸리운_곰 2014.01.02 25407
공지 [SQL컨셉] 서적 "SQL컨셉"의 샘플 데이타 베이스 SAMPLE DATABASE of ORACLE 가을의 곰을... 2013.02.10 24826
공지 [G_SQL] Sample Database 가을의 곰을... 2012.05.20 26218
» [R lang 크롤링] (R) [전략적가치투자] - 증액 투자법 file 졸리운_곰 2023.12.10 24
1070 [R lang 크롤링] (R) [전략적가치투자] - 정액 투자법 file 졸리운_곰 2023.12.10 27
1069 [R lang 크롤링] (R) [전략적가치투자] - 매입 보유법, 정률 투자법, 변율 투자법 file 졸리운_곰 2023.12.10 35
1068 [R lang 크롤링] (R) wordcloud2로 더 예쁘게 시각화하기 file 졸리운_곰 2023.12.10 41
1067 [R lang 크롤링] (R) 나만의 주식차트만들기 / quantmod 패키지(2) file 졸리운_곰 2023.12.10 49
1066 [R lang 크롤링] (R) R에서 주가정보 가져오기 / quantmod 패키지(1) file 졸리운_곰 2023.12.10 59
1065 [R lang 크롤링] (R) 정규식에서 사용되는 주요 기호들과 의미 file 졸리운_곰 2023.12.10 66
1064 [R lang 크롤링] (R) 종목토론실 텍스트마이닝하여 시각화하기 file 졸리운_곰 2023.12.10 83
1063 [R lang 크롤링] (R) 네이버금융에서 종목토론방 크롤링 file 졸리운_곰 2023.12.10 12
1062 [통계 R 언어] [ R ] pipe operator %>% 의 의미 - magrittr 패키지 졸리운_곰 2023.12.10 36
1061 [R lang 크롤링] [R 코드] 웹사이트 크롤링 졸리운_곰 2023.12.10 45
1060 [R lang 크롤링] R - 크롤링 file 졸리운_곰 2023.12.10 37
1059 [통계 R 언어] [Rtips] 불리는 패키지가 없습니다 해결 방법 file 졸리운_곰 2023.12.10 35
1058 [통계 R 언어] 패키지 설치 에러시 ERROR configuration failed for package RCurl during installation of DESeq file 졸리운_곰 2023.12.10 43
1057 [R lang 크롤링] 최대한 친절하게 쓴 R 크롤러 만들기 file 졸리운_곰 2023.12.10 52
1056 [데이터 수집 및 전처리] 주식 전종목 어떻게 불러올까? 거래소 종목 불러오기 file 졸리운_곰 2023.12.09 19
1055 [데이터 수집 및 전처리] [Python/파이썬]네이버증권API 활용 - 회사명, 종목코드 받아오기 file 졸리운_곰 2023.12.08 49
1054 [데이터 수집 및 전처리] 네이버 금융(차트)에서 주가 갈무리(크롤링)하기 file 졸리운_곰 2023.12.08 48
1053 [데이터 수집 및 전처리] 네이버 증권에서 일봉, 주봉 데이터 가져오기 file 졸리운_곰 2023.12.08 44
1052 [oracle] Pro*C 사용 방법 안내 (Ver 0.9) 이 문서는 오라클의 Pro*C/C++ Precompiler Programmer's Guide.pdf 문서의 일부분을. 정리한 것입니다. file 졸리운_곰 2023.09.08 68
대표 김성준 주소 : 경기 용인 분당수지 U타워 등록번호 : 142-07-27414
통신판매업 신고 : 제2012-용인수지-0185호 출판업 신고 : 수지구청 제 123호 개인정보보호최고책임자 : 김성준 sjkim70@stechstar.com
대표전화 : 010-4589-2193 [fax] 02-6280-1294 COPYRIGHT(C) stechstar.com ALL RIGHTS RESERVED