基本上,我们需要缩放值cc2$y
成比例地使得缩放值cc2$y
具有相同的范围(最小值和最大值)cc1$y
。我用过rescale
的函数scales
包来做到这一点
# Sampling Distribution of x_bar
cc1 = curve(dnorm(x, x_bar, SE), from = x.min, to = x.max, col = 'blue', lwd = 3, lty = 2 )
# Likelihood function of MU
cc2 = curve(Like, from = x.min, to = x.max, col = 'red', lwd = 3, add = T)
library(scales)
scale_factor = mean(rescale(cc2$y, range(cc1$y)) / cc2$y) #APPROXIMATE
plot(cc1, type = "l")
lines(cc2$x, cc2$y * scale_factor, col = "red")
这里是rescale2
修改自rescale
的函数scales
库(如果您想在不加载库的情况下使用它)
rescale2 = function (x, to = c(0, 1))
{
(x - min(x))/diff(range(x)) * diff(to) + to[1]
}