correcting dtype for sfluv and h1n1v for data formatting clinical

This commit is contained in:
Tanushree Tunstall 2020-11-24 13:48:53 +00:00
parent 7529549bfc
commit 08e01abfb5
4 changed files with 52 additions and 461 deletions

View file

@ -225,36 +225,35 @@ sum(table(clinical_df$onset_initial_bin)) == tot_onset2ini
#=======================
# seasonal flu: sfluv
#=======================
if (! is.factor(clinical_df$sfluv)){
clinical_df$sfluv = as.factor(clinical_df$sfluv)
}
class(clinical_df$sfluv)
levels(clinical_df$sfluv)
# reassign as 0 and 1
table(clinical_df$sfluv)
table(clinical_df$asthma, clinical_df$sfluv)
# reassign
levels(clinical_df$sfluv) <- c("0", "0", "1")
clinical_df$sfluv = ifelse(clinical_df$sfluv == "yes", 1, 0)
table(clinical_df$sfluv)
table(clinical_df$asthma, clinical_df$sfluv)
# convert to integer
str(clinical_df$sfluv)
clinical_df$sfluv = as.integer(clinical_df$sfluv)
str(clinical_df$sfluv)
#=======================
# h1n1v
#=======================
if (! is.factor(clinical_df$h1n1v)){
clinical_df$h1n1v = as.factor(clinical_df$h1n1v)
}
class(clinical_df$h1n1v)
levels(clinical_df$h1n1v)
# reassign as 0 and 1
table(clinical_df$h1n1v)
table(clinical_df$asthma, clinical_df$h1n1v)
# reassign
levels(clinical_df$h1n1v) <- c("0", "0", "1")
clinical_df$h1n1v = ifelse(clinical_df$h1n1v == "yes", 1, 0)
table(clinical_df$h1n1v)
table(clinical_df$asthma, clinical_df$h1n1v)
# convert to integer
str(clinical_df$h1n1v)
clinical_df$h1n1v = as.integer(clinical_df$h1n1v)
str(clinical_df$h1n1v)
#=======================
# ethnicity
#=======================