m <- example$m
checkPar0(data=m$data, nbStates=2, dist=m$conditions$dist,
estAngleMean = m$conditions$estAngleMean,
formula = m$conditions$formula)
par <- getPar(m)
checkPar0(data=m$data, nbStates=2, dist=m$conditions$dist,
estAngleMean = m$conditions$estAngleMean,
formula = m$conditions$formula,
Par0=par$Par, beta0=par$beta, delta0=par$delta)
dummyDat <- data.frame(step=0,angle=0,cov1=0,cov2=0)
checkPar0(data=dummyDat, nbStates=2, dist=m$conditions$dist,
estAngleMean = m$conditions$estAngleMean,
formula = m$conditions$formula)
if (FALSE) {
simDat <- simData(nbStates=2, dist=m$conditions$dist, Par = par$Par,
spatialCovs = list(forest=forest),
centers = matrix(0,1,2),
nbCovs = 2)
checkPar0(data = simDat, nbStates=2, dist=m$conditions$dist,
formula = ~forest,
DM = list(step=list(mean=~cov1, sd=~cov2),
angle=list(mean=~center1.angle,concentration=~1)),
estAngleMean=list(angle=TRUE),
circularAngleMean=list(angle=TRUE))
par <- list(step=rnorm(8),angle=rnorm(4))
beta0 <- matrix(rnorm(4),2,2)
delta0 <- c(0.5,0.5)
checkPar0(data = simDat, nbStates=2, dist=m$conditions$dist,
Par0 = par, beta0 = beta0, delta0 = delta0,
formula = ~forest,
DM = list(step=list(mean=~cov1, sd=~cov2),
angle=list(mean=~center1.angle,concentration=~1)),
estAngleMean=list(angle=TRUE),
circularAngleMean=list(angle=TRUE))
}
Run the code above in your browser using DataLab