## data -
# Load Data and Convert to timeSeries Object:
Data = as.timeSeries(data(smallcap.ts))
Data = Data[, c("BKE", "GG", "GYMB", "KRON")]
Data
## portfolioSpec -
# Set Default Specifications:
Spec = portfolioSpec()
setWeights(Spec) = rep(0.25, times = 4)
Spec
## Allow for unlimited Short Selling:
Constraints = "LongOnly"
## Compute properties of Efficient Portfolio
feasiblePortfolio(Data, Spec, Constraints)
Run the code above in your browser using DataLab