A wrapper to relax
gdp(time = 4L, freq = 0.05)
[num] number of seconds needed to relax yourself (default = 4)
[num] rotating frequency (default = 0.05/s)
invisible()
if (interactive()) {
gdp()
gdp(5)
required_seconds_of_relax <- 10 # AKA: "conta fino a dieci!"
rate_of_anxiety <- 1/1000 # AKA: "mi girano a mille!"
gdp(required_seconds_of_relax, rate_of_anxiety)
}