# NOT RUN {
data(puechabon)
cp <- count.points(puechabon$locs[,c("X","Y")], puechabon$kasc)
puechabon$kasc
li <- kasc2df(puechabon$kasc)
cpi <- c(cp)[li$index]
histniche(li$tab, cpi)
histniche(li$tab, cpi, ty="l")
# }
Run the code above in your browser using DataLab