1 | sumstat(b.test, ETFs)
|
b.test |
|
ETFs |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 | ##---- Should be DIRECTLY executable !! ----
##-- ==> Define data, use random,
##-- or do help(data=index) for the standard data sets.
## The function is currently defined as
function (b.test, ETFs)
{
dat <- diff(log(b.test[seq(1, length(b.test), 52)]))
sds <- sd(dat)
means <- mean(dat) * 100
sharpe <- mean(dat)/sds
maxs <- max(dat) * 100
mins <- min(dat) * 100
output <- c()
output[1] <- sds
output[2] <- means
output[3] <- maxs
output[4] <- mins
output[5] <- sharpe
names(output) <- c("Standard Deviation.", "Average Return",
"Max Annual Return", "Min Annual Return", "Sharpe Ratio")
return(output)
}
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.