请问各位大神，我用

a=rt[,"expression"]<median(unlist(rt[,"expression"]))
diff=survdiff(Surv(futime, fustat) ~a,data = rt)，

将数据的前50%和后50%进行比较，
但是现在想将数据的前30%和后30%进行比较，该如何修改