library(data.table)
DataRP=fread("E:/RP/DataLP_RP.csv")
OutF="FmaxRP.csv"
Fmax=aggregate(DataRP$frequence,by=c(list(DataRP$participation,DataRP$Datamicro)),max)
summary(Fmax)
boxplot(Fmax$x~Fmax$Group.2)
table(Fmax$x)
fwrite(Fmax,OutF)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.