UNIX for Advanced & Expert Users

data01 <- c(t(read.table(file = "data01.csv", sep = ",", header=FALSE)))
data02 <- c(t(read.table(file = "data02.csv", sep = ",", header=FALSE)))
result <-cosine(data01,data02)
write.csv(result, "result.csv")

con  <- file('data01.txt', open="r")
con2 <- file('data02.txt', open="r")
a <- list();
b <- list();
test <- list();
current.line01 <- 1
current.line02 <- 1
while (length(data01 <- readLines(con, n = 10, warn = FALSE)) > 0) {
   while (length(data02 <- readLines(con2, n = 10, warn = FALSE)) > 0) {
		a[[current.line01]]<- c(data01)
		b[[current.line02]]<- c(data02)
		test <-cosine(a[[current.line01]], b[[current.line02]])
		write.table(test , "test.txt")
		current.line01 <- current.line + 1
		current.line02 <- current.line + 1
  } 
  } 
close(con)
close(con2)

while (length(data01 <- readLines(con, n = 10, warn = FALSE)) > 0) {
  data02 <- readLines(con2, n = 10, warn = FALSE)
  ...
}

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

Error in crossprod(x, y) : 
  requires numeric/complex matrix/vector arguments