r

问题 I can use texreg to get beautiful output of glm to be used for knitr . Sometimes we need to convert the output of glm back to response using inverse link. I wonder how to get inverse link output with texreg . Something like texreg(exp(glm.D93)) . counts <- c(18,17,15,20,10,20,25,13,12) outcome <- gl(3,1,9) treatment <- gl(3,3) d.AD <- data.frame(treatment, outcome, counts) glm.D93 <- glm(counts ~ outcome + treatment, family = poisson()) library(texreg) texreg(glm.D93) which produces \begin

问题 I am new to R and trying to delete rows based on values of previous rows. Sample data: Cust_ID | Date | Value 500219 | 2016-04-11 12:00:00 | 0 500219 | 2016-04-12 16:00:00 | 0 500219 | 2016-04-14 11:00:00 | 1 500219 | 2016-04-15 12:00:00 | 1 500219 | 2016-05-23 09:00:00 | 0 500219 | 2016-05-02 19:00:00 | 0 500220 | 2016-04-11 12:00:00 | 0 500220 | 2016-04-14 11:00:00 | 1 500220 | 2016-04-15 12:00:00 | 1 500220 | 2016-05-23 09:00:00 | 0 500220 | 2016-05-02 19:00:00 | 0 I would like to maintain

问题 I can use texreg to get beautiful output of glm to be used for knitr . Sometimes we need to convert the output of glm back to response using inverse link. I wonder how to get inverse link output with texreg . Something like texreg(exp(glm.D93)) . counts <- c(18,17,15,20,10,20,25,13,12) outcome <- gl(3,1,9) treatment <- gl(3,3) d.AD <- data.frame(treatment, outcome, counts) glm.D93 <- glm(counts ~ outcome + treatment, family = poisson()) library(texreg) texreg(glm.D93) which produces \begin

问题 I can use texreg to get beautiful output of glm to be used for knitr . Sometimes we need to convert the output of glm back to response using inverse link. I wonder how to get inverse link output with texreg . Something like texreg(exp(glm.D93)) . counts <- c(18,17,15,20,10,20,25,13,12) outcome <- gl(3,1,9) treatment <- gl(3,3) d.AD <- data.frame(treatment, outcome, counts) glm.D93 <- glm(counts ~ outcome + treatment, family = poisson()) library(texreg) texreg(glm.D93) which produces \begin

问题 I plot a simple network using visNetwork but when I try to save it as png I get an empty image as a result. png("ex.png") require(visNetwork, quietly = TRUE) # minimal example nodes <- data.frame(id = 1:3) edges <- data.frame(from = c(1,2), to = c(1,3)) visNetwork(nodes, edges, width = "100%") dev.off() 回答1: You can save the network as html and then capture the content of that file: nodes <- data.frame(id = 1:3) edges <- data.frame(from = c(1,2), to = c(1,3)) library(visNetwork) plot<-

问题 Assume this simplified example: L <- list() L$Foo <- list() L$Foo$Bar <- list() L$Foo$Bar$VAR <- TRUE L$Lorem <- list() L$Lorem$Ipsum <- list() L$Lorem$Ipsum$Dolor <- list() L$Lorem$Ipsum$Dolor$VAR <- TRUE I will then melt this list with reshape2::melt(L) . That will output the following: value L3 L2 L4 L1 1 TRUE VAR Bar <NA> Foo 2 TRUE Dolor Ipsum VAR Lorem After some operations on certain cells in the value column, I'm then looking to recast this melted list into the exact same nested list

问题 I plot a simple network using visNetwork but when I try to save it as png I get an empty image as a result. png("ex.png") require(visNetwork, quietly = TRUE) # minimal example nodes <- data.frame(id = 1:3) edges <- data.frame(from = c(1,2), to = c(1,3)) visNetwork(nodes, edges, width = "100%") dev.off() 回答1: You can save the network as html and then capture the content of that file: nodes <- data.frame(id = 1:3) edges <- data.frame(from = c(1,2), to = c(1,3)) library(visNetwork) plot<-

问题 I'm an absolute beginner and am hoping someone will be able to help me with a merge problem that I've been stuck on for most of this evening and have thus far been unable to successfully adapt solutions to similar problems to this particular example. I've made a dummy data frame and vector to help illustrate my problem: dumdata <- data.frame(id=c(1:5), pcode=c(1234,9876,4477,2734,3999), vlo=c(100,450,1000,1325,1500), vhi=c(300,950,1100,1450,1700)) id pcode vlo vhi 1 1234 100 300 2 9876 450

问题 What I am asking is probably quite simple but I still didn't figure out a quick and simple way to do it. I have data frame with 96 columns from A1 to H12. I will start receiving files every week that I want to compile in one single data frame. The problem is that this files miss some of the columns (that can be the first columns or any other column in the middle) thus making the merge slightly nasty. Here is a sample of what I have: t = data.frame(A1 = c(1,2,3,4,5), B1 = c(7,8,9,10,11), C1 =

问题 I want to append the file name to my table, but it seems it is not really working. What I am doing is iterating over a list of filenames, opening them, appending all the data to one data frame and for each appended file I want to add its file name. I expect it to be appended on each row, so that later when I look at the data, I would know from which file is the given row originating. But it seems that it is not working as expected. data <- data.frame() for (file in files){ name = strsplit