hohenTp<- read.table("C:/CLIM/HohenT.txt",header=T)       
hohenPr<- read.table("C:/CLIM/HohenP.txt",header=T)     
karlsTp<- read.table("C:/CLIM/KarlsT.txt",header=T)
karlsPr<- read.table("C:/CLIM/KarlsP.txt",header=T)
potsdTp<- read.table("C:/CLIM/PotsdT.txt",header=T)
potsdPr<- read.table("C:/CLIM/PotsdP.txt",header=T) 
bremenTp<- read.table("C:/CLIM/BremenT.txt",header=T)
bremenPr<- read.table("C:/CLIM/BremenP.txt",header=T)