From f49f4fd94e2e31b3108d999355987d72119ecaf1 Mon Sep 17 00:00:00 2001
From: "Emily C. Zabor" <emily.zabor@gmail.com>
Date: Mon, 5 Aug 2019 10:46:42 -0400
Subject: [PATCH] applying tidy styler

---
 R/gg_conditional_surv.R | 12 +++++-------
 1 file changed, 5 insertions(+), 7 deletions(-)

diff --git a/R/gg_conditional_surv.R b/R/gg_conditional_surv.R
index 29f7c67..a54f4f3 100644
--- a/R/gg_conditional_surv.R
+++ b/R/gg_conditional_surv.R
@@ -24,14 +24,12 @@
 #'
 
 gg_conditional_surv <- function(basekm,
-                         at,
-                         main = NULL,
-                         xlab = "Years",
-                         ylab = "Survival probability",
-                         lwd = 1) {
-
+                                at,
+                                main = NULL,
+                                xlab = "Years",
+                                ylab = "Survival probability",
+                                lwd = 1) {
   if (class(basekm) != "survfit") {
-
     stop(
       "Argument to basekm must be of class survfit"
     )