#Parameter vector:
params <- t(data.frame(epsilonGEV = 0.2, muGEV = 3, sigmaGEV = 1,
epsilonGPD = 0.2, thresholdGPD = 3, sigmaGPD = 1,
nPeaks = 70, SampleTimeHorizon = 70))
tsEvaComputeTimeRP(params, RPiGEV = 10, RPiGPD = 10)
Run the code above in your browser using DataLab