n<-3e2 # number of realizations
p<-.5*n # number of assets
gamma<-1
x <- matrix(data = rnorm(n*p), nrow = p, ncol = n)
# Simple MV portfolio
cov_mtrx <- Sigma_sample_estimator(x)
means <- rowMeans(x)
cust_port_simp <- MeanVar_portfolio(mean_vec=means,
cov_mtrx=cov_mtrx, gamma=2)
str(cust_port_simp)
Run the code above in your browser using DataLab