au-phd/PhysicalActivityandStrokeOutcome
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Eksperiment

Browse Source
This commit is contained in:
AG Damsbo 2022-10-05 14:54:13 +02:00
parent 5e379b71cf
commit 244add2bb4
2 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
.DS_Store vendored
View File

Binary file not shown.

4
2 Longterm/grotta_bars.R
View File

@ -20,3 +20,7 @@ grottaBar(x,groupName="Group",
dta |> select(-c("mrs_0","mrs_1")) |> generic_stroke(group = "rtreat", score = "mrs_6", variables = c("hypertension","diabetes","civil")) dta |> select(-c("mrs_0","mrs_1")) |> generic_stroke(group = "rtreat", score = "mrs_6", variables = c("hypertension","diabetes","civil"))
library(stRoke) library(stRoke)
cc<-dta[complete.cases(dta),]
talos <- cc[sample(1:nrow(cc),200),] |> select(-mrs_0)
save(talos,file="talos.rda")