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)
 }
Related Posts
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.

11 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
  6. For me, it arrived in a digital book composed by Kacper Postawski. ambien-online.com

    ReplyDelete
  7. Deductibles can shift broadly from only a couple of hundred dollars to over $10,000 per year. my-tramadol.com

    ReplyDelete
  8. This comment has been removed by the author.

    ReplyDelete
  9. Buy Medicine Online USA for sale from Rxonlinepharmacies We provide treatment for Chronic pain, back pain at a reasonable cost.

    ReplyDelete
  10. Buy Medicine Online USA for sale from Rxonlinepharmacies We provide treatment for Chronic pain, back pain at a reasonable cost.

    ReplyDelete

Next → ← Prev
Love this Post? Spread the Word!
Share