several loops in only one loop with changing parameters over loops in R -



several loops in only one loop with changing parameters over loops in R -

assume illustration purposes have next row vector newdata.forgm[1,]:

x2 x3 x4 x5 x6 x7 x8 x9 x10 x11 3.804125 4.480942 5.023256 5.453471 5.790166 6.048769 6.24211 6.380872 6.473965 6.528837 x12 .... x36 6.55172....4.26642

where x1 removed.

i want create next matrix next row vectors 30 products each row:

(x2*x3)^(1/2) (x2*x3*x4)^(1/3) (x2*x3*x4*x5)^(1/4) ... (x2*...*x32)^(1/31) (x3*x4)^(1/2) (x3*x4*x5)^(1/3) (x3*x4*x5*x6)^(1/4) ... (x3*...*x33)^(1/31) (x4*x5)^(1/2) (x4*x5*x6)^(1/3) (x4*x5*x6*x7)^(1/4) ... (x4*...*x34)^(1/31) (x5*x6)^(1/2) (x5*x6*x7)^(1/3) (x5*x6*x7*x8)^(1/4) ... (x5*...*x35)^(1/31) (x6*x7)^(1/2) (x6*x7*x8)^(1/3) (x6*x7*x8*x9)^(1/4) ... (x6*...*x36)^(1/31)

i have next r code:

n=31 prod.spe <- function(x) { answ <- null for(i in 2:n) { answ <- c(answ, (prod(x[1:(i+0)]))^(1/i)) } return(answ) } prod.spe(newdata.forgm[1,]) prod.spe <- function(x) { answ <- null for(i in 2:n) { answ <- c(answ, (prod(x[2:(i+1)]))^(1/i)) } return(answ) } prod.spe(newdata.forgm[1,]) prod.spe <- function(x) { answ <- null for(i in 2:n) { answ <- c(answ, (prod(x[3:(i+2)]))^(1/i)) } return(answ) } prod.spe(newdata.forgm[1,]) prod.spe <- function(x) { answ <- null for(i in 2:n) { answ <- c(answ, (prod(x[4:(i+3)]))^(1/i)) } return(answ) } prod.spe(newdata.forgm[1,]) prod.spe <- function(x) { answ <- null for(i in 2:n) { answ <- c(answ, (prod(x[5:(i+4)]))^(1/i)) } return(answ) } prod.spe(newdata.forgm[1,])

how can write 1 for-loop in r accounts alter in 0,1,2,3,4 , 1,2,3,4,5 (see above how these numbers change). feedback appreciated.

here reply question:

n=31 prod.spe1 <- function(x) { asnansw <- null for(i in 2:n) { (j in 0:4) { answ <- c(answ, (prod(x[(j+1):(i+j)]))^(1/i)) } } return(answ) } matrix((prod.spe1(newdata.forgm[1,])),nrow=5,ncol=30)

r

Comments

Post a Comment

Popular posts from this blog

Delphi change the assembly code of a running process -

Delphi change the assembly code of a running process - i'm trying alter address 00741fa5 has push test.009e721c . alter push test.009e71c8 . procedure callback; asm force $9e71c8 end; procedure tform2.btn1click(sender: tobject); var ppid :dword; pprocess : cardinal; begin getwindowthreadprocessid(findwindow(nil,pchar('test')), @ppid); pprocess := openprocess(process_all_access, false, ppid); injectasm(pprocess, $741fa5, 10, integer(@callback), 0); end; here injectasm function (with error checking) function injectasm(process: longword; injectaddress, injectsize, codeaddress, codesize : integer): pointer; var csize, rsize : integer; replaced : array of byte; jmp : array [0..4] of byte; jmpaddress : integer; nopv : byte; : integer; nbr: ulong_ptr; begin //injectsize must equal or greater 5, because need space our //(far) jmp wwxxyyzz instruction //if there's no space, inject in place of few instructions if injectsize ...
Read more

json - Hibernate and Jackson (java.lang.IllegalStateException: Cannot call sendError() after the response has been committed) -

json - Hibernate and Jackson (java.lang.IllegalStateException: Cannot call sendError() after the response has been committed) - hello have problem hibernate , jackson. have 2 pojos @entity @table(name = "users") public class user implements serializable { static final long serialversionuid = 4235637833262722256l; @id @generatedvalue private int id; @column(name = "creation_date") private date creationdate; @column(name = "first_name") private string firstname; @column(name = "last_name") private string lastname; @version @column(name = "version") private int version; @column(name = "e_mail") private string email; @column(name = "enabled") private boolean enabled; @column(name = "login") private string login; @column(name = "password") private string password; @jsonmanagedreference("role") @onetomany(mappedby = "user", cascade = cascadetype.all,fetch = fetchtyp...
Read more

C++ 11 "class" keyword -

C++ 11 "class" keyword - i've started using c++ 11 little bit more , have few questions on special uses of class keyword. know it's used declare class, there's 2 instances have seen don't understand: method<class t>(); and class class_name *var; why precede typename keyword class in first example, , keyword pointer in sec example? that known elaborated type specifier , necessary when class name "shadowed" or "hidden" , need explicit. class t { }; // love of god don't t t; t t2; if compiler smart, give these warnings: main.cpp:15:5: error: must utilize 'class' tag refer type 't' in scope t t2; ^ class main.cpp:14:7: note: class 't' hidden non-type declaration of 't' here t t; ^ if class not defined, deed forwards declaration. for example: template <typename t> void method() { using type = typename t::value_type; } method...
Read more