[R] Survival model error

[Meghna Govil]

Hi - Below is my code and then the error when I run the last line. 
 
time_np <- train1_na$tte
event_np <- train1_na$censored
 
 
X_np <- cbind(
  train1_na$AMT, 
  train1_na$DISCOUNT_AMT,
  train1_na$high_price_pcnt,
  train1_na$EM_RECEIVED,
  train1_na$DM_RECEIVED,
  train1_na$TXN_WITH_RINGCODE,
  train1_na$WEB,
  train1_na$clearance_pcnt,
  train1_na$bts_pcnt,
  train1_na$sales_pcnt,
  train1_na$holiday_pcnt,
  train1_na$TXN,
  train1_na$REDEEMED_REWARDS
 
  )
 
# Kaplan-Meier non-parametric analysis 

kmsurvival_np <- survfit(Surv(time_np,event_np) ~ X_np)
 
Error in `[.default`(y, who, 1) : (subscript) logical subscript too long
 
Any ideas?  
I have tried several things and still get this error.  
 

Thanks,
Meghna