I would return the values from the various tests in a list. If you only want them to print and not for use in other parts of your program you could explicitly print each test using print().
root <- function(var) { #---Phillips-Perron test1 <- PP.test(var, lshort = TRUE) test2 <- PP.test(var, lshort = FALSE) #---Augmented Dickey-Fuller test3 <- adf.test(var, alternative = "stationary", k = test4 <- trunc((length(var)-1)^(1/3))) #---KPSS test5 <- kpss.test(var, null = "Level", lshort = TRUE) test6 <- kpss.test(var, null = "Trend", lshort = FALSE) list(test1, test2, test3, test4, test5, test6) } --Matt -----Original Message----- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of bogdan romocea Sent: Wednesday, October 13, 2004 10:20 AM To: [EMAIL PROTECTED] Subject: [R] incomplete function output Dear R users, I have a function (below) which encompasses several tests. However, when I run it, only the output of the last test is displayed. How can I ensure that the function root(var) will run and display the output from all tests, and not just the last one? Thank you, b. root <- function(var) { #---Phillips-Perron PP.test(var, lshort = TRUE) PP.test(var, lshort = FALSE) #---Augmented Dickey-Fuller adf.test(var, alternative = "stationary", k = trunc((length(var)-1)^(1/3))) #---KPSS kpss.test(var, null = "Level", lshort = TRUE) kpss.test(var, null = "Trend", lshort = FALSE) } ______________________________________________ [EMAIL PROTECTED] mailing list https://stat.ethz.ch/mailman/listinfo/r-help PLEASE do read the posting guide! http://www.R-project.org/posting-guide.html ______________________________________________ [EMAIL PROTECTED] mailing list https://stat.ethz.ch/mailman/listinfo/r-help PLEASE do read the posting guide! http://www.R-project.org/posting-guide.html