Displaying 1 result from an estimated 1 matches for "modeldepth2".
Did you mean:
modeldepth
2012 Dec 20
4
comparison of large data set
...Depth_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.grid(file54)$data)
modeldepth54[modeldepth54!=0]<-1
Each modeldepth* and observeddepth is 272x976
f2 <- function(obs, dat){
obs <- as.logical(obs)
dat <- as.logical(dat...