UNIX for Advanced & Expert Users

3 ,5 ,0
0 ,0 ,0 
0 ,0 ,0 
2 ,5 ,0
0 ,0 ,0

4 ,3.5 ,0.25
1 ,3 ,0
0 ,0 ,0 
3 ,4.33333 ,0.888889
0 ,0 ,0

con  <- file('data01.csv', open="r")
con2 <- file('data02.csv', open="r")
current.line<- 1
a<- vector();
b<- vector();
while (length(data01 <- readLines(con, n = 1, warn = FALSE)) > 0) {
	data02 <- readLines(con2, n = 1, warn = FALSE)
	a[[current.line]]<- as.vector(strsplit(data01, split=","))
	b[[current.line]]<- as.vector(strsplit(data02, split=","))
	test<- cosine (a[[current.line]], b[[current.line]])
	write.csv(test, file="test.csv")
	current.line <- current.line+ 1
  } 
close(con)
close(con2)