2015年10月8日

#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")