pct | reproduce data from the Propensity to Cycle Tool | Machine Learning library

After multiple searches I couldn't find a fit solution that would work in my case.

I have the following table:

I am a begeinner in R and would like to make multiple fisher tests on mutiple row of a dataframe and add the p value/odd ratio on a barplot but need some help.

Here are my data

What I'm trying to achieve:

• Create a formula that calculates a deadline date using four variables : StartDate, Over2%Date, Percentage, Currency
• If Percentage < 2%, the function should first calculate (StartDate + 120)
• If Percentage >= 2%, the function should first calculate the lesser of (StartDate + 120) and (Over2%Date + 30)
• The resulting date cannot fall on a weekend or a holiday, so the function should subtract days until a valid working day is found.
• The range containing the list of holidays to check will vary depending on Currency

Example:

I have identified the below script as being really useful for anyone running Amazon Redshift:

I want to create an user defined function to eliminate code redundancies/repetition.

I want to plot multiple plots like this for multiple col2 (which has several levels) and GROUP by GROUP column.

Sample images of the desired plots:

In a pandas time-series, I am trying to find a combination measure of a threshold with a duration.

For instance, we want the number of periods > 5 minutes, where column ['pct'] is below 80

The dataframe looks like this:

It would thus need to identify 1 period(as we do not care to include NaN values)

I've gotten some of the way with the post from Ben B, and the answer from Alain T here: How to count consecutive periods in a timeseries above/below threshold?

I've attached an ugly image from microsoft paint to illustrate the problem

NB: It is quite a big dataframe, so I am not sure that iterating over the dataframe is the best idea, but any help is very much appreciated.

Using mtcars as an example. I would like to write a function that creates a count and pct column such as below -

I am trying to create a function to get frequencies and proportions for a table1 with this code

my.render.cat <- function(x) { c("", sapply(stats.default(x), function(y) with(y, sprintf("%d (%0.0f %%)", FREQ, PCT)))) }

but when I apply it to the function table1() I get the results for proportions with decimal point instead of comma.

I've tried with options(OutDec= ",") but nothing changes Nor by changing Sys.locale for LC NUMERIC.

I've also tried with format(table1, decimal.mark=",") but it doesn't work for table1 output

any suggestions?

I add a reproducible example using iris dataset and formatting Sepal.length to be able to calculate proportions.

table1::table1(~factor(Sepal.Length) | Species, data = iris, render.categorical=my.render.cat)

Let's say I have some data as follows: