#
# the script to draw learning lines 
#

# [F:\\works\\projects\\python\\RecommenderSystem\\tests\\16.09.24 -- 17-35\\trace.txt] -- the folder where we run recommender system

learning <- read.table("F:\\works\\projects\\python\\RecommenderSystem\\tests\\16.09.24 -- 17-35\\trace.txt", quote="\"", comment.char="")
x <- c(min(learning$V1),max(learning$V1))
y <- c(0,max(learning$V2))
par(col="black")
plot(x,y)
lines(learning$V1,learning$V2)
lines(learning$V1,learning$V3)
lines(learning$V1,learning$V4)
lines(learning$V1,learning$V5)
lines(learning$V1,learning$V6)
lines(learning$V1,learning$V7)
#lines(learning$V1,learning$V9)
y <- c(min(learning$V2),min(learning$V2))
lines(x,y)
y <- c(min(learning$V3),min(learning$V3))
lines(x,y)