## data -
# Load Data and Convert to timeSeries Object:
Data = as.timeSeries(data(smallcap.ts))
Data = Data[, c("BKE", "GG", "GYMB", "KRON")]
## portfolioFrontier -
# Compute Efficient Frontier:
Frontier = portfolioFrontier(Data)
## frontierPoints:
# Extract Points and Plot:
x = frontierPoints(Frontier, risk = "VaR", auto = FALSE)
x = frontierPoints(Frontier, risk = "CVaR", auto = FALSE)
Run the code above in your browser using DataLab