docs/articles/DescriptiveStats.R

In okgreece/DescriptiveStats.OBeu: Descriptive Statistics 'OpenBudgets.eu'

## ----load, warning=FALSE, include=TRUE-----------------------------------
# load DescriptiveStats.OBeu
library(DescriptiveStats.OBeu)

## ---- echo=FALSE, include = TRUE-----------------------------------------
str(Wuppertal_df)

## ----analysis------------------------------------------------------------
wuppertalanalysis = ds.analysis(Wuppertal_df,outliers=FALSE, fr.select = "Produktbereich", tojson=TRUE) # json string format
jsonlite::prettify(wuppertalanalysis) # use prettify of jsonlite library to add indentation to the returned JSON string

## ----descriptive stats---------------------------------------------------
ds.statistics(Wuppertal_df) # list format

## ----descriptive stats to json-------------------------------------------
wuppertalstats = ds.statistics(Wuppertal_df, tojson = TRUE) # json  format
jsonlite::prettify(wuppertalstats) # use prettify of jsonlite library to add indentation to the returned JSON string

## ----hist----------------------------------------------------------------
ds.hist(Wuppertal_df$Amount, breaks= "Sturges") # list format

## ----hist json-----------------------------------------------------------
wuppertalhist = ds.hist(Wuppertal_df$Amount, breaks= "Sturges", tojson=TRUE) # json  format
jsonlite::prettify(wuppertalhist) # use prettify of jsonlite library to add indentation to the returned JSON string

## ----boxplot json--------------------------------------------------------
wuppertalbox = ds.boxplot(Wuppertal_df, width = 0.15 , outl = FALSE, tojson=TRUE) # json  format
jsonlite::prettify(wuppertalbox) # use prettify of jsonlite library to add indentation to the returned JSON string


## ----correlation json----------------------------------------------------
iriscorr = ds.correlation(iris, cor.method="pearson", tojson=TRUE) # json format
jsonlite::prettify(iriscorr) # use prettify of jsonlite library to add indentation to the returned JSON string

## ----frequency-----------------------------------------------------------
wuppertalfreq = ds.frequency(Wuppertal_df$Produktbereich, tojson = TRUE)
jsonlite::prettify(wuppertalfreq) # use prettify of jsonlite library to add indentation to the returned JSON string

## ----kurtosis------------------------------------------------------------
ds.kurtosis(Wuppertal_df$Amount, tojson=TRUE)

## ----skewness------------------------------------------------------------
ds.skewness(Wuppertal_df$Amount, tojson=TRUE)