# Ler os dados de um arquivo (interagindo com o usuário)
dados <- read.table(file.choose(),header=TRUE)

# Carrega diretamente da Internet a função que aplica o teste de Friedman e o Pós-Teste
source("http://www.r-statistics.com/wp-content/uploads/2010/02/Friedman-Test-with-Post-Hoc.r.txt")  

# Aplica o teste de Friedman
friedman.test.with.post.hoc(desempenho ~ tecnica | classe, dados, T, T, F, F, 0.5)