+ if (sum(indcond) < 10)
+ {
+ large = 2
+ bornes = mean(dataj[25:48]) + c(-large,large)
+ indcond = varexp[,"PMjour"]>=bornes[1] & varexp[,"PMjour"]<=bornes[2]
+ }
+ while (sum(indcond) < 10)
+ {
+ large = large + 3
+ bornes = mean(dataj[25:48]) + c(-large,large)
+ indcond = varexp[,"PMjour"]>=bornes[1] & varexp[,"PMjour"]<=bornes[2]
+ }