I've tried to create a Kaplan Meier Analysis and get the 4 year PFS and OS. For some reason, the output is a lower OS at 1460 days (0.518) than PFS (0.546). Where is my mistake?

library(survival)
library(readxl)
library(survminer)
CTrial <- read_excel("trial 2023.xlsx",sheet = 2)

# Fit Kaplan-Meier survival curve
fit <- survfit(Surv(PFSMonth, Event_PFS) ~ 1, data = CTrial)
summary(fit)
fit <- survfit(Surv(OSMonth, Event_OS) ~ 1, data = CTrial)

##followed by a + if the subject was censored. Let’s look at the first 10 observations:
##PFS
time <- CTrial$PFS
event <- CTrial$Event_PFS
Surv(time, event)[1:33]
summary(survfit(Surv(time, event) ~ 1, data = CTrial), times = 1460)

##OS
time <- CTrial$OS
event <- CTrial$Event_OS
Surv(time, event)[1:33]
summary(survfit(Surv(time, event) ~ 1, data = CTrial), times = 1460)

I already tried to analyze the data for possible entry errors, but it does not seem off.

These are the outputs from Surv(time, event)[1:33], + is censored:

Thanks so much!

I am trying to merge two different files by using the index/key 'Country', could you guys please help me? I feel confused and couldn't maaniouate the Wdi data that prints the country names similar to the civ file so that I can merge them successfully. Thanks

csv bank data bank data mnaipuated based on the task given error

ps: I dont want to acess a parent class var but rather an actual child class

How do I access the $table var from User class? I know it sounds silly but is there a way to access this child class var without declaring it in the Model class?

example if I comment public $table in Model class the code wont work anymore because this var "does not exist"

My point being: since this var is going to be "replaced" so why we suppose to declare it?

Thanks

class User extends Model {
    public $table = "User table";    
}
$user = new User();
$user->insertIntoDatabase();

class Model {  
public $table;

  public function insertIntoDatabase() {
  echo "Inserted into ". $this->table ." database <br>";
}
}
?>