Code : Tout sélectionner
lapply(split(df,df$column_3),function(x) cor.test(x$column_1,x$column_2))
Code : Tout sélectionner
> a=runif(100,0,55)
> b=cut(a,breaks=c(0,25,40,55),labels=c(0,1,2))
Code : Tout sélectionner
> shock_value[round(indic)]
[1] 0 0 5 5 6 6 7 7 8 8 9 9 10 10 12