1library(xts) 2 3df <- read.table("data/edhec.csv", header=TRUE, as.is=TRUE, sep=";") 4head(df) 5 6edhec <- xts(apply(df[,-1], 2, function(x) as.numeric(gsub("%", "", x))) / 100, as.Date(df[,1], format="%d/%m/%Y")) 7save(edhec, file="edhec.rda") 8# load("edhec.rda") 9# head(edhec) 10# library(PerformanceAnalytics) 11# data(edhec) 12 13