R/nongit/tcl2rArray.R

In bokov/powertrip: Analysis of longevity data.

`tcl2nArray`<-
function(d,rows,cols){
	lr<-length(rows);lc<-length(cols);
	out<-matrix(nrow=lr,ncol=lc);
	for(i in 1:lr){
		for(j in 1:lc){if(is.null(o<-d[[rows[i],cols[j]]])){break;}else{out[i,j]<-as.numeric(o);}}
	}
	return(out);
}

`array2tcl`<-
function(d,out,rows,cols){
	tcl('unset',out);
	for(i in 1:length(rows)){
		for(j in 1:length(cols)){
			out[[rows[i],cols[j]]]<-d[i,j];
		}
	}
}