The function RiskEurope()
..
Usage
RiskEurope(
data = list(),
nLots = NULL,
sizeLot = NULL,
ProbUnitPos,
ProbThisLot,
Virulence = ""
)
Arguments
- data
A list of four elements see
Lot2LotGen()
function.- nLots
see
Lot2LotGen()
function.- sizeLot
see
Lot2LotGen()
function.- ProbUnitPos
is
- ProbThisLot
is
- Virulence
is
Examples
library(qraLm)
sizeLot <- 5
nLots <- 3
N <- matrix(10^rnorm(sizeLot * nLots, 3, 2), ncol = sizeLot, nrow = nLots)
N[1, ] <- 0
ProbUnitPos <- rep(0.5, nLots)
ProbThisLot <- c(.1, .2, .3)
Virulence <- ""
# error Error in dimnames(x) <- dn
# :length of 'dimnames' [2] not equal to array extent
# RiskEurope(N, ProbUnitPos, ProbThisLot, "")