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)

}

Code not working

ReplyDelete> dummydt=data.frame(matrix(ncol=0,nrow=0))

ReplyDelete> 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 " }"

>

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

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

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

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

ReplyDeleteFor me, it arrived in a digital book composed by Kacper Postawski. ambien-online.com

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

ReplyDelete