Displaying 1 result from an estimated 1 matches for "zrang".
Did you mean:
zhang
2006 Feb 23
1
Need a hint
...ssing(z))) {
stop("y and z are both required unless x is properly formatted list")
} else stopifnot(class(y)=="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])
m...