Displaying 1 result from an estimated 1 matches for "modeldepthnew".
2012 Dec 21
0
variable names in numeric list and Bayesian inference
...c entries in modeldepths?
f2 <- function(obs, model){
obs <- as.logical(obs)
model <- as.logical(model)
s1 <- sum(obs & model)
s2 <- sum(obs & !model)
s3 <- sum(!obs & model)
s1/(s1 + s2 + s3)
}
modeldepths <- lapply(modeldepths, function(x) f2(observeddepth, x))
modeldepthnew <- modeldepth[modeldepth > 0.7] # Here the objective is to
pick the 31 of the 54 files (31 of the 54 elements have an f2 greater
than 0.7) with their complete 272x976 cells because that information
will then be used in the next step.
The next step will be to perform a Bayesian inference wher...