## 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()
Spec
setTargetReturn(Spec) = mean(colMeans(Data))
## Allow for unlimited Short Selling:
Constraints = "LongOnly"
## efficientPortfolio -
# Compute properties of efficient Portfolio:
efficientPortfolio(Data, Spec, Constraints)
## tangency Portfolio -
# Compute properties of tangency Portfolio:
tangencyPortfolio(Data, Spec, Constraints)
## minvariancePortfolio -
# Compute properties of minimum variance Portfolio:
minvariancePortfolio(Data, Spec, Constraints)
Run the code above in your browser using DataLab