How to generate many load profiles of EV superchargers in R

#1
Hi guys :wave:,

I make balance simulation of load profile electric vehicle chargers in R. I use CHADEMO (45 kW). I need to genarate a lot of profiles. I can make one profile, but it is not convenient. See example:

HTML:
Chademo1=numeric(1440)               ### minute time axis a day
 for (i in c(300:325,
 420:445,
 480:509,
 515:537,
 700:725,                             ### charging time for every vehicle is from 20 to 30 minutes
 960:991,
 1000:1023,
 1100:1130,
 1200:1229
 )){                                  
 Chademo1[i]=45                       ### charging power 45 kW
 }
 plot.ts(Chademo1, main="CHADEMO 1 Profile")



Is there a way how to generate multiple profiles (Chademo1, Chademo2, Chademo3 .... ChademoX) so that the charging time comes from normal distribution (20 to 30 minutes). Most electric cars are charging in the morning (for example 07:30), falling during the lunch and rising again in the evening (for example at 17:00)?

Thank you.