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 <- new_MeanVar_portfolio(mean_vec=means,
cov_mtrx=cov_mtrx, gamma=2)
str(validate_MeanVar_portfolio(cust_port_simp))
Run the code above in your browser using DataLab