将错误添加到依赖值的转换向量
add error to a transformed vector of dependent values
我想模拟(添加 error/rnorm)一个转换后的相关值向量,但我不知道如何在这样做时保持转换的属性。我做了一个玩具示例来演示我的问题。
我有一个区间观测向量 (obs),我对其进行转换以进行建模:
set.seed(123)
sd=0.1
obs=rnorm(10,10,3) # each value is an age class
#transform observations (in reality something more complex based on cumulative logits)
obs=obs/sum(obs)
这些进入基于转换估计标准偏差的模型:
# model
predict=function(x){
pred=c(1:10)^x
pred=pred/sum(pred)
return(pred)
}
model= function(x){
nll=-sum(mapply(dnorm,predict(x),obs,sd)) #sd is estimated in reality
return(nll)
}
mypar=optim(0,model,lower=0,upper=2,method='Brent')$par
# from my model I get predictions
out=predict(mypar)
# I would now like to simulate observations like this :
# (in reality I do this for predicted future values)
simu=mapply(rnorm,1,out,sd)
sum(simu)
[1] 1.208622
但如果我这样做,那么我的模拟当然不再遵循转换规则......在这个玩具箱中,simu 的总和应该仍然是一个。
我可以对预测值进行逆变换并进行模拟,但我的 sd 不再是 "appropriate"。
我该如何处理?在执行上述操作时,我是否需要以某种方式转换我的 sd(如果需要,如何转换)?或者有其他方法吗?
这个问题不能删除,因为它有赏金,虽然我想删除,因为问题是我的逆变换函数中的一个小错误引起的。现在它工作正常;我可以添加错误并且观察结果的总和是一个。
我想模拟(添加 error/rnorm)一个转换后的相关值向量,但我不知道如何在这样做时保持转换的属性。我做了一个玩具示例来演示我的问题。
我有一个区间观测向量 (obs),我对其进行转换以进行建模:
set.seed(123)
sd=0.1
obs=rnorm(10,10,3) # each value is an age class
#transform observations (in reality something more complex based on cumulative logits)
obs=obs/sum(obs)
这些进入基于转换估计标准偏差的模型:
# model
predict=function(x){
pred=c(1:10)^x
pred=pred/sum(pred)
return(pred)
}
model= function(x){
nll=-sum(mapply(dnorm,predict(x),obs,sd)) #sd is estimated in reality
return(nll)
}
mypar=optim(0,model,lower=0,upper=2,method='Brent')$par
# from my model I get predictions
out=predict(mypar)
# I would now like to simulate observations like this :
# (in reality I do this for predicted future values)
simu=mapply(rnorm,1,out,sd)
sum(simu)
[1] 1.208622
但如果我这样做,那么我的模拟当然不再遵循转换规则......在这个玩具箱中,simu 的总和应该仍然是一个。
我可以对预测值进行逆变换并进行模拟,但我的 sd 不再是 "appropriate"。
我该如何处理?在执行上述操作时,我是否需要以某种方式转换我的 sd(如果需要,如何转换)?或者有其他方法吗?
这个问题不能删除,因为它有赏金,虽然我想删除,因为问题是我的逆变换函数中的一个小错误引起的。现在它工作正常;我可以添加错误并且观察结果的总和是一个。