Variance Calculation in R

Hello,

Thanks everyone for helping me with the previous queries.

step 1: Here is the orginal data: short sample

	ProbeID	    Sample_1_D	Sample_1_C    Sample_2_D	   Sample_2_C
1	224588_at   2.425509867	11.34031409   11.46868531	   11.75741478

step 2: i calculate the variance of the sample using this R code

x<-1:20000
y<-2:141
data.matrix<-data.matrix(data[,y])#create data.matrix
variableprobe<-apply(data.matrix[x,],1,var)

step 3: however, when i type in variableprobe, it gives me this.

1	21.58257457

step 4: I need the code to output this:

	ProbeID	    Variance	
1	224588_at   21.58257457


What do i need to do to modify the code to give me better description like
the one above?

thank.
Keizer