surv.diff(time, status, group, rho=0)
This function implements the G-rho family of Harrington and Fleming (1982), with weights on each death of (S(t))^rho, where S is the Kaplan-Meier estimate of survival. When rho = 0 this is the log-rank or Mantel-Haenszel test, and when rho = 1 it is very close to the Peto & Peto modification of the Gehan-Wilcoxon test.
xx <- surv.diff(cancer$time, cancer$status, rx) print(xx) #nice printout of results