FileName<-system.file("data/MeasuredRealData.1.txt", package="VecStatGraphs2D")
dat<-LoadData(FileName, Type=1)
data<-dat[,1:8]
DrawVectors(data, SVGf=0)
FileName<-system.file("data/datos1.1.txt", package="VecStatGraphs2D")
dat<-LoadData(FileName, Type=1)
data<-dat[,1:8]
DrawVectors(data, SVGf=0)
FileName<-system.file("data/datos2.1.txt", package="VecStatGraphs2D")
dat<-LoadData(FileName, Type=1)
data<-dat[,1:8]
DrawVectors(data, SVGf=0)
FileName<-system.file("data/datos3.1.txt", package="VecStatGraphs2D")
dat<-LoadData(FileName, Type=1)
data<-dat[,1:8]
DrawVectors(data, SVGf=0)
FileName<-system.file("data/datos4.1.txt", package="VecStatGraphs2D")
dat<-LoadData(FileName, Type=1)
data<-dat[,1:8]
DrawVectors(data, SVGf=0)
FileName<-system.file("data/datos1050.1.txt", package="VecStatGraphs2D")
dat<-LoadData(FileName, Type=1)
data<-dat[,1:8]
DrawVectors(data, SVGf=0)
FileName<-system.file("data/masdatos.1.txt", package="VecStatGraphs2D")
dat<-LoadData(FileName, Type=1)
data<-dat[,1:8]
DrawVectors(data, SVGf=0)
FileName<-system.file("data/simple.1.txt", package="VecStatGraphs2D")
dat<-LoadData(FileName, Type=1)
data<-dat[,1:8]
DrawVectors(data, SVGf=0)
Run the code above in your browser using DataLab