# NOT RUN {
data(ASTI)
si <- ASTI[ ,c(10,19,20,21)] ## self-knowledge and integration
pm <- ASTI[ ,c(1,5,9,22)] ## peace of mind
na <- ASTI[ ,c(3,6,8,12)] ## non-attachment
st <- ASTI[ ,c(2,4,7,13,16,24,25)] ## self-transcendence
pg <- ASTI[ ,c(11,14,15,17,18,23)] ## Presence in the here-and-now and growth
# }
Run the code above in your browser using DataLab