# Upload this file: mcs = read.table("http://macosa.dima.unige.it/R/macosa.txt",header=FALSE,sep=",") # It puts in mcs a table of points. You will get the word MaCoSa # # The extremes in which the points are: mo = min(mcs$V1); Mo <- max(mcs$V1) mv = min(mcs$V2); Mv <- max(mcs$V2) # The word: BH=4; HF=2 PLANEww(mo,Mo, mv,Mv) polyline(mcs$V1, mcs$V2, "blue") # # What do you get so? PLANE(mo,Mo, mv,Mv) polyline(mcs$V1, mcs$V2, "blue") POINT(mcs$V1, mcs$V2, "red") # # If you want to see the file: http://macosa.dima.unige.it/R/macosa.txt