I am trying to extract my information from interest from the dataset GSE33113 from GEO onto R but R doesnot seem to recognize my data input. I tried:

gset<-getGEO('GSE33113',GSEMatrix=TRUE,getGPL=FALSE)
library(survival)
library(GEOquery)
library(RegParallel)
library(Biobase)
library(survminer)

#loading platform data 
gset<-getGEO('GSE33113',GSEMatrix=TRUE,getGPL=FALSE)

x<-exprs(gset[[1]])

#remove Affymetrix control probes 
x<-x[-grep('^AFFX', rownames(x)),]

#transform the expression data to Z scores
x<-t(scale(t(x)))

#extracting information of interest
idx<-which(colnames(pData(gset[[1]]))%in%c('Age_At_Diagnosis:ch1','Sex:ch1','Disease status:ch1','Tissue.ch1'))
metadata<-data.frame(pData(gset[[1]])[,idx],row.names=rownames(pData(gset[[1]])))

but the metadata generated only contained the 'sex' data even though I got this response:

#extract information of interest from the phenotype data 
> idx<-which(colnames(pData(gset[[1]]))%in%c('AgeAtDiagnosis:ch1','Death:ch1','Gender:ch1','Grading:ch1','LymphNodesInvaded:ch1','OverallSurvival_months:ch1','TumorFreeSurvival_months:ch1'))
> metadata1<-data.frame(pData(gset[[1]])[,idx],row.names=rownames(pData(gset[[1]])))