## 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