0.4.1

jinseob2kim · jinseob2kim · commit 34f89b12aedb · 2020-10-26T15:36:54.000+09:00
diff --git a/R/svyjskm.R b/R/svyjskm.R
@@ -442,7 +442,7 @@ svyjskm <- function(sfit,
     
     # ADJUST POSITION OF TABLE FOR AT RISK
     data.table <- data.table +
-      theme(plot.margin = unit(c(-1.5, 1, 0.1, ifelse(m < 10, 2.5, 3.5) - 0.15 * m), "lines"))
+      theme(plot.margin = unit(c(-1.5, 1, 0.1, ifelse(m < 10, 3.1, 4.3) - 0.38 * m), "lines"))
   }
   
   #######################

Original file line number	Diff line number	Diff line change
`@@ -442,7 +442,7 @@ svyjskm <- function(sfit,`
`442`	`442`
`443`	`443`	`# ADJUST POSITION OF TABLE FOR AT RISK`
`444`	`444`	`data.table <- data.table +`
`445`		`- theme(plot.margin = unit(c(-1.5, 1, 0.1, ifelse(m < 10, 2.5, 3.5) - 0.15 * m), "lines"))`
	`445`	`+ theme(plot.margin = unit(c(-1.5, 1, 0.1, ifelse(m < 10, 3.1, 4.3) - 0.38 * m), "lines"))`
`446`	`446`	`}`
`447`	`447`
`448`	`448`	`#######################`