# NOT RUN {
l1<-"1 -1.409 2.808 0.3 0.3 1.111 10"
l2<-"2 -2.505 2.791 0.3 0.3 1.111 10"
l3<-"3 -2.346 2.754 0.3 0.3 1.069 10"
l4<-"4 -1.198 2.872 0.3 0.3 1.074 10"
fourhills<-c(l1,l2,l3,l4)
tf <- tempfile()
writeLines(fourhills, tf)
read.hills(tf, per=c(TRUE,TRUE))
# }
Run the code above in your browser using DataLab