Вы можете сортировать строки и использовать match
, т.е.
v1 <- do.call(paste, data.frame(t(apply(df, 1, sort))))
match(v1, unique(v1))
#[1] 1 2 1 3 2 3
http://www.jslint.com/ поймает их проблемы точки с запятой и запятая.
Пример:
Error:
Problem at line 1 character 17: Extra comma.
var foo = ['bar',]
Problem at line 1 character 19: Missing semicolon.
var foo = ['bar',]
Я попробовал бы его в IE8rc1. Новые средства отладки находятся на далеком расстоянии от Firebug, но они должны сказать Вам точно, что проблема в этом случае.