fix alg_RPP_theoretical

Author: ngloe

R/alg_RPP_theoretical.R

@@ -49,7 +49,7 @@
 #########################################################################
 alg_RPP_theoretical = function(returns, PR="uni"){
   alg   <- "RPP_theoretical"
-  x = as.matrix(returns)
+  x = as.data.frame(returns)
   q = get_asset_prices(x)
   n = ncol(q)
   H = nrow(x)
@@ -132,8 +132,6 @@ alg_RPP_theoretical = function(returns, PR="uni"){
     }
   }
 
-  return(b)
-  
   # Wealth
   S <- get_wealth(x, b)