@@ -45,7 +45,7 @@ deviance <- function(y, pred, family=c("gaussian","binomial")){
 	}
 }
 
-## get null devaince too, and return R2
+## get null deviance too, and return R2
 R2 <- function(y, pred, family=c("gaussian","binomial")){
 	fam <- match.arg(family)
 	if(fam=="binomial"){
Original file line number	Diff line number	Diff line change
`@@ -45,7 +45,7 @@ deviance <- function(y, pred, family=c("gaussian","binomial")){`
`45`	`45`	`}`
`46`	`46`	`}`
`47`	`47`
`48`		`-## get null devaince too, and return R2`
	`48`	`+## get null deviance too, and return R2`
`49`	`49`	`R2 <- function(y, pred, family=c("gaussian","binomial")){`
`50`	`50`	`fam <- match.arg(family)`
`51`	`51`	`if(fam=="binomial"){`