지난 포스팅에서

 

- R 데이터 객체를 외부 파일로 내보내서 저장하기 write.table()

 

- R 분석 결과를 외부 파일로 내보내서 저장하기 cat()

 

을 알아보았습니다.

 

 

 R 분석 결과 외부 파일로 저장하기 : capture.output()

 

이번 포스팅에서는 R 분석 결과 외부 파일로 저장하기 : capture.output()에 대해서 알아보도록 하겠습니다. 분석 결과를 외부로 내보내서 저장하는 cat()과 caputre.output()의 차이점은 cat()이 벡터를 다룬다면 capture.output()은 리스트를 다룬다는 점입니다.

 

아래 함수가

누구를 

어떤 데이터 구조를

무슨 일을 하는가? 

 wriite.table()

 데이터 객체

 데이터 프레임

(data frame)

 텍스트 파일로 외부 저장

 cat()  분석 결과  벡터 (vector)

 텍스트 파일로 외부 저장 

 capture.output()

 분석 결과  리스트 (list)   텍스트 파일로 외부 저장

 

 

capture.output() 함수를 아래 실습을 따라하면서 설명하도록 하겠습니다.

 

 

> ## 10명의 키, 몸무게로 데이터 프레임 만들기

> height <- c(175, 159, 166, 189, 171, 173, 179, 167, 182, 170)
> weight <- c(62, 55, 59, 75, 61, 64, 63, 65, 70, 60)
> d.f_h_w <- data.frame(height, weight)
> 

> ## 키와 몸무게 1차 선형 회귀모형 만들기

> lm_fit_h_w <- lm(weight ~ height, d.f_h_w)
> summary(lm_fit_h_w)
 

Call: lm(formula = weight ~ height, data = d.f_h_w) Residuals: Min 1Q Median 3Q Max -3.8614 -1.4780 -0.1812 1.1986 5.1787 Coefficients: Estimate Std. Error t value Pr(>|t|) (Intercept) -38.1534 18.2437 -2.091 0.069874 . height 0.5867 0.1053 5.573 0.000527 *** --- Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1 Residual standard error: 2.727 on 8 degrees of freedom Multiple R-squared: 0.7952, Adjusted R-squared: 0.7696 F-statistic: 31.06 on 1 and 8 DF, p-value: 0.0005268

 

위에 만든 (1) 데이터 프레임과 (2) 회귀모형 적합 결과 summary(lm_fit_h_w) 를 텍스트 파일로 저장해보도록 하겠습니다.

 

  • "Dataset is as follows: " 문구 쓰고, lm_fit_h_w.txt 파일 생성

> cat( "Dataset is as follows; ",
+      "\n", 
+      "\n", 
+      file = "C:/Users/user/Documents/R/lm_fit_h_w.txt") 

 

 

 

  • lm_fit_h_w.txt 파일에 다가 lm_fit_h_w 데이터 프레임 데이터를 붙여서 저장하기 

> write.table(d.f_h_w, "C:/Users/user/Documents/R/lm_fit_h_w.txt", 
+             sep = ",", 
+             row.names = FALSE, 
+             quote = FALSE, 
+             append = TRUE)
Warning message:
In write.table(d.f_h_w, "C:/Users/user/Documents/R/lm_fit_h_w.txt",  :
  열의 이름들을 파일에 추가합니다 

 

 

 

  • "Summary of linear regression model is " 문구 삽입하기 

 

> cat( "Summary of linear regression model is ",
+      "\n", 
+      "\n", 
+      file = "C:/Users/user/Documents/R/lm_fit_h_w.txt", 
+      append = TRUE)

 

 

 

  • summary(lm_fit_h_w) 결과를 lm_fit_h_w.txt 파일에 붙여서 저장하기
    - cat() 함수를 쓰면 'list' 데이터 구조는 처리할 수 없다는 에러 메시지 발생

> cat( "\n", 
+      "\n", 
+      summary(lm_fit_h_w), 
+      file = "C:/Users/user/Documents/R/lm_fit_h_w.txt", 
+      append = TRUE)
Error in cat(list(...), file, sep, fill, labels, append) : 
  argument 3 (type 'list') cannot be handled by 'cat' 

 

 

               - 이때는 capture.output() 함수를 사용하면 됨

 

> capture.output(summary(lm_fit_h_w), 
+                file = "C:/Users/user/Documents/R/lm_fit_h_w.txt", 
+                append = TRUE) 

 

 

키와 몸무게의 1차 선형회귀모형의 summary() 결과가 텍스트 파일에 append 되어 저장되었음을 확인할 수 있습니다.

 

이번 포스팅이 도움이 되었다면 아래의 '공감 ~♡' 단추를 꾸욱 눌러주세요.^^

 

Posted by R Friend R_Friend

댓글을 달아 주세요

  1. Jun 2015.12.21 18:43  댓글주소  수정/삭제  댓글쓰기

    1편부터 쭉 읽으며 따라하고 있습니다.
    최근 기존에 매틀랩과 엑셀을 사용해 데이터처리하다 한계를 느껴 새로운 툴을 찾아보고있었는데 너무 좋은 강좌 감사드립니다!!

  2. 2016.01.13 21:02  댓글주소  수정/삭제  댓글쓰기

    비밀댓글입니다

    • R Friend R_Friend 2016.01.13 23:55 신고  댓글주소  수정/삭제

      전지환 님, 아래처럼 lm() 함수를 이용해서 2줄 프로그램 입력하시면 됩니다.

      lm_fit_h_w <- lm(weight ~ height, d.f_h_w)
      summary(lm_fit_h_w)

      제가 블로그 포스팅할 때 위의 프로그램 2줄을 실수로 빼먹었었네요. ^^;
      최근에 선형대수 관련해서 연재하고 있는데요, 앞으로 5개 정도 더 선형대수 연재한 후에 회귀분석에 대해서 포스팅해보려고 합니다. 회귀분석이 예측에 아주 많이 활용이 되는 편이어서 중요한지라 자세히 풀어볼까 생각중입니다.

    • 2016.01.17 18:49  댓글주소  수정/삭제

      비밀댓글입니다

    • R Friend R_Friend 2016.01.17 22:28 신고  댓글주소  수정/삭제

      전지환님, 꾸준히 하시는 모습 보기좋습니다. 화이팅하시구요! ^^

  3. 함께멀리 2017.12.15 01:34  댓글주소  수정/삭제  댓글쓰기

    자꾸 문의 드려 죄송합니다.
    매일 1개 강의는 보자는 식으로, 퇴근후에 별도로 공부하고 있습니다.
    근데 짜꾸 error가 발생하면서, txt file 내에 data 저장이 안되네요 ㅜ.ㅜ 머가 문제일까요?

    > write.table(d.f_h_w,"c:/users/jujak/documents/r/ex/lm_fit_h_w.txt",
    + sep = ",",
    + row.names = FALSE,
    + quote = FALSE,
    + append = TRUE)
    Warning message:
    In write.table(d.f_h_w, "c:/users/jujak/documents/r/ex/lm_fit_h_w.txt", :
    열의 이름들을 파일에 추가합니다
    > capture.output(summary(lm_fit_h_w),
    + file = "c:users/jujak/documents/r/ex/lm_fit_h_w.txt",
    + append = TRUE)
    Error in file(file, if (append) "a" else "w") :
    cannot open the connection
    In addition: Warning message:
    In file(file, if (append) "a" else "w") :
    cannot open file 'c:users/jujak/documents/r/ex/lm_fit_h_w.txt': No such file or directory

    • R Friend R_Friend 2017.12.16 00:30 신고  댓글주소  수정/삭제

      안녕하세요.

      문의해주신 R Script의 경로에서 "c:users" 에서 'c:'와 'users' 사이에 '/'가 빠져서 그런것 같습니다. (No such file or directory 이라는 에러 메시지가 뜬 이유)

      (수정 전)
      file = "c:users/jujak/documents/r/ex/lm_fit_h_w.txt"

      => (수정 후) file = "c:/users/jujak/documents/r/ex/lm_fit_h_w.txt"

  4. 김진양 2018.07.25 23:52  댓글주소  수정/삭제  댓글쓰기

    안녕하세요. 항상 감사히 잘 보고 있습니다!
    뭐 하나 질문해도될까요?
    현재 for 구문을 이용해 여러개의 df를 생성하고, 하나의 엑셀 파일에 전부 집어넣고 싶은데
    마지막 df만 엑셀에 저장이되네요.
    혹시 어떤 부분이 잘못되었는지 여쭤봐도 괜찮을까요?
    수식은
    urlbase<-"https://search.shopping.naver.com/search/all.nhn?query="
    low<-c("에어팟","코카콜라","건전지","삼다수")
    low
    for( i in low){
    url<-paste(urlbase, i ,"&cat_id=&frm=NVSHATC",sep="")
    nv<-read_html(url, encoding = "UTF-8")
    st<-html_nodes(nv, '.mall_name')%>%html_text()
    st<-st[1:10]
    price3<-html_nodes(nv, '._lowPriceByMall')%>%html_nodes('.price')%>%html_text()
    price3<-gsub('최저가','',price3)
    price3<-price3[1:10]
    df<-data.frame(가게명=st, 가격=price3)
    df
    df<-rbind(df, data.frame(가게명=url, 가격="r"))
    print(df)
    write.xlsx(, file="D:/456.xlsx", col.names=TRUE)
    }
    if(df[1,1]=="위메프"){
    print("True")
    }else{
    write.xlsx(df, file="D:/789.xlsx", append=TRUE)
    }
    }

    입니다.

    • R Friend R_Friend 2018.07.27 01:01 신고  댓글주소  수정/삭제

      안녕하세요 김진양 님, 오늘 저녁 늦께까지 회사 밋업행사에서 발표하는게 있어서 이제서야 봤네요.

      코드를 직접 돌려보지는 못했구요, 눈으로 보고서 고쳐보면 좋겠다 싶은 2군데 수정한 코드를 아래에 붙여놓습니다.

      제가 내일 새벽에 차타고 나갔다가 토요일 저녁에야 집에 돌아오는데요, 그 사이에는 컴퓨터를 사용할 수 없습니다. 혹시 만약에 아래 코드가 작동을 안하는데 급하신거면 제 답글 기다리지 마시고 주위에 다른 분에 도움을 요청하셔야 할거 같습니다.

      urlbase<-"https://search.shopping.naver.com/search/all.nhn?query="
      low<-c("에어팟","코카콜라","건전지","삼다수")
      low

      # (1) make blank dataframe
      df_all <- data.frame()

      for( i in low){
      url<-paste(urlbase, i ,"&cat_id=&frm=NVSHATC",sep="")
      nv<-read_html(url, encoding = "UTF-8")
      st<-html_nodes(nv, '.mall_name')%>%html_text()
      st<-st[1:10]
      price3<-html_nodes(nv, '._lowPriceByMall')%>%html_nodes('.price')%>%html_text()
      price3<-gsub('최저가','',price3)
      price3<-price3[1:10]
      df<-data.frame(가게명=st, 가격=price3)

      # (2) adding append=TRUE option
      write.xlsx(df, file="D:/456.xlsx", col.names=TRUE, append=TRUE)

      df_all <- rbind(df, data.frame(가게명=url, 가격="r"))
      print(df)

      }

      # (3) used df_all
      if(df[1,1]=="위메프"){
      print("True")
      }else{
      write.xlsx(df_all, file="D:/789.xlsx")
      }

  5. 김진양 2018.07.29 00:17  댓글주소  수정/삭제  댓글쓰기

    안녕하세요! 알프렌드님 친절한 답변감사드립니다!!
    말씀해주신 수식대로 해보았더니, Error in .jcall(wb, "Lorg/apache/poi/ss/usermodel/Sheet;", "createSheet", :
    java.lang.IllegalArgumentException: The workbook already contains a sheet of this name
    라는 문구가 나오면서 되지가 않습니다.
    구글링 해본 결과, append 명령어가 새로운 Sheet에 저장한다는 것 같은데, 그와 관련한 문제인 것 같습니다! 저는 원래 하나의 시트에 모두 나오게 하려고 했는데 그렇게는 안되는걸까요?
    질문이 꼬리에 꼬리를 물고 나와서 죄송합니다. 크롤링까지는 어떻게 꾸역꾸역 해보았는데 여기서 막히네요.... 친절한답변감사합니다^^

    • R Friend R_Friend 2018.07.30 13:14 신고  댓글주소  수정/삭제

      안녕하세요 김진양님,
      아래 코드 참고하시기 바랍니다.
      (폴더 안에 기존에 만들어놓은 456.xlsx, 789.xlsx 파일이 남아있으면 에러가 나니 미리 삭제하고 아래 코드를 실행하시기 바랍니다)

      # clear all
      rm(list=ls())

      # install and load libries
      install.packages("textreadr")
      install.packages("rvest")
      install.packages("xlsx")

      library(textreadr)
      library(rvest)
      library(xlsx)

      urlbase<-"https://search.shopping.naver.com/search/all.nhn?query="
      low <- c("에어팟","코카콜라","건전지","삼다수")
      low

      # for loop statement
      for (i in low){
      url <- paste(urlbase, i ,"&cat_id=&frm=NVSHATC",sep="")
      nv <- read_html(url, encoding = "UTF-8")
      st <- html_nodes(nv, '.mall_name')%>%html_text()
      st <- st[1:10]
      price3 <- html_nodes(nv, '._lowPriceByMall') %>% html_nodes('.price') %>% html_text()
      price3 <- gsub('최저가','',price3)
      price3 <- price3[1:10]
      df<-data.frame(가게명=st, 가격=price3)

      # append url to df
      df <- rbind(df, data.frame(가게명=url, 가격="r"))

      # adding sheetName
      write.xlsx(df, file="C:/Users/admin/Documents/456.xlsx",
      sheetName=i, # excel sheet per each product or brand
      col.names=TRUE,
      append=TRUE)

      # if else condition statement
      if(df[1,1]=="위메프"){
      print("위메프 True")
      } else {
      write.xlsx(df, file="C:/Users/admin/Documents/789.xlsx",
      sheetName=i,
      col.names=TRUE,
      append=TRUE)
      }

      # check progress
      print(paste0(i, " has been completed."))
      }

    • 김진양 2018.07.30 21:58  댓글주소  수정/삭제

      R프렌드님 감사합니다! 드디어 해결했습니다^^
      R프렌드님이 주신 코드를 단순히 copy & paste하는 것이 아니라, 찬찬히 하나하나 공부해보았습니다.
      제 실수는 write.xlsx과정에서 sheet를 추가하려한다면 write.xlsx(~~,~~, sheetname=i)로 설정하지 않은 것임을 깨달을 수 있었습니다.
      진심으로 감사의 말씀을 드립니다^^

      혹여나 실례가 되지 않는다면, for반복문에서 도출되는 데이터셋을 sheet별이 아닌, 하나의 sheet에 순차적으로 나타내는 방법은 없는지 여쭤볼 수 있을까요?

      해당 사항을 해결하기 위해 일주일동안 구글링을 했는데 해결방법을 알지 못해, 부끄러움을 무릅쓰고 이렇게 댓글을 남겨봅니다.

      제가 이해를 잘 못하고, 여러번 알프렌드님을 귀찮게 해드렸는데도 친절하게 대답해주셔서 정말로 감사합니다! 이번 일을 계기로 알프렌드님과의 인연을 소중히 생각하고 오랫동안 간직해나가겠습니다^^ 감사합니다.

    • R Friend R_Friend 2018.07.30 22:45 신고  댓글주소  수정/삭제

      안녕하세요 김진양님,
      아래 코드 참고하시기 바랍니다.
      원하시는 결과이기 바래요.

      # clear all
      rm(list=ls())

      # install and load libries
      # install.packages("textreadr")
      # install.packages("rvest")
      # install.packages("xlsx")

      library(textreadr)
      library(rvest)
      library(xlsx)

      urlbase<-"https://search.shopping.naver.com/search/all.nhn?query="
      low <- c("에어팟","코카콜라","건전지","삼다수")
      low

      # making a blank DataFrame to store
      df_all <- data.frame()

      # for loop statement
      for (i in low){
      url <- paste(urlbase, i ,"&cat_id=&frm=NVSHATC",sep="")
      nv <- read_html(url, encoding = "UTF-8")
      st <- html_nodes(nv, '.mall_name')%>%html_text()
      st <- st[1:10]
      price3 <- html_nodes(nv, '._lowPriceByMall') %>% html_nodes('.price') %>% html_text()
      price3 <- gsub('최저가','',price3)
      price3 <- price3[1:10]
      df<-data.frame(item=i, 가게명=st, 가격=price3)

      # append url info to df_all
      df <- rbind(df, data.frame(item=i, 가게명=url, 가격="r"))

      # combining df to df_all one by one
      df_all <- rbind(df_all, df)

      # check progress
      print(paste0(i, " has been completed."))
      }

      # exporting df_all to excel
      write.xlsx(df_all,
      file="C:/Users/admin/Documents/df_all.xlsx",
      col.names=TRUE)

  6. 김진양 2018.08.02 08:15  댓글주소  수정/삭제  댓글쓰기

    알 프렌드님 안녕하세요^^ 일이 너무 바빠 프로구램을 돌려보질 못했습니다(프로그램 알은 집에서 취미로 공부하고있어서요) 출근길에 알프렌드님 블로그를 돌려 감사인사 전해드립니다.
    얼른 집에 가서 해보고 말씀드릴게요. 너무 설레네요 감사합니다^^

    • R Friend R_Friend 2018.08.02 10:44 신고  댓글주소  수정/삭제

      잘 되면 좋겠네요

    • 김진양 2018.08.05 12:19  댓글주소  수정/삭제

      알프렌드님 감사합니다!!! 원하던 결과물을 도출해냈습니다.
      df에 있어서 rbind를 통해 item명을 i로 잡고 하니 해결이 가능했네요!
      뒤늦게 해결해서 죄송합니다.
      한달여가량 계속 고민하면서 알프렌드님을 알게되고, 알프렌드님의 친절한 교육으로 인해 결국 원하던 결과물을 도출해낼 수 있었습니다.
      진심으로 감사드리며, 블로그 자주 놀러와서 더욱 더 공부하는 학생이 될게요^^

    • R Friend R_Friend 2018.08.05 12:20 신고  댓글주소  수정/삭제

      원하던 결과를 얻어서 다행입니다. ^^

  7. 이수진 2019.10.16 10:48  댓글주소  수정/삭제  댓글쓰기

    안녕하세요. 267개 데이터프레임을 for문으로 각각 회귀분석 돌리고 267개 결과들을 한꺼번에 엑셀파일에 넣으려고합니다. 혹시 방법이있을까요?
    최종 데이터는 df_max_split 입니다!
    [code]
    #logistic regression#

    require(readxl)

    #01#[데이터 불러오기]

    # 작업공간 설정하기(이곳에 엑셀 파일이 있다고 가정)
    setwd("C:/Users/DV-Sub02/Desktop/한주금속")

    # 작업공간에 있는 엑셀 파일의 목록을 저장
    fileNames = list.files(pattern="xlsx")

    # 엑셀 파일의 이름과 동일하게 데이터생성
    for(i in 1:length(fileNames)){
    data = read_excel(path=fileNames[i], sheet=1, col_names=TRUE)
    assign(x=fileNames[i], value=data)
    }

    # 엑셀 파일 합치기
    df_max <- rbind(`201805.xlsx`,`201806.xlsx`,`201807.xlsx`,`201808.xlsx`,`201809.xlsx`,`201810.xlsx`,`201811.xlsx`,`201812.xlsx`,`201901.xlsx`,`201902.xlsx`,`201903.xlsx`,`201904.xlsx`)


    # 전부 고려
    ## 라인x품명x금형명
    df_max$case <- paste(df_max $작업라인,df_max $품명,df_max $금형명)


    # 한가지 고려
    ## 라인
    #df_max_time_Defectiverate$case <- paste(df_max_time_Defectiverate$작업라인)
    ## 품명
    #df_max_time_Defectiverate$case <- paste(df_max_time_Defectiverate$품명)
    ## 금형명
    #df_max_time_Defectiverate$case <- paste(df_max_time_Defectiverate$금형명)

    # 두가지 고려
    ## 라인x품명
    #df_max_time_Defectiverate$case <- paste(df_max_time_Defectiverate$작업라인,df_max_time_Defectiverate$품명)
    ## 라인x금형명
    #df_max_time_Defectiverate$case <- paste(df_max_time_Defectiverate$작업라인,df_max_time_Defectiverate$금형명)
    ## 품명x금형명
    #df_max_time_Defectiverate$case <- paste(df_max_time_Defectiverate$품명,df_max_time_Defectiverate$금형명)

    #dim(df_max_time_Defectiverate)

    # 데이터 나누기
    df_max_split <- split(df_max,df_max$case)

    • R Friend R_Friend 2019.10.16 11:40 신고  댓글주소  수정/삭제

      안녕하세요.
      제가 직장인인데요, 이번주에 너무 바빠서 일요일 저녁에 잠깐 시간이 날거 같습니다. 혹시 급하신거면 제가 바로 도와드릴수 없습니다. 죄송합니다. ㅠ.ㅠ

  8. 이수진 2019.10.16 11:44  댓글주소  수정/삭제  댓글쓰기

    도움주실 수 있으면 언제든지 괜찮습니다! 그동안 혼자 연구해보고 있겠습니다 감사합니다^^

    • R Friend R_Friend 2019.10.16 11:45 신고  댓글주소  수정/삭제

      지금은 개별 회귀분석 결과를 개별 엑셀에 내려보낸 디음에, 나중에 합체려고 하시는건가봐요?

      이 포스팅의 댓글 란에 보시면 엑셀로 내보내는 코드 있는데요, 혹시 그거에 참고하실만한게 있으려나요?

  9. 이수진 2019.10.16 13:14  댓글주소  수정/삭제  댓글쓰기

    네 개별 회귀분석 결과를 개별 엑셀에 내보내거나 한번에 다 같이 내보내는 방법 살펴보고있어요
    댓글 참고해서 한번 해보겠습니다 ㅎㅎ

  10. tnwls2 2019.10.16 15:56  댓글주소  수정/삭제  댓글쓰기

    안녕하세요. 각 데이터별 회귀분석 결과들을 df_max_split_GLM_result이름으로 리스트 형태로 저장했습니다. 그런데 맨 마지막 코드에서 for문으로 capture.output을 사용하니까 첫번째 리스트인 df_max_split_GLM_result1만 리스트개수만큼 반복해서 메모장에 저장되었습니다.ㅠㅠ 혹시 코드만 보시고 어떤게 문제인지 여쭤봐도될까요? 자꾸 문의드려 죄송합니다 ㅠㅠ
    #logistic regression#

    require(readxl)

    #01#[데이터 불러오기]

    # 작업공간 설정하기(이곳에 엑셀 파일이 있다고 가정)
    setwd("C:/Users/DV-Sub02/Desktop/한주금속")

    # 작업공간에 있는 엑셀 파일의 목록을 저장
    fileNames = list.files(pattern="xlsx")

    # 엑셀 파일의 이름과 동일하게 데이터생성
    for(i in 1:length(fileNames)){
    data = read_excel(path=fileNames[i], sheet=1, col_names=TRUE)
    assign(x=fileNames[i], value=data)
    }

    # 엑셀 파일 합치기
    df_max <- rbind(`201805.xlsx`,`201806.xlsx`,`201807.xlsx`,`201808.xlsx`,`201809.xlsx`,`201810.xlsx`,`201811.xlsx`,`201812.xlsx`,`201901.xlsx`,`201902.xlsx`,`201903.xlsx`,`201904.xlsx`)


    # 전부 고려
    ## 라인x품명x금형명
    df_max$case <- paste(df_max $작업라인,df_max $품명,df_max $금형명)


    # 데이터 나누기
    df_max_split <- split(df_max,df_max$case)


    #GLM
    for (i in 1:length(df_max_split)) {
    assign(paste0("df_max_split_GLM_result", i),glm(df_max_split[[i]]$양품판정결과~df_max_split[[i]]$'전자교반 가동시간'+df_max_split[[i]]$'설비가동 CT'+df_max_split[[i]]$'제품생산 CT'+df_max_split[[i]]$저속구간속도+df_max_split[[i]]$가동보온로+df_max_split[[i]]$용탕량,data=df_max_split[[i]],family="binomial"))
    }


    cat("data is as follows:","\n","\n",file="C:/Users/DV-Sub02/Desktop/한주금속/glm.txt",append=TRUE)

    for (i in 1:length(df_max_split)) {
    capture.output(summary(df_max_split_GLM_result[[i]]),file="C:/Users/DV-Sub02/Desktop/한주금속/glm2.txt",append=TRUE)
    }

    • R Friend R_Friend 2019.10.16 16:17 신고  댓글주소  수정/삭제

      안녕하세요.
      코드만 보고 테스트는 못해봐서 틀릴수도 있는데요, GLM 부분을 수정해보실래요?

      # GLM
      df_max_split_GLM_result <- {}

      for (i in 1:length(df_max_split)) {
      df_max_split_GLM_result[[i]] <- glm(동일)
      }

  11. tnwls2 2019.10.16 16:25  댓글주소  수정/삭제  댓글쓰기

    저렇게 해서 결과는 나왔는데 결과들에 대한 summary가 리스트형태라서 데이터프레임처럼 저장이 안되네요..ㅠㅠ