#ABG中循环部份例题
Owls <-read.table(file = "Owls.txt",header = T)
names(Owls)
str(Owls)
unique(Owls$Nest)
Owls.ATV <- Owls[Owls$Nest=="AutavauxTV",]
plot(x=Owls.ATV$ArrivalTime,y =Owls.ATV$NegPerChick,xlab = "Arrival Time",
ylab ="Negotiation behaviour", main="AutavauxTV")