s = 7){
> freq <- frequency(1)
> i <- freq > 1:7
> sev<- clamp(severity(sum(i)), 0, L)
> claims <- rep(0, 7)
> claims[i] <- sev
> min(22.5e6,sum(claims))
> }
>
> hist(iterations <- replicate(10000, sim()), breaks = 20)
>
>
7)
claims[i] <- sev
min(22.5e6,sum(claims))
}
hist(iterations <- replicate(1, sim()), breaks = 20)
From: R-help [mailto:r-help-boun...@r-project.org] On Behalf Of HUL-Anthony
Egerton
Sent: Friday, July 14, 2017 7:45 PM
To: r-help@r-project.org
Subject: Re: [R] One Dimensional
Further to my email below, I have just realised that I forgot to include the
specification of L and R.
Hence, the code needs to include the following additional lines at the start;-
L<-7.5e6
R<-2.5e6
Apologies for any confusion caused!
Best regards,
Tony
> On 12 Jul 2017, at 10:03 AM, HUL-A
3 matches
Mail list logo