The problem in the peace of code below after your definition of crra function: eua = c(pa1*crra(a1,r)+pa2*crra(a2,r)) eub = c(pb1*crra(b1,r)+pb2*crra(b2,r)) Basically you are trying to use r variable before it’s defined moreover it is a duplicate of the code inside the for-loop. If you comment out these two lines everything goes OK. Please see the … Read more
Generally, I’d recommend to keep the data in SAP HANA and operate on it from there, but you can of course also “save” R data frames to it. Here is a simple example: # load the ODBC driver library(“RODBC”) # open a ODBC “channel” – since I use the SAP HANA secure storage all I … Read more
The best way to do this would be to use the glue package. This allows you to easily assign variable names based on strings: library(tidyverse) library(glue) > df <- data.frame( sample_id = c(‘SB013’, ‘SB014’, ‘SB013’, ‘SB014’, ‘SB015’, ‘SB016’, ‘SB016’), IN = c(1,2,3,4,5,6,7), OUT = c(rep(‘out’,7))) > df sample_id IN OUT 1 SB013 1 out 2 … Read more
First I loaded ggplot and added mtcars library to explain. library(ggplot2) cars <- mtcars This is a normal ggplot graph with geom_smooth and the confidence interval. ggplot(cars, aes(x = mpg, y= disp)) + geom_point() + geom_smooth() within geom_smooth is an option se which is your confidence interval. se is default set to TRUE by setting … Read more
A summary of options suggested in the comments (and some others): dd<-data.frame( A= 1:3, B= 2:4 ) You can get the sum of the columns with dd$A + dd$B rowSums(dd) with(dd, A + B) dd[,1]+ dd[,2] dd[,”A”]+ dd[,”B”] apply(dd, 1, sum) do.call(‘+’, dd) Reduce(“+”,dd) solved adding each element each row of two columns together in … Read more
In R, using dplyr: data %>% group_by(Name, CoordinateX, CoordinateY) %>% arrange(desc(Date)) %>% distinct() %>% ungroup() Give the output: Name Date CoordinateX CoordinateY Aaa 2018-08-29 650000 134999 Bbb 2010-08-29 650000 134999 Bbb 2010-08-29 655600 134999 Ccc 2010-08-29 655600 134999 solved Remove duplicate on multiple columns keep newest [closed]
What would help is to output it to a file when you have computed it and then parse that file everytime you open R. Write yourself a computeMatrix() function or script to produce a file with the matrix stored in a sensible format. Also write yourself a loadMatrix() function or script to read in that … Read more
I suggest you to use the dplyr package. You can try the following code: if df is your dataframe: library(dplyr) summarised_df <- group_by(df, Ticker) %>% summarise( max(tradeDate), sum(SharesBought), max(HighestPxPaid), min(LowestPxPaid) ) 3 solved How to summarise a dataframe in R with different function for different column?
In the future, please follow the questions guidelines. library(lubridate) start = as.Date(c(“14.01.2015”, “26.03.2015”),format = “%d.%m.%Y”) end = as.Date(c(“18.01.2015”, NA),format = “%d.%m.%Y”) diff = ifelse(!is.na(end),difftime(end,start,units=”days”),difftime(Sys.time(),start,units=”days”)) df = data.frame(start,end,diff) View(df) start end diff 1 2015-01-14 2015-01-18 4.0000 2 2015-03-26 NA 174.7846 solved How to get date difference if column is NA [closed]
1) eval/parse Create a cmd string, parse it and evaluate it: f2 <- function(DF, x, env = parent.frame()){ cmd <- sprintf(“mutate(%s, %s = mean(v1))”, deparse(substitute(DF)), x) eval(parse(text = cmd), env) } f2(DF, “v1_name”) giving v1 v1_mean 1 1 2 2 2 2 3 3 2 … etc … 2) eval/as.call Another way is to construct … Read more
Try read.csv() dat <- read.csv(text = “Control,3 Test,3 Control,3 Control,3 Test,1 Control,3 Control,1”, header = FALSE) > dat V1 V2 1 Control 3 2 Test 3 3 Control 3 4 Control 3 5 Test 1 6 Control 3 7 Control 1 However, you’ll need read.csv(file = “foo.csv”, header = FALSE) and replace foo.csv with the … Read more
In R it is always preferable to avoid loops wherever possible, as they are usually much slower than alternative vectorized solutions. This operation can be done with a data.table join. Basically, when you run dt1[dt2]; you are performing a right-join between the two data.tables. The preset key columns of dt1 determine which columns to join … Read more
To achieve this you could use ggplot. Here an example: require(ggplot2) df <- data.frame(x = c(-2, -1.5, 1, 2, 3), y = c(-1, 0.8, 1, 1, 2), country = c(“SWI”, “FRA”, “US”, “UK”, “NL”), size = c(15,12,20,4,7)) ggplot(df, aes(x = x, y = y)) + geom_point(aes(size = size), pch=1) +geom_text(aes(label=country),hjust=-0.5, vjust=0) + xlim(c(-3,4)) + scale_size_continuous(range … Read more
We can use == exampledataframe$X2[exampledataframe$X1==”A”] As a function fun1 <- function(data, Var1, Var2, val){ data[[Var2]][data[[Var1]]==val] } fun1(exampledataframe, “X1”, “X2”, “B”) #[1] “4” data exampledataframe <- data.frame(X1= c(“A”, 1, “B”, 2, “C”), X2= c(3, “D”, 4, “F”, 5), stringsAsFactors=FALSE) 0 solved function that returns a value from column b when specifying a value from column a … Read more
This should work if your logic is whenever there is 1 in column x fill y with 1 forward until there is -1 in column x from where fill y with 0 and vice versa: Since you are trying to fill forward vectors with previous values, you may want to use na.locf(last observation carried forward) … Read more