## Define a NG_data object
ng.iris <- ng_data(name = "iris", data = iris[,1:4])
## Display shortnames
shortnames(ng.iris) ## no shortnames defined yet
## Modify the shortnames
shortnames(ng.iris) <- c("sL","sW","pL","pW")
## Display updated shortnames
shortnames(ng.iris) ## no shortnames defined yet
Run the code above in your browser using DataLab