#select sample metadata
clinical = lung_df %>%
dplyr::select(image_id, patient_id, patientImage_id,
gender, age, survival_days, survival_status, stage) %>%
dplyr::distinct()
#select the spatial information
spatial = lung_df %>%
dplyr::select(-image_id, -gender, -age, -survival_days, -survival_status, -stage)
sample_id_column = "patientImage_id"
#create the mxFDA object
mxFDAobject = make_mxfda(metadata = clinical,
spatial = spatial,
subject_key = "patient_id",
sample_key = sample_id_column)
Run the code above in your browser using DataLab