vertices <- returnVertexList(paste("V", 1:4, sep = ""),
types = rep("Discrete", 4))
factor <- newFactor(c(1, 2, 3), vertices[1:3], type = "Generator")
str(factor)
color(factor)
label(factor)
labelPosition(factor)
name(factor)
index(factor)
position(factor)
nodeIndices(factor)
color(factor) <- "green"
label(factor) <- "v-1-2-3"
labelPosition(factor) <- c(1, 2, 3)
name(factor) <- "V-123"
index(factor) <- 3
position(factor) <- c( 10, 20, 30, 40)
str(factor)
Run the code above in your browser using DataLab