11 lines
147 B
R
11 lines
147 B
R
|
MinsMissing <-
|
||
|
function(mat){
|
||
|
tot=0
|
||
|
for(i in 1:nrow(mat)){
|
||
|
if(mat[i,1]==4){
|
||
|
tot = tot+mat[i,7]-mat[i,4]
|
||
|
}
|
||
|
}
|
||
|
return(tot/60)
|
||
|
}
|