# Visualize basics from data
#
# License: GPL version 3
# Jens Mathis Sauer (c) 2020

source("utils.R")
sma_init()

sma_hist_asct_age <- function() {
	data <- data.frame(asct_age = secmal$asct_age)
	ggplot(data, aes(x = asct_age)) + geom_histogram(binwidth = 5)
}

sma_hist_asct_year <- function() {
	data <- data.frame(asct_year = secmal$asct_year)
	ggplot(data, aes(x = asct_year)) + geom_histogram(binwidth = 1)
}

sma_plot_file_hist <- function() {
	sma_plot_file("hist_asct_age.png", png, sma_hist_asct_age)
	sma_plot_file("hist_asct_year.png", png, sma_hist_asct_year)
}