求助如何画出这个函数的图形

cui6515

erf <- function(x) {
erf1 <- (2/sqrt(pi))*(integrate(f,0,x)$value)
return(erf1)
}

ftk <- function(k){
ftk1 <- 0.5-0.5*erf((log(58)-(log(k+0.66)+0.95))/(sqrt(2)*(0.31/sqrt(k))))
return(ftk1)
}
ftk(25)
plot(ftk)

cui6515

Error in xy.coords(x, y, xlabel, ylabel, log) :
  'x' and 'y' lengths differ
用了各种方法，老是提示这个错误

seeker

erf1 <- 2/sqrt(pi))*(integrate(f,0,x)$value) 里的f是什么定义？

seeker

erf1 <- 2/sqrt(pi))*(integrate(f,0,x)$value)里的f是什么定义？