andreas/daDoctoR
1
0
Fork 0
mirror of https://github.com/agdamsbo/daDoctoR.git synced 2024-11-22 03:40:23 +01:00
Code Issues Projects Releases Wiki Activity

fix to counting problem

Browse Source
This commit is contained in:
agdamsbo 2018-10-11 17:01:00 +02:00
parent f25d7ae34f
commit 59ae3c2f99
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
R/strobe_olr.R
View File

@ -51,14 +51,14 @@ strobe_olr<-function(meas,var,adj,data,dec=2){
for (r in 1:length(levels(dat[,2]))){ for (r in 1:length(levels(dat[,2]))){
vr<-levels(dat[,2])[r] vr<-levels(dat[,2])[r]
dr<-dat[dat[,2]==vr,] dr<-dat[dat[,2]==vr&!is.na(dat[,2]),]
n<-as.numeric(nrow(dr)) n<-as.numeric(nrow(dr))
## Af en eller anden grund bliver der talt for mange med. ## Af en eller anden grund bliver der talt for mange med.
# nall<-as.numeric(nrow(dat[!is.na(dat[,2]),])) nall<-as.numeric(nrow(dat[!is.na(dat[,2]),]))
nl<-levels(m)[r] nl<-levels(m)[r]
# pro<-round(n/nall*100,0) pro<-round(n/nall*100,0)
# rt<-paste0(n," (",pro,"%)") n<-paste0(n," (",pro,"%)")
nr<-rbind(nr,cbind(nl,n)) nr<-rbind(nr,cbind(nl,n))
} }