## berndtInvest -
data(berndtInvest)
# Exclude Date, Market and Interest Rate columns from data frame,
berndtAssets = berndtInvest[, -c(1, 11, 18)]
rownames(berndtAssets) = berndtInvest[, 1]
head(berndtAssets)Run the code above in your browser using DataLab