a <- new("dg.DiscreteVertex", name = "a", label = "A",
index = 1, position = c(0, 0, 0))
str(a)
color(a)
label(a)
labelPosition(a)
name(a)
index(a)
position(a)
stratum(a)
color(a) <- "red"
label(a) <- "A vertex"
labelPosition(a) <- c(1, 2, 3)
name(a) <- "Capital.A"
index(a) <- -1
position(a) <- c(10, 20, 30)
stratum(a) <- 1
str(a)
Run the code above in your browser using DataLab