Xác định các điểm trong một đường cong

Question

Tôi cảm thấy đây là một câu hỏi dễ dàng ...

Làm thế nào để bạn xác định tọa độ trong một hình? Tôi vẽ một số dữ liệu, sử dụng unireg (gói uniReg) để tạo ra một đường cong spline, và muốn lấy ra dữ liệu từ một điểm.

library(uniReg) 
P0mM <- read.table(text=" 
Time   FeuM 
0.04 138.8181818 
    7 1258.636364 
    14 1320.545455 
    21  2110.37037 
    28 13730.37037 
    35 1550.909091",header=TRUE) 

z=seq(min(P0mM$Time),max(P0mM$Time),length=201) 
uf=with(P0mM,unireg(Time,FeuM,g=5,sigma=1)) 
plot(FeuM~Time,P0mM,ylim=c(0,16000),ylab="Fe2+ uM", xlab="Time", main="0mM P") 
lines(z,uf$unimod.func(z)) 

tôi đã có thể tìm ra max y giá trị của đường cong (đó là 14444)

max((uf$unimod.func(z))) 

Tôi muốn xác định nơi trên trục x điều này xảy ra. (Nên khoảng 30, nhưng tôi muốn chính xác).

Bạn làm như thế nào?

Cảm ơn!

Answer 1

Có vẻ như một trường hợp cho optimise hoặc optimize (tùy thuộc vào mối quan hệ của bạn với tiếng Anh của Anh hoặc Mỹ):

optimise(uf$unimod.func, maximum=TRUE, interval=range(P0mM$Time)) 
#$maximum 
#[1] 29.27168 
# 
#$objective 
#   [,1] 
#[1,] 14444.85