[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 원이며, 채권의 투자액은 원금입니다. 그 다음부터는 채권의 이자액과 주식의 전 달 평가액을 합친 금액만큼 주식에 재투자하고 채권에는 원금 그대로 남아있습니다.

경축! 아무것도 안하여 에스천사게임즈가 새로운 모습으로 재오픈 하였습니다.
어린이용이며, 설치가 필요없는 브라우저 게임입니다.
http://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 25082
공지 [SQL컨셉] 서적 "SQL컨셉"의 샘플 데이타 베이스 SAMPLE DATABASE of ORACLE 가을의 곰을... 2013.02.10 24562
공지 [G_SQL] Sample Database 가을의 곰을... 2012.05.20 25940
1081 [데이터베이스 모델링] 테이블정의양식 file 졸리운_곰 2024.02.23 3
1080 [MYSQL] MYSQL JSON 관련 함수 file 졸리운_곰 2024.02.18 6
1079 [통계 R 언어] R 언어에서 Python 코드 호출 : Calling Python from R 졸리운_곰 2024.01.28 2
1078 암호화폐 (비트코인, cryptocurrency, bitcoin) Solidity 이더리움 Solidity Tutorial: How to build and deploy a smart contract to send Ether from one account to another file 졸리운_곰 2024.01.23 0
1077 암호화폐 (비트코인, cryptocurrency, bitcoin) Solidity 이더리움 Cheatsheet 졸리운_곰 2024.01.23 0
1076 [데이터분석 & 데이터 사이언스] 데이터에 관한 꼭 알아야 할 오해와 진실 12가지 졸리운_곰 2024.01.17 3
1075 [tensorflow 1.13 1.x 버전 설치법] [TensorFlow] Anaconda 가상환경 이용하여 TensorFlow GPU 설치 졸리운_곰 2024.01.08 1
1074 [R lang 크롤링] 비트코인(암호화폐) 가격 불러오기 in R 졸리운_곰 2023.12.11 4
1073 [통계 R 언어] 이동평균이 표시된 plotly 동적 주가 그래프 in R file 졸리운_곰 2023.12.11 2
1072 [R lang 크롤링] 금융 데이터 분석 주가 데이터 가져오기 in R 졸리운_곰 2023.12.11 3
» [R lang 크롤링] (R) [전략적가치투자] - 증액 투자법 file 졸리운_곰 2023.12.10 1
1070 [R lang 크롤링] (R) [전략적가치투자] - 정액 투자법 file 졸리운_곰 2023.12.10 1
1069 [R lang 크롤링] (R) [전략적가치투자] - 매입 보유법, 정률 투자법, 변율 투자법 file 졸리운_곰 2023.12.10 3
1068 [R lang 크롤링] (R) wordcloud2로 더 예쁘게 시각화하기 file 졸리운_곰 2023.12.10 3
1067 [R lang 크롤링] (R) 나만의 주식차트만들기 / quantmod 패키지(2) file 졸리운_곰 2023.12.10 3
1066 [R lang 크롤링] (R) R에서 주가정보 가져오기 / quantmod 패키지(1) file 졸리운_곰 2023.12.10 1
1065 [R lang 크롤링] (R) 정규식에서 사용되는 주요 기호들과 의미 file 졸리운_곰 2023.12.10 1
1064 [R lang 크롤링] (R) 종목토론실 텍스트마이닝하여 시각화하기 file 졸리운_곰 2023.12.10 2
1063 [R lang 크롤링] (R) 네이버금융에서 종목토론방 크롤링 file 졸리운_곰 2023.12.10 2
1062 [통계 R 언어] [ R ] pipe operator %>% 의 의미 - magrittr 패키지 졸리운_곰 2023.12.10 1
대표 김성준 주소 : 경기 용인 분당수지 U타워 등록번호 : 142-07-27414
통신판매업 신고 : 제2012-용인수지-0185호 출판업 신고 : 수지구청 제 123호 개인정보보호최고책임자 : 김성준 sjkim70@stechstar.com
대표전화 : 010-4589-2193 [fax] 02-6280-1294 COPYRIGHT(C) stechstar.com ALL RIGHTS RESERVED