r语言里y值必须满足0到1该如何解决

Python023

r语言里y值必须满足0到1该如何解决,第1张

利用adjusted r square，能对添加的非显著变量给出惩罚，也就是说随意添加一个变量不一定能让模型拟合度上升。

实数r范围是在有理数和无理数的范围内。实数可以分为有理数和无理数两类，或代数和超越数两类。实数集通常用黑正体字母R表示。R表示n维实数空间。实数是不可数的。数学中粗写的 R 指的是所有实数组成的实数集。

relweights <-

+ function(fit,...){

+ R <- cor(fit$model)

+ nvar <- ncol(R)

+ rxx <- R[2:nvar, 2:nvar]

+ rxy <- R[2:nvar, 1]

+ svd <- eigen(rxx)

+ evec <- svd$vectors

+ ev <- svd$values

+ delta <- diag(sqrt(ev))

+ lambda <- evec %*% delta %*% t(evec)

+ lambdasq <- lambda ^ 2

+ beta <- solve(lambda) %*% rxy

+ rsquare <- colSums(beta ^ 2)

+ rawwgt <- lambdasq %*% beta ^ 2

+ import <- (rawwgt / rsquare) * 100

+ lbls <- names(fit$model[2:nvar])

+ rownames(import) <- lbls

+ colnames(import) <- "Weights"

+ barplot(t(import),names.arg=lbls,

+ ylab="% of R-Square",

+ xlab="Predictor Variables",

+ main="Relative Importance of Predictor Variables",

+ sub=paste("R-Square=", round(rsquare, digits=3)),

+ ...)

+ return(import)

+ }

要输入这些代码，这是生成相对权重的函数。