简单代码
> keti<-read.table("C:\\Documents and Settings\\Administrator\\桌面\\keti.txt",header=T)
> zone<-as.factor(keti$zone)
> bonus<-as.factor(keti$bonus)
> make<-as.factor(keti$make)
> kilometres<-as.factor(keti$kilometres)
> payment<-keti$payment
> insured<-keti$insured
> claims<-keti$claims
> out3<-glm(payment/claims~offset(log(insured))+zone+bonus+make+kilometres,family=gamma(link=log))
- keti<-read.table("C:\\Documents and Settings\\Administrator\\桌面\\keti.txt",header=T)
- zone<-as.factor(keti$zone)
- bonus<-as.factor(keti$bonus)
- make<-as.factor(keti$make)
- kilometres<-as.factor(keti$kilometres)
- payment<-keti$payment
- insured<-keti$insured
- claims<-keti$claims
- out3<-glm(payment/claims~offset(log(insured))+zone+bonus+make+kilometres,family=gamma(link=log))


雷达卡





京公网安备 11010802022788号







