※ 引述《bcs (= ="frailty..gggg XD)》之銘言：
: xt=c(6.1,-1.1,3.2,0.7,1.7);
: g<-function(x,k) {-5*log(2)-sum(abs(x-k))}
: 請問若我想畫出k=1.7 時會g達到最大值該怎麼畫？像下面的圖
: 想法 curve(g(xt,x),xlim=range(xt))
你的 g 函數沒辦法使用向量的引數，
所以需要藉助 sapply 這個函數：
curve(sapply(x, function(x) g(xt, x)), xlim=range(xt))
就可以畫出你下面的圖了～！
: z<-outer(xt,xt,g)
: persp(xt,xt,z)
: 但都行不通。
: 謝謝^^"
: θ
: |\
: | \ /
: | \ /
: | \/
: |---------------- k
: 1.7
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 210.64.251.187