# NOT RUN {
l1<-"-3.142 -124.8 -44.76"
l2<-"-3.117 -125.9 -43.05"
l3<-"-3.092 -126.9 -41.22"
l4<-"-3.068 -127.9 -39.36"
l5<-"-3.043 -128.8 -37.45"
fourpoints<-c(l1,l2,l3,l4)
tf <- tempfile()
writeLines(fourpoints, tf)
read.plumed(tf, dim=1, per=c(TRUE,TRUE))
# }
Run the code above in your browser using DataLab