26 lines
1.1 KiB
R
26 lines
1.1 KiB
R
DailyRoutineIndex <-
|
|
function(indday,mobmat,subsetinds_v,subsetdayofweek_v,subsetstarttime_v,tz,CENTERRAD){
|
|
submat=matrix(mobmat[subsetinds_v[[indday]],],ncol=7)
|
|
daydist_v = rep(NA,length(subsetinds_v))
|
|
for(i in 1:length(subsetinds_v)){
|
|
if(i == indday){next}
|
|
daydist_v[i]=DayDist(indday,i,mobmat,subsetinds_v,subsetstarttime_v,tz,CENTERRAD)
|
|
}
|
|
if(length(which(!is.na(daydist_v)))==0){
|
|
circscore=NA
|
|
}else{
|
|
circscore = mean(daydist_v,na.rm=T)
|
|
}
|
|
if(subsetdayofweek_v[indday] == "Saturday" || subsetdayofweek_v[indday] == "Sunday"){
|
|
IDcompare = c(which(subsetdayofweek_v=="Saturday"),which(subsetdayofweek_v=="Sunday"))
|
|
}else{
|
|
IDcompare = c(which(subsetdayofweek_v=="Monday"),which(subsetdayofweek_v=="Tuesday"),which(subsetdayofweek_v=="Wednesday"),which(subsetdayofweek_v=="Thursday"),which(subsetdayofweek_v=="Friday"))
|
|
}
|
|
if(length(IDcompare)==0 || length(which(!is.na(daydist_v[IDcompare])))==0){
|
|
wkscore=NA
|
|
}else{
|
|
wkscore = mean(daydist_v[IDcompare],na.rm=T)
|
|
}
|
|
return(list('cscore'=circscore,'wscore'=wkscore))
|
|
}
|