如何对由外部文件导入的数据进行friedman检验？

quwuji <-
matrix(c(2, 7, 3, 6,
         9, 10, 7, 5,
         4, 6, 1, 4,
         9, 7, 4, 5,
         6, 8, 4, 3,
         9, 4, 2, 6),
       nrow = 6,
       byrow = TRUE,
       dimnames = list(1 : 6,
                       c("配方1", "配方2","配方3","配方4")))
friedman.test(quwuji)

上面是非参数检验中Friedman检验的一个程序，数据是用矩阵形式，但要一个一个录入数据，太麻烦了。
如果有现成的txt数据，就可以用read.table函数导入R，但如何对此进行Friedman检验呢？

quwuji=as.matrix(read.table("friedman.txt"))

dimnames(quwuji) <- list(1 : 6,c("配方1", "配方2","配方3","配方4"))
friedman.test(quwuji)
#   Friedman rank sum test
#data:  quwuji
#Friedman chi-squared = 8.5932, df = 3, p-value = 0.03522
friedman.txt
   friedman.txt (120 Bytes)

2011-12-21 11:58:14 上传

epoh老师的程序执行结果：
> quwuji=as.matrix(read.table("friedman.txt"))
>
> dimnames(quwuji) <- list(1 : 6,c("配方1", "配方2","配方3","配方4"))
> friedman.test(quwuji)

        Friedman rank sum test

data:  quwuji
Friedman chi-squared = 8.5932, df = 3, p-value = 0.03522

> #   Friedman rank sum test
> #data:  quwuji
> #Friedman chi-squared = 8.5932, df = 3, p-value = 0.03522
> friedman.txt
错误: 找不到对象'friedman.txt'
>