From 74b5265b20dc217eab332ae970db87ef27d7dd7e Mon Sep 17 00:00:00 2001
From: Krishna Veeramah <Krishna.veeramah@stonybrook.edu>
Date: Tue, 1 Feb 2022 22:31:46 -0500
Subject: [PATCH] Update run_calcPCClocks_Accel.R

---
 run_calcPCClocks_Accel.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/run_calcPCClocks_Accel.R b/run_calcPCClocks_Accel.R
index e05daf1..daf5f22 100644
--- a/run_calcPCClocks_Accel.R
+++ b/run_calcPCClocks_Accel.R
@@ -11,7 +11,7 @@ calcPCClocks_Accel <- function(DNAmAge){
   }
   #clockColumns = c(9:23)
   for (i in clockColumns){
-    DNAmAge[,paste0(i,"Resid")] = resid(lm(DNAmAge[,i] ~ DNAmAge$Age))
+    DNAmAge[,paste0(i,"Resid")] = resid(lm(as.matrix(DNAmAge[,i]) ~ DNAmAge$Age))
     #DNAmAge[,paste0(colnames(DNAmAge)[i],"Resid",sep="")] = resid(lm(as.vector(DNAmAge[,i][[1]]) ~ as.vector(DNAmAge$Age)))
   }
   return(DNAmAge)