15 lines
365 B
R
15 lines
365 B
R
MobmatQualityOK <-
|
|
function(mobmat,obj){
|
|
msg=""
|
|
if(!is.matrix(mobmat)){
|
|
msg = "Mobmat not a matrix. Removing individual from analysis.\n"
|
|
}
|
|
if(length(obj$ID1)==0){
|
|
msg= "No flights in mobmat. Removing individual from analysis.\n"
|
|
}
|
|
if(length(obj$ID2)==0){
|
|
msg= "No pauses in mobmat. Removing individual from analysis.\n"
|
|
}
|
|
return(msg)
|
|
}
|