Buròcrates, Administradors (Semantic MediaWiki), Curadors (Semantic MediaWiki), Editors (Semantic MediaWiki), Administradors
10.883
modificacions
→El ejemplo de la función 'intervals'
| Línia 668: | Línia 668: | ||
interval<-function(model,digits=2,nivell=0.95,alfa=F) { | interval<-function(model,digits=2,nivell=0.95,alfa=F) { | ||
nivell2<--round(qnorm((1-nivell)/2),digits=2) | nivell2<--round(qnorm((1-nivell)/2),digits=2) | ||
co<-summary(model)$coef | co<-summary(model)$coef | ||
tot<-c() | tot<-c() | ||
if(class(model)[1]!="lm" & class(model)[1]!="glm" & class(model)[1]!="coxph") | if(class(model)[1]!="lm" & class(model)[1]!="glm" & class(model)[1]!="coxph") | ||
{ | { | ||
| Línia 680: | Línia 678: | ||
options(warn = ex.warn) | options(warn = ex.warn) | ||
} | } | ||
if(class(model)[1]=="lm") | if(class(model)[1]=="lm") | ||
{ | { | ||
| Línia 691: | Línia 688: | ||
dimnames(tot)<-list(row.names(summary(model)$coef),c("B","inf","sup")) | dimnames(tot)<-list(row.names(summary(model)$coef),c("B","inf","sup")) | ||
} | } | ||
if(class(model)[1]=="coxph") | if(class(model)[1]=="coxph") | ||
{ | { | ||
| Línia 701: | Línia 697: | ||
alfa<-T | alfa<-T | ||
} | } | ||
if(class(model)[1]=="glm") | if(class(model)[1]=="glm") | ||
{ | { | ||