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

2023.12.10 23:50

졸리운_곰 조회 수:1107

[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

본 웹사이트는 광고를 포함하고 있습니다.
광고 클릭에서 발생하는 수익금은 모두 웹사이트 서버의 유지 및 관리, 그리고 기술 콘텐츠 향상을 위해 쓰여집니다.
이 게시물을
목록
목록
쓰기
태그
대표 김성준 주소 : 경기 용인 분당수지 U타워 등록번호 : 142-07-27414
통신판매업 신고 : 제2012-용인수지-0185호 출판업 신고 : 수지구청 제 123호 개인정보보호최고책임자 : 김성준 sjkim70@stechstar.com
대표전화 : 010-4589-2193 [fax] 02-6280-1294 COPYRIGHT(C) stechstar.com ALL RIGHTS RESERVED