Displaying 1 result from an estimated 1 matches for "critarea".
2006 Feb 23
1
Need a hint
...numeric",class(z)=="list",length(x)==dim(z[[1]])[1],length(y)==dim(z[[1]])[2],sum(sapply(z,class)!="matrix")==0)
w<-length(z)
zrange<-sapply(z,range,na.rm=T)
stopifnot(class(critmat)%in%c("matrix","data.frame"),dim(critmat)==c(w,2))
critarea<-matrix(data=0,nrow=dim(z[[1]])[1],ncol=dim(z[[1]])[2])
for(i in 1:w) {
minz<-ifelse(is.na(critmat[i,1]),zrange[1,i],critmat[i,1])
maxz<-ifelse(is.na(critmat[i,2]),zrange[2,i],critmat[i,2])
critarea<-critarea+apply(z[[i]],c(1,2), function(x) ifelse(x>minz...