is.random(object) is.random(object) <- value
A factor is random if it is of class "ranfact" which inherits from "factor".
is.random(guayule[,c("reps","flats")]) <- T is.random(guayule)