# NOT RUN {
  ## APS regression predicting miles per gallon based 
  ## on vehicle weight, type of 
  ## carborator, & number of engine cylinders
     apsOut<-aps(mtcars,"mpg",list("wt","carb","cyl"))
  ## APS regression predicting paragraph comprehension based 
  ## on thre verbal tests: general info, sentence comprehension,
  ## & word classification
 
  ## Use HS dataset in MBESS 
     require ("MBESS")
     data(HS)
  ## APS
     apsOut<-aps(HS,"t6_paragraph_comprehension",list("t5_general_information","t7_sentence",
                                         "t8_word_classification"))
# }
Run the code above in your browser using DataLab