## Load Data and Convert to timeSeries Object:
data = as.timeSeries(data(smallcap.ts))
data = data[, c("BKE", "GG", "GYMB", "KRON")]
head(data)
## portfolioFrontier -
frontier = portfolioFrontier(data)
print(frontier)
## weightsSlider -
# Try Frontier Slider:
# weightsSlider(frontier)
Run the code above in your browser using DataLab