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 T1 analysis
# BusT1 <- T1(Bus, laba, labb, labc)
# # interactive T1 analysis (when labels are not available)
# BusT1 <- T1(Bus)
# ## End(Not run)
Run the code above in your browser using DataLab