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)
}
About Author:
Deepanshu founded ListenData with a simple objective - Make analytics easy to understand and follow. He has over 10 years of experience in data science. During his tenure, he has worked with global clients in various domains like Banking, Insurance, Private Equity, Telecom and Human Resource.
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
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
ReplyDeleteThis comment has been removed by the author.
ReplyDeleteThis comment has been removed by the author.
ReplyDeleteNice blog !! Thanks for sharing valuable information. Its quite different from other posts. Thanks for sharing.
ReplyDeleteCheck out the official website for order medicines online. www.tramadolrxusa.com/
https://www.tramadolrxusa.com/
https://www.tramadolrxusa.com/product/tramadol-100mg/
https://www.tramadolrxusa.com/product/tramadol-50mg/
https://www.tramadolrxusa.com/shop/
https://www.tramadolrxusa.com/product/tapentadol-100mg/
This comment has been removed by a blog administrator.
ReplyDeleteThis comment has been removed by a blog administrator.
ReplyDeleteThis comment has been removed by the author.
ReplyDelete