Как правильно ввести $ state для модульных тестов углового интерфейса?

Все, что вам нужно, это

x <- factor( x , ordered = FALSE )

, например

x <- factor( c(1,2,"a") , ordered = TRUE )
x
#[1] 1 2 a
#Levels: 1 < 2 < a

x <- factor( x , ordered = FALSE )
x
#[1] 1 2 a
#Levels: 1 2 a