投資可能領域を描画する時等、ポートフォリオウェイトの可能な全ての組み合わせのが欲しい場合があるのでそれを返す関数を作成した。 combination.constantsum <- function(num,val.step,val.current=1) { if(num==1){ return(val.current) } result <- NULL…