data(Bus)
# labels for Bus data
laba <- rownames(Bus)
labb <- substr(colnames(Bus)[1:5], 1, 1)
labc <- substr(colnames(Bus)[seq(1,ncol(Bus),5)], 3, 8)
## Not run:
# # interactive T2 analysis
# BusT2 <- T2(Bus, laba, labb, labc)
# # interactive T2 analysis (when labels are not available)
# BusT2 <- T2(Bus)
# ## End(Not run)
Run the code above in your browser using DataLab