# NOT RUN {
ob <- organizeBirds(bombusObs)
attr(ob, "visitCol")
vis <- visits(ob)
tmp.vis <- createVisits(bombusObs,
idCols=c("locality"),
timeCols = c("day", "month", "year"),
gridIdCol = "id")
visits(ob, name = "visNoRecorder", useAsDefault = TRUE) <- tmp.vis
vis2 <- visits(ob)
attr(ob, "visitCol")
# }
Run the code above in your browser using DataLab