Create blank data frame with R

This tutorial explains how to create a blank data set (data frame) with R.
 dummydt=data.frame(matrix(ncol=0,nrow=0))
Practical Application - It is very useful when you append data sets in a loop. In the first iteration, it is required to form a structure of the data frame so that data from the subsequent iteration can be added to it. Check out the code below.
unilogit2 = function(df,depvar, output) {
  dummydt=data.frame(matrix(ncol=0,nrow=0))  depvar1 = deparse(substitute(depvar))
  out = deparse(substitute(output))
  xxxx = names(df)[which(names(df)!= depvar1)]
  for (i in 1:length(xxxx)) {
  mylogit = glm(formula(paste(depvar1,"~",xxxx[i])), data = df, family = "binomial")
  coeff = data.frame(summary(mylogit)$coefficient)
  if (i==1) {output = rbind(dummydt,coeff)}  else {output = rbind(output,coeff)}  assign(out,output, envir = .GlobalEnv)
 }
Love this Post? Spread the Word!
Comment and share to motivate us to write more!
About Author:

Deepanshu founded ListenData with a simple objective - Make analytics easy to understand and follow. He has over 8 years of experience in data science. During his tenure, he has worked with global clients in various domains like Banking, Insurance, Telecom and Human Resource.

While I love having friends who agree, I only learn from those who don't.

Let's Get Connected: Email | LinkedIn

Get Free Email Updates :
*Please confirm your email address by clicking on the link sent to your Email*
Related Posts:
6 Responses to "Create blank data frame with R"
  1. > dummydt=data.frame(matrix(ncol=0,nrow=0))
    > unilogit2 = function(df,depvar, output) {
    + dummydt=data.frame(matrix(ncol=0,nrow=0)) depvar1 = deparse(substitute(depvar))
    Error: unexpected symbol in:
    "unilogit2 = function(df,depvar, output) {
    dummydt=data.frame(matrix(ncol=0,nrow=0)) depvar1"
    > out = deparse(substitute(output))
    > xxxx = names(df)[which(names(df)!= depvar1)]
    Error in which(names(df) != depvar1) : object 'depvar1' not found
    > for (i in 1:length(xxxx)) {
    + mylogit = glm(formula(paste(depvar1,"~",xxxx[i])), data = df, family = "binomial")
    + coeff = data.frame(summary(mylogit)$coefficient)
    + if (i==1) {output = rbind(dummydt,coeff)} else {output = rbind(output,coeff)} assign(out,output, envir = .GlobalEnv)
    Error: unexpected symbol in:
    " coeff = data.frame(summary(mylogit)$coefficient)
    if (i==1) {output = rbind(dummydt,coeff)} else {output = rbind(output,coeff)} assign"
    > }
    Error: unexpected '}' in " }"
    >

    ReplyDelete
  2. Narcolepsy is the aftereffect of the concoction lopsidedness in the cerebrum and because of the insufficiency of protein called hypocretin in the mind. buymodafinilgeneric.com

    ReplyDelete
  3. With a site, indeed, you have a shop online that numerous individuals from all around can visit and purchase stuff from. ativanvsxanax.org

    ReplyDelete
  4. The watches are grouped by brands, sexual orientation – looks for men and looks for ladies, costs, pair watches, and other such related classes. medicalclinicalresearch.net

    ReplyDelete
  5. Limited time messages about different items and administrations likewise contribute a huge factor towards web based advertising. tramadol-online.net

    ReplyDelete

Next → ← Prev
Scroll to Top