Displaying 2 results from an estimated 2 matches for "observeddepth".
2012 Dec 20
4
comparison of large data set
Hi, how are you?
I have the following truncated R code:
fileobs <- "MaxFloodDepth_Observed.txt"
file1 <- "MaxFloodDepth_1.txt"
file2 <- "MaxFloodDepth_2.txt"
...
file54 <- "MaxFloodDepth_54.txt"
observeddepth = as.matrix(read.ascii.grid(fileobs)$data)
observeddepth[observeddepth!=0]<-1
modeldepth1 = as.matrix(read.ascii.grid(file1)$data)
modeldepth1[modeldepth1!=0]<-1
modeldepth2 = as.matrix(read.ascii.grid(file2)$data)
modeldepth2[modeldepth2!=0]<-1
...
modeldepth54 = as.matrix(read.ascii....
2012 Dec 21
0
variable names in numeric list and Bayesian inference
...ode (along with some new code that I am requesting
assistance with correcting):
files <- paste0("MaxFloodDepth_", 1:54, ".txt")
fileobs <- "MaxFloodDepth_Observed.txt"
readfun <- function(x)
{
u <- as.matrix(read.ascii.grid(x)$data)
u[u != 0] <- 1
u
}
observeddepth <- readfun(fileobs)
modeldepth <- lapply(files, readfun)
mynames <- function(x) {
variable.names(modeldepth, prefix = "ModelDepth.")
x
}
modeldepths <- lapply(modeldepth, mynames) # here the objective is to
assign the name of ModelDepth1: ModelDepth54 for the 54 numeric en...