factor_layout <- matrix(c("f1", NA, NA,
NA, "f3", "f4",
"f2", NA, NA), byrow = TRUE, 3, 3)
factor_point_to <- auto_factor_point_to(factor_layout,
f1 = "left",
f2 = "left",
f3 = "down",
f4 = "down")
factor_point_to
Run the code above in your browser using DataLab