r

问题 I am taking a list of values and trying to find those that are not NA using magrittr. Here is a simple example: data.frame(data = c(1:2, NA, 4:5, NA, 7)) %>% is.na which yields the correct result: data [1,] FALSE [2,] FALSE [3,] TRUE [4,] FALSE [5,] FALSE [6,] TRUE [7,] FALSE When I put the not operator ! in front of is.na , I get an error: data.frame(data = c(1:2, NA, 4:5, NA, 7)) %>% !is.na gives me Error in FUN(left, right) : operations are possible only for numeric, logical or complex

问题 I am taking a list of values and trying to find those that are not NA using magrittr. Here is a simple example: data.frame(data = c(1:2, NA, 4:5, NA, 7)) %>% is.na which yields the correct result: data [1,] FALSE [2,] FALSE [3,] TRUE [4,] FALSE [5,] FALSE [6,] TRUE [7,] FALSE When I put the not operator ! in front of is.na , I get an error: data.frame(data = c(1:2, NA, 4:5, NA, 7)) %>% !is.na gives me Error in FUN(left, right) : operations are possible only for numeric, logical or complex

问题 I have the following 4x4 number matrix containing the numbers 0-4: 0 1 0 3 3 2 1 4 4 1 0 2 3 3 0 1 I would like to understand how to convert number matrices into a color matrices using chosen colors and specific square dimensions (length x width) using R. To be clear, I'm defining color matrix as a figure using colored squares to represent specific values in a matrix orientation. An example 4x4 from another program follows: I would have to assign color codes to the numbers, for example: 0 =

问题 I have a dataframe with a sequence of numbers similar to below: data <- c(1,1,1,0,0,1,1,2,2,2,0,0,0,2,1,1,0,1,0,2) What I need is something to locate all instances of 1, 2 or 3 repetitions of 0 where the proceeding and following numbers are identical- i.e. both 1 or both 2 (for example 1,0,1 or 2,0,0,2 but NOT 2,0,1). Then I need to fill the zeros only with the surrounding value. I have managed to locate and count consecutive zeros consec <- (!data) * unlist(lapply(rle(data)$lengths, seq_len)

问题 I have the following program: timeStart<-Sys.time() timeEnd<-Sys.time() difference<-timeEnd-timeStart anyVector<-c(difference) at the end I need to put that data into a vector, the problem that I have is than when the difference is in seconds the value is like: 4.46809 seconds and when it passes some minutes the values is like: 2.344445 minutes I would like that the answer is converted to minutes in any case, but when I do something like this: anyVector<-c(difference/60) for the case that the

问题 I want to deploy a Shiny app on the Shiny server but not able to access the app from the local server URL. This is the output of /var/log/shiny-server.log : [2016-04-11 21:39:24.302] [INFO] shiny-server - Starting listener on 0.0.0.0:3838 [2016-04-11 21:42:29.564] [INFO] shiny-server - Error getting worker: Error: The application exited during initialization. [2016-04-11 21:42:29.570] [INFO] shiny-server - Error getting worker: Error: The application exited during initialization. [2016-04-11

问题 I want to deploy a Shiny app on the Shiny server but not able to access the app from the local server URL. This is the output of /var/log/shiny-server.log : [2016-04-11 21:39:24.302] [INFO] shiny-server - Starting listener on 0.0.0.0:3838 [2016-04-11 21:42:29.564] [INFO] shiny-server - Error getting worker: Error: The application exited during initialization. [2016-04-11 21:42:29.570] [INFO] shiny-server - Error getting worker: Error: The application exited during initialization. [2016-04-11

问题 I want to deploy a Shiny app on the Shiny server but not able to access the app from the local server URL. This is the output of /var/log/shiny-server.log : [2016-04-11 21:39:24.302] [INFO] shiny-server - Starting listener on 0.0.0.0:3838 [2016-04-11 21:42:29.564] [INFO] shiny-server - Error getting worker: Error: The application exited during initialization. [2016-04-11 21:42:29.570] [INFO] shiny-server - Error getting worker: Error: The application exited during initialization. [2016-04-11

问题 I want to deploy a Shiny app on the Shiny server but not able to access the app from the local server URL. This is the output of /var/log/shiny-server.log : [2016-04-11 21:39:24.302] [INFO] shiny-server - Starting listener on 0.0.0.0:3838 [2016-04-11 21:42:29.564] [INFO] shiny-server - Error getting worker: Error: The application exited during initialization. [2016-04-11 21:42:29.570] [INFO] shiny-server - Error getting worker: Error: The application exited during initialization. [2016-04-11

问题 I have 3 linear regression models built using the mtcars and would like to use those models to generate predictions for each rows of the mtcars tables. Those predictions should be added as additional columns (3 additional columns) of the mtcars dataframe and should be generated in a for loop using the leave one out approach. Furthermore predictions for model1 and model2 should be performed by "grouping" the cyl numbers whiles predictions made with the model 3 should be accomplished without