exampledata <- rnorm(10000)
summary(exampledata)
Min. 1st Qu. Median Mean 3rd Qu. Max.
-4.030000 -0.666200 -0.023390 -0.009384 0.664700 4.092000
desc <- function(mydata) {
+ require(e1071)
+ quantls <- quantile(x=mydata, probs=seq(from=0, to=1, by=0.25))
+ themean <- mean(mydata)
+ thesd <- sd(mydata)
+ kurt <- kurtosis(mydata)
+ skew <- skewness(mydata)
+ retlist <- list(Quantiles=quantls, Mean=themean, StandDev=thesd,
+ Skewness=skew, Kurtosis=kurt)
+ return(retlist)
+ }
descstats <- desc(exampledata)
Loading required package: e1071
Error in desc(exampledata) : could not find function "kurtosis"
In addition: Warning message:
In library(package, lib.loc = lib.loc, character.only = TRUE, logical.return
= TRUE, :
there is no package called 'e1071'