saving
This commit is contained in:
parent
c5529206d9
commit
46575c657f
2 changed files with 8 additions and 2 deletions
|
@ -49,6 +49,12 @@ gathercols <- c("age", "los", "onset2final", "onsfindeath", "onset_2_initial", "
|
|||
|
||||
clinical_lf = gather_(clinical_df_numerical, keycol, valuecol, gathercols)
|
||||
|
||||
if( nrow(clinical_lf) == expected_rows_clinical_lf){
|
||||
cat("PASS: long format data created successfully"
|
||||
, "\nnrow:", nrow(clinical_lf)
|
||||
, "\nncol:", ncol(clinical_lf))
|
||||
}
|
||||
|
||||
#====================
|
||||
# unpaired: clinical
|
||||
#====================
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue