##BRIFFA 2008
  #UTM http://www.dmap.co.uk/ll2tm.htm  27E meridian 
#http://www.helsinki.fi/science/palaeoclim/datadown.htm  #data sets 
#http://www.joensuu.fi/penttizetterberg/index2.html
#http://sokl.joensuu.fi/saima/homepage3/dataa1.htm
#SAIMA, Joensuu http://sokl.joensuu.fi/saima/saimapublications.htm Lindholm, Merilainen
#metla - Mauri Timonen http://www.metla.fi/pp/MTim/index-en.htm 	Finnish Forest Research Institute,
#  http://lustiag.pp.fi/   http://lustiag.pp.fi/whatsnew.htm
#   TRAE 2008 - http://lustiag.pp.fi/gt_trace2008h.pdf
#http://lustiag.pp.fi/gt_trace2008_cyclic.pdf
#Helsinki http://www.helsinki.fi/science/palaeoclim/index.htm  Eronen, Helama  
	#Helama, S., Mielikäinen, K., Timonen, M. & Eronen, M. 2008. Finnish supra-long tree-ring chronology extended to 5634 BC. Norsk Geografisk Tidsskrift - Norwegian Journal of Geography 62(4): 271-277.
	#Helama, S., Salminen, H., Timonen, M. & Varmola, M. 2008. Dendroclimatological analysis of seeded and thinned Scots pine (Pinus sylvestris L.) stands at the coniferous timberline. New Forests 35(3): 267-284.


    #LOAD COLLATED BRIFFA RW DATA 
       #collated from http://www.cru.uea.ac.uk/cru/people/melvin/PhilTrans2008/TornFinADring.raw 
	download.file("http://www.climateaudit.org/data/briffa.2008/TornFin.rwl.tab","temp.dat",mode="wb")
	load("temp.dat")
	briffa=tree
	dim(briffa) # [1] 188618      4

   #LOAD BRIFFA CRNs
	url="http://www.cru.uea.ac.uk/cru/people/melvin/PhilTrans2008/Column.prn"
	test=read.table(url,skip=1,fill=TRUE)
	dim(test)
	temp=(test== -9999); test[temp]=NA
  	names(test)=c("year","TornFin.SPL","count1","Yamal.SPL", "count2", "Taybav.SPL","count3","Eurasia.SPL","count4","TornFin.RCS", "count5","Yamal.RCS","count6","Taybav.RCS","count7","Eurasia.RCS","count8")   
	tf=test[,c("year","TornFin.SPL","TornFin.RCS","count1")]
	temp=tf$year>= -289
	plot(tf$year[temp],tf$TornFin.RCS[temp],type="l",col="grey80",xlab="",ylab="")
	  ##lines(tf$year[temp],f(tf$TornFin.RCS[temp]))

    #MAKE INFORMATION FILE
	url="http://www.cru.uea.ac.uk/cru/people/melvin/PhilTrans2008/TornFinADring.raw"
	x=read.fwf(url,widths=8)
	x=unique(x);length(x)
	briffa.info=x;names(briffa.info)="id"
	briffa.info$id=as.character(briffa.info$id)
	briffa.info$id=gsub(" +$","",briffa.info$id)
	row.names(briffa.info)=1:1022
	briffa.info$start=tapply(briffa$year,factor(briffa$id,levels=briffa.info$id),min)
	briffa.info$end=tapply(briffa$year,factor(briffa$id,levels=briffa.info$id),max)
	briffa.info
	  #the first 430 are sorted by decreasing end date; the next 592 are sorted by increasing start date
	  #the first 430 are from Finnish data (but one appears to be in Norway); the 592 are from Sweden
	  #reported 430; 587 
	tempf=c(rep(TRUE,430),rep(FALSE,592))  #Finnish series