Displaying 1 result from an estimated 1 matches for "difflrposition".
2009 Aug 13
1
for(variable in [])do
... 2009 1 0.87403582415134 0.103774779139200
> PriorLRPosition <- as.numeric(as.character(output[,3]))
> OptimPosition <- as.numeric(as.character(output[,4]))
> (SimuLRPosition <- rep(1, nrow(output)))
[1] 1 1 1 1 1 1 1 1
> output <- cbind(output,SimuLRPosition)
> (diffLRPosition <- abs(PriorLRPosition - SimuLRPosition))
[1] 0.15641679 0.05365366 0.04032931 0.12596418 0.15641679 0.05365366 0.04032931
[8] 0.12596418
> output <- cbind(output,diffLRPosition)
> (NbOFPriorLRPosition <- nrow(output)/2)
[1] 4
>
> for (LRPhase in c(-1,1))
+ {Phase1 <- outp...