Step 1:To import data into R 
getwd()
setwd(Your path)
getwd()
data=read.csv("StomachCancer.csv")
data=data[,-1]

#Model building on plain Stomach cancer data 
formula = Cancer ~ I305.1 + I309.81 +	I311. + IE849.7 + I150.9 + I276.1 + I276.8 + I530.81 + I263.9 + I276.51 + IV15.82 + I511.9 + I401.9 + I787.20 + I564.00 + I272.4 + I280.9 + I285.9 + I496. + I458.9 + I486. + IV58.61 + I197.7 + I578.9 + I584.9 +IV66.7 + I244.9 + I414.01 +	I599.0 + I414.00 +	I585.9 + I600.00 + I428.0 + I427.31 + I403.90
model=glm(formula=formula , data=data , family=binomial)
summary(model)

#Fitted Values
fittedvalues=predict(model , data , type="response")
fittedvalues

#Plot Fitted Values
plot(fittedvalues)
plot(density(fittedvalues))
summary(fittedvalues)

#Goodness of Fit test 
chisq.test(fittedvalues)

#Calculation of Weights 
w = ( data[,1] / fittedvalues) + (( 1- data[,1] ) / ( 1- fittedvalues) )  
w

#Binding of weights 
data=cbind(w, data)
colnames(data)

#Model after adding weights 
model1=glm(data[,2] ~. , data=data[,(3:37)] , weights=w)
summary(model1)