ext.test <- function(formula,data)
{
    print(formula)
    print(data)
}

ext.test(iris[,5]~.,iris[,-5])