vertices <- returnVertexList(paste("V", 1:4, sep = ""))
factor <- newFactor(1:3, vertices[1:3], type = "Generator")
factoredge <- newFactorEdge(c(1, -1), list(vertices[[1]], factor))
str(factoredge)
color(factoredge)
label(factoredge)
labelPosition(factoredge)
width(factoredge)
nodeIndicesOfEdge(factoredge)
nodeTypesOfEdge(factoredge)
color(factoredge) <- "Black"
label(factoredge) <- "V1~V1:2:3"
labelPosition(factoredge) <- c(0, 1, 2)
width(factoredge) <- 1
nodeIndicesOfEdge(factoredge) <- c(1, -1)
str(factoredge)
Run the code above in your browser using DataLab