Nothing
"dhhrss" <-
function (dhhrobj)
{
v.hft <- dhhrobj$v.hft
s.hft <- dhhrobj$s.hft
k.hft <- dhhrobj$k.hft
cat("Skewness calculations\n")
cat("_____________________\n")
cat("Summary s.hft:\n")
print(summary(s.hft))
cat("Kurtosis calculations\n")
cat("_____________________\n")
cat("Summary k.hft:\n")
print(summary(k.hft))
cat("Variance calculations\n")
cat("_____________________\n")
mv <- mean(v.hft)
cat("Variance of scale corrected HFT is", var(v.hft/mv), "\n")
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.