# NOT RUN {
# run a workflow, using the logistic regression model
# }
# NOT RUN {
Without Replicate
work1 <- workflow(occurrence = list(UKAnophelesPlumbeus,UKAnophelesPlumbeus,UKAnophelesPlumbeus),
covariate = UKAir,
process = OneHundredBackground,
model = LogisticRegression,
output = SameTimePlaceMap)
# With Replicate
work2 <- workflow(occurrence = Replicate(UKAnophelesPlumbeus, 3),
covariate = UKAir,
process = OneHundredBackground,
model = LogisticRegression,
output = SameTimePlaceMap)
# The workflows are the same
plot(work1)
plot(work2)
# Output plots show the random placement of background points
# in each run
work1 <- workflow(occurrence = UKAnophelesPlumbeus,
covariate = UKAir,
process = Replicate(Background(n=10), n = 10),
model = LogisticRegression,
output = PrintMap)
# }
Run the code above in your browser using DataLab