R Under development (unstable) (2025-05-09 r88191 ucrt) -- "Unsuffered Consequences" Copyright (C) 2025 The R Foundation for Statistical Computing Platform: x86_64-w64-mingw32/x64 R is free software and comes with ABSOLUTELY NO WARRANTY. You are welcome to redistribute it under certain conditions. Type 'license()' or 'licence()' for distribution details. R is a collaborative project with many contributors. Type 'contributors()' for more information and 'citation()' on how to cite R or R packages in publications. Type 'demo()' for some demos, 'help()' for on-line help, or 'help.start()' for an HTML browser interface to help. Type 'q()' to quit R. > # This file is part of the standard setup for testthat. > # It is recommended that you do not modify it. > # > # Where should you do additional test configuration? > # Learn more about the roles of various files in: > # * https://r-pkgs.org/testing-design.html#sec-tests-files-overview > # * https://testthat.r-lib.org/articles/special-files.html > > library(testthat) > library(CardioDataSets) > > test_check("CardioDataSets") 'data.frame': 857 obs. of 17 variables: $ age : int 62 78 76 89 56 73 58 62 59 71 ... $ sex : chr "Male" "Female" "Female" "Female" ... $ cardiogenicShock: chr "No" "No" "Yes" "No" ... $ entry : chr "Femoral" "Femoral" "Femoral" "Femoral" ... $ Dx : chr "STEMI" "STEMI" "STEMI" "STEMI" ... $ EF : num 18 18.4 20 21.8 21.8 22 24.7 26.6 28.5 31.1 ... $ height : num 168 148 NA 165 162 153 167 160 152 168 ... $ weight : num 72 48 NA 50 64 59 78 50 67 60 ... $ BMI : num 25.5 21.9 NA 18.4 24.4 ... $ obesity : chr "Yes" "No" "No" "No" ... $ TC : num 215 NA NA 121 195 184 161 136 239 169 ... $ LDLC : int 154 NA NA 73 151 112 91 88 161 88 ... $ HDLC : int 35 NA NA 20 36 38 34 33 34 54 ... $ TG : int 155 166 NA 89 63 137 196 30 118 141 ... $ DM : chr "Yes" "No" "No" "No" ... $ HBP : chr "No" "Yes" "Yes" "No" ... $ smoking : chr "Smoker" "Never" "Never" "Never" ... Classes 'tbl_df', 'tbl' and 'data.frame': 226 obs. of 10 variables: $ Gender : num 1 1 0 1 1 1 1 1 0 1 ... ..- attr(*, "format.spss")= chr "F8.0" $ Age : num 81 55 78 71 85 69 88 60 76 43 ... ..- attr(*, "format.spss")= chr "F8.0" $ Age_C : num 4 1 3 3 4 2 4 2 3 0 ... ..- attr(*, "format.spss")= chr "F8.0" $ Aortadis : num 0 1 0 0 0 0 1 0 1 0 ... ..- attr(*, "format.spss")= chr "F8.0" $ Acute : num 0 0 1 1 1 0 0 0 0 0 ... ..- attr(*, "format.spss")= chr "F8.0" $ Acute3 : num 0 0 1 1 1 0 2 0 2 2 ... ..- attr(*, "format.spss")= chr "F8.0" $ Stomach_Ache: num 0 1 0 1 0 0 1 0 1 0 ... ..- attr(*, "format.spss")= chr "F8.0" ..- attr(*, "display_width")= int 14 $ Hyper : num 0 1 1 0 1 1 0 1 1 0 ... ..- attr(*, "format.spss")= chr "F8.0" $ Smoking : num 0 0 0 1 0 0 0 0 1 0 ... ..- attr(*, "format.spss")= chr "F8.0" $ Radiation : num 0 0 1 0 1 1 0 0 1 0 ... ..- attr(*, "format.spss")= chr "F8.0" - attr(*, "label")= chr "SPSS/PC+" NA count in duration: 0Classes 'tbl_df', 'tbl' and 'data.frame': 15 obs. of 1 variable: $ duration: num 7 6.5 3.5 3.8 3.1 2.8 2.5 2.6 2.4 2.1 ... - attr(*, "spec")=List of 2 ..$ cols :List of 1 .. ..$ duration: list() .. .. ..- attr(*, "class")= chr [1:2] "collector_double" "collector" ..$ default: list() .. ..- attr(*, "class")= chr [1:2] "collector_guess" "collector" ..- attr(*, "class")= chr "col_spec" [1] "NA counts per column:" start stop event age year surgery transplant 0 0 0 0 0 0 0 id 0 'data.frame': 172 obs. of 8 variables: $ start : num 0 0 0 1 0 36 0 0 0 51 ... $ stop : num 50 6 1 16 36 39 18 3 51 675 ... $ event : num 1 1 0 1 0 1 1 1 0 1 ... $ age : num -17.16 3.84 6.3 6.3 -7.74 ... $ year : num 0.123 0.255 0.266 0.266 0.49 ... $ surgery : num 0 0 0 0 0 0 0 0 0 0 ... $ transplant: Factor w/ 2 levels "0","1": 1 1 1 2 1 2 1 1 1 2 ... $ id : num 1 2 3 3 4 4 5 6 7 7 ... Structure of heartdisease_tbl_df: Classes 'tbl_df', 'tbl' and 'data.frame': 303 obs. of 9 variables: $ Age : num 63 67 67 37 41 56 62 57 63 53 ... $ Sex : Factor w/ 2 levels "Female","Male": 2 2 2 2 1 2 1 1 2 2 ... $ ChestPain : Factor w/ 4 levels "Typical angina",..: 1 4 4 3 2 2 4 4 4 4 ... $ BP : num 145 160 120 130 130 120 140 120 130 140 ... $ Cholesterol : num 233 286 229 250 204 236 268 354 254 203 ... $ BloodSugar : logi TRUE FALSE FALSE FALSE FALSE FALSE ... $ MaximumHR : num 150 108 129 187 172 178 160 163 147 155 ... $ ExerciseInducedAngina: Factor w/ 2 levels "No","Yes": 1 2 2 1 1 1 1 2 1 2 ... $ HeartDisease : Factor w/ 2 levels "No","Yes": 1 2 2 1 1 1 2 1 2 2 ... Summary of heartdisease_tbl_df: Age Sex ChestPain BP Min. :29.00 Female: 97 Typical angina : 23 Min. : 94.0 1st Qu.:48.00 Male :206 Atypical angina : 50 1st Qu.:120.0 Median :56.00 Non-anginal pain: 86 Median :130.0 Mean :54.44 Asymptomatic :144 Mean :131.7 3rd Qu.:61.00 3rd Qu.:140.0 Max. :77.00 Max. :200.0 Cholesterol BloodSugar MaximumHR ExerciseInducedAngina Min. :126.0 Mode :logical Min. : 71.0 No :204 1st Qu.:211.0 FALSE:258 1st Qu.:133.5 Yes: 99 Median :241.0 TRUE :45 Median :153.0 Mean :246.7 Mean :149.6 3rd Qu.:275.0 3rd Qu.:166.0 Max. :564.0 Max. :202.0 HeartDisease No :164 Yes:139 NA counts per column: Age Sex ChestPain 0 0 0 BP Cholesterol BloodSugar 0 0 0 MaximumHR ExerciseInducedAngina HeartDisease 0 0 0 [1] "NA counts per column:" ptid mridate age sex race weight height packyrs 0 0 0 0 0 0 0 1 yrsquit alcoh physact chf chd stroke diabetes genhlth 0 0 0 0 0 0 0 0 ldl alb crt plt sbp aai fev dsst 10 2 2 7 0 9 10 12 atrophy whgrd numinf volinf obstime death 0 1 0 1 0 0 NA counts per column: PTNUM years state dage pdiag 0 0 0 0 0 Number of unique PTNUM values: 614 State value distribution: 1 2 3 1928 634 241 Cases where dage < years: 9 / 2803Datasets available in the 'CardioDataSets' package: Datasets available in the 'CardioDataSets' package: [ FAIL 0 | WARN 0 | SKIP 0 | PASS 669 ] > > proc.time() user system elapsed 4.82 1.03 5.87