15 lines
427 B
R
15 lines
427 B
R
plotlimits <-
|
|
function(mat,defaultdist=100){
|
|
xrang=range(c(mat[which(mat[,1]<=2),2],mat[which(mat[,1]<=1),5]))
|
|
yrang=range(c(mat[which(mat[,1]<=2),3],mat[which(mat[,1]<=1),6]))
|
|
if(xrang[2]==xrang[1]){
|
|
xrang[2]=xrang[2]+defaultdist/2
|
|
xrang[1]=xrang[1]-defaultdist/2
|
|
}
|
|
if(yrang[2]==yrang[1]){
|
|
yrang[2]=yrang[2]+defaultdist/2
|
|
yrang[1]=yrang[1]-defaultdist/2
|
|
}
|
|
return(list(xrang=xrang,yrang=yrang))
|
|
}
|