Sum based of the name of variables in R -


let's have df contains id, gender, , several numerical variables, , max1, max2, , max3, where

max1 = variable name of first max values of x1,x2,x3,x4,x5

max2 = variable name of second max values of x1,x2,x3,x4,x5

max3 = variable name of third max values of x1,x2,x3,x4,x5

### generate data set.seed(123)     id <- c(1,2,3,4,5,6,7,8,9,10) gender <- c("m", "m", "m", "f", "f", "m", "m", "f", "f", "m") x1 <- rnorm(10, 0, 1) x2 <- rnorm(10, 0, 1) x3 <- rnorm(10, 0, 1) x4 <- rnorm(10, 0, 1) x5 <- rnorm(10, 0, 1) df <- data.frame(id, gender, x1, x2, x3, x4, x5)  maxes <- t(sapply(1:nrow(df), function(i) {     names(sort(df[i,3:7], decreasing=t)[1:3]) })) colnames(maxes) <- c("max1","max2", "max3") df <- cbind(df, maxes)

now need create new column (call ir m_sum) has sum values of max1 , max2.

for example, id=1, max1 = x2 , max2 = x4, m_sum shold equal 1.2240818 + 0.42646422 = 1.650546.

how using apply in 1 call?

df$m_sum <- apply(df, 1, function(x) as.double(x[x[ "max1" ]]) + as.double(x[x[ "max2" ]]))  #[1] 1.65054602 0.15189652 2.45383397 3.04708946 2.02954308 3.50197809 1.39170465 0.09146139 1.48132102 #[10] 1.17044583

Comments

Post a Comment

Popular posts from this blog

c# - Update a combobox from a presenter (MVP) -

i using mvp in project, new in mvp. have 2 comboboxes. when select option in combobox, combobox should filled new data. this action in presenter. view 'view1' in presenter, , introduced combobox1 , combobox2 properties in 'view1', because need 'datasource', 'displaymember', 'valuemember' , 'refresh()' in method below. but, when using pattern, enough send property like public string combobox2 { { return combobox1.selectedvalue.tosstring(); } } into presenter not whole combobox. how can solve problem? public void onselectedindexchangedcombobox1() { if (view1.combobox1.selectedindex == -1) { return; } datatable dt = tools.getdatatable("a path"); var query = (from o in dt.asenumerable() o.field<string>("afield") == farmerview.combobox1.selectedvalue.tostring() orderby o.field<string>("anotherfield") select...
Read more

How to understand 2 main() functions after using uftrace to profile the C++ program? -

i trying uftrace profile following simple c++ program: #include <iostream> class { public: a() {std::cout << "a created" << std::endl;} ~a() {std::cout << "a destroyed" << std::endl;} }; int main() { a; return 0; } the profile result this: # uftrace a.out created destroyed # duration tid function 2.026 [ 4828] | __cxa_atexit(); [ 4828] | main() { [ 4828] | __static_initialization_and_destruction_0() { 89.397 [ 4828] | std::ios_base::init::init(); 0.768 [ 4828] | __cxa_atexit(); 93.029 [ 4828] | } /* __static_initialization_and_destruction_0 */ 94.425 [ 4828] | } /* main */ [ 4828] | main() { [ 4828] | a::a() { 11.104 [ 4828] | std::operator <<(); 10.825 [ 4828] | std::basic_ostream::operator <<(); 24.514 [ 4828] | } /* a::a */ [ 4828] | a::~a() { 0.978 [ 4828] | ...
Read more

How to put a lock and transaction on table using spring 4 or above using jdbcTemplate and annotations like @Transactional? -

i trying put lock on table while writing on table , if happened in between roll-back . trying convert below code lock table test_g1 read; lock table test_g write; -- begin; start transaction; insert test_g1 values(143); insert test_g values(145); select * test_g1; select * test_g; rollback; select * test_g; unlock tables; how convert above code @transactional spring jdbctemplate code? @transactional(rollbackfor={dataaccessexception.class}) public void test(){ jdbctemplate.execute("insert test1 (id, nam) values (4, 'a')"); throw new dataaccessexception("error") { }; } here trying throw error, insert statement should rollback it's not happening . thanks edit-1 attaching code , doing in jdbcdaoimpl.java , mentioned problem comment above test() . app.java package com.cgiri.javabrains.spring4; import org.springframework.beans.factory.annotation.autowired; import org.springframework.context.applic...
Read more