## Not run:
#
# #aBio="http://gbyp-sam.googlecode.com/svn/trunk/data/ASPIC/whm/2012/noBrazil/aspic.bio"
#
# res=kobeAspic(aBio,what=c("pts","trks"))
#
# kobePhase(res$pts)+
# geom_point(aes(stock,harvest))+
# geom_path( aes(stock,harvest),data=subset(res$trks,Percentile=="50%"))+
# scale_y_continuous(limits=c(0,3))
# ## End(Not run)
Run the code above in your browser using DataLab