FileName<-system.file("data/MeasuredRealData.txt", package="VecStatGraphs2D")
dat<-LoadData(FileName, Type=1, Direction=2)
final_data_<-dat[,6:7]
initial_data_<-dat[,8:9]
DrawVectors(final_data_, initial_data_)
Run the code above in your browser using DataLab