From 15e2db74f0d79fbcdbfe987fe67f93ca9a14efe1 Mon Sep 17 00:00:00 2001 From: Pariksheet Nanda Date: Mon, 4 Nov 2024 11:00:23 -0500 Subject: [PATCH] Support glmnet >= 3 (fixes #1) --- protina_R/protina_v1.0_R/R/protina.R | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/protina_R/protina_v1.0_R/R/protina.R b/protina_R/protina_v1.0_R/R/protina.R index 3818956..4174fe1 100644 --- a/protina_R/protina_v1.0_R/R/protina.R +++ b/protina_R/protina_v1.0_R/R/protina.R @@ -69,7 +69,7 @@ protina <- function(lfc,slope=NULL,pgn,grplist,kfold=10,par=FALSE,numCores=4){ } cvfit <- cv.glmnet(Xin, y, alpha = 0, intercept = FALSE, nfolds = kfold) - coef.cvfit <- coef.cv.glmnet(cvfit,s='lambda.min') + coef.cvfit <- coef(cvfit,s='lambda.min') Aj <- vector(mode = "integer",length = dim(Xin)[2]) Aj[coef.cvfit@i] <- coef.cvfit@x @@ -101,7 +101,7 @@ protina <- function(lfc,slope=NULL,pgn,grplist,kfold=10,par=FALSE,numCores=4){ } cvfit <- cv.glmnet(Xin, y, family='gaussian',alpha = 0, intercept = FALSE, nfolds = kfold) - coef.cvfit <- coef.cv.glmnet(cvfit,s='lambda.min') + coef.cvfit <- coef(cvfit,s='lambda.min') Aj <- vector(mode = "integer",length = dim(Xin)[2]) Aj[coef.cvfit@i] <- coef.cvfit@x A[j,ppar] <- Aj[1:(length(Aj)-m)]