请R/s-plus高手帮忙看看我的程序哪里错误了呀，急，先谢了啊

QI0<-function(a) {
qnorm(a)
}
#1阶上分位数积分
QI1<-function(a){
integrate(QI0,lower=0, upper=a)
}
QI2<-function(a){
   integrate(QI1,lower=0, upper=0.05)
}
QI2(0.05)

出错：Warning messages:
1: Condition has 15 elements: only the first used in: e1 && e2
2: Condition has 15 elements: only the first used in: if(lower == upper) { ....
Problem in h * intervals: length of longer operand (15) should be a multiple of length of shorter (7)
Use traceback() to see the call stack

原QI1函数不能计算形如QI1(c(0.5,0.6,0.7))的形式，而在QI2函数会用到的QI1(x)，x为向量的计算形式，所以程序改为，

QI0<-function(a) {
qnorm(a)
}
#1阶上分位数积分
QI1<-function(a){
      n = length(a)
      result = 1:n
      for (i in 1:n){
           temp = integrate(QI0,lower=0, upper=a)
           result = temp$value
       }
      result
}
QI2<-function(a){
      result = integrate(QI1,lower=0, upper=a)
      rusult = result$value
}
QI2(0.5)

兄弟，好像不行啊，下面这个小代码，谁帮我改改吧
e2<-function(a) integrate(function(x) x,lower=0,upper=a)$integral
integrate(e2,lower=0, upper=0.5)$integral

救命啊！！！S-Plus有没有方法呀？