transfer from old repo

2 Longterm/grotta_bars.R

@@ -0,0 +1,26 @@
+library(rankinPlot)
+
+?rankinPlot::grottaBar
+
+dta<-read.csv("/Volumes/Data/exercise/source/background.csv",colClasses = "character", na.strings = c("NA","","unknown"))[,c("rtreat","mrs_0","mrs_1","mrs_6","hypertension","diabetes","civil")]
+
+df <- dta |> select(c("rtreat","mrs_0","mrs_1","mrs_6")) |> pivot_longer(cols = -rtreat)
+
+x<-table(mRS=df$value,
+      Group=df$rtreat,
+      Time = df$name)
+
+grottaBar(x,groupName="Group",
+          scoreName = "mRS",
+          strataName="Time",
+          colourScheme ="custom"
+) +
+  scale_fill_viridis_d(direction=-1)
+
+dta |> select(-c("mrs_0","mrs_1")) |> generic_stroke(group = "rtreat", score = "mrs_6", variables = c("hypertension","diabetes","civil"))
+
+library(stRoke)
+cc<-dta[complete.cases(dta),]
+talos <- cc[sample(1:nrow(cc),200),] |> select(-mrs_0)
+
+save(talos,file="talos.rda")