编辑代码

logp <-function(x) log(max(x,exp(1)))
x <- -2.4
delta<- 0.1
(abs(x))^(4+delta)/(logp(abs(x)))^2

x<- seq(from=-2.8,to=-2,length=3)
x
print('错误使用logp函数,对项链x使用后得到对是向量x和exp(1)中最大的一个数')
logp(abs(x))
max(abs(x),exp(1))
print('修改后结果')
for (i in x){
    s<-(abs(i))^(4+delta)/(logp(abs(i)))^2
    print(s)
}
print('原结果')
(abs(x))^(4+delta)/(logp(abs(x)))^2