search for: pendent

...x) > f2 <- function(x) { log } (x) > should act differently? yes. Or more precisely: I would expect that. "Should" implies, that I want to change something. I just want to understand the behavior (or file a bug, if this would have been one). As I wrote, in e.g. node.js the pendents to the lines that you wrote are treated differently (the first is a function, the latter is a parsing error). Let's use this example instead: x <- 20 f1 <- function(x) { x<-x+1; log(x) } f2 <- function(x) { x<-x+1; log } (x) which act equally. But as the latter is a legal st...

...log } (x) >> should act differently? >> > yes. Or more precisely: I would expect that. "Should" implies, that I want > to change something. I just want to understand the behavior (or file a bug, > if this would have been one). > > As I wrote, in e.g. node.js the pendents to the lines that you wrote are > treated differently (the first is a function, the latter is a parsing > error). > > Let's use this example instead: > x <- 20 > f1 <- function(x) { x<-x+1; log(x) } > f2 <- function(x) { x<-x+1; log } (x) > which act equa...

...") R2 <- function(x) var(predict(x))/var(predict(x)+resid(x)) TPMEN<-t(apply(PMpa,c(1,3),function(x){ kk<-lmrob(x~c("1950:2009")); c(kk$coefficients[2],R2(kk), (1-summary(kk)$coefficients[2,4])*100, (confint(kk,level=.95)*10)[2,])})) dimnames(TPMEN)[[3]][1:3]<-c("Pendent","R2","Significancia") save(TPMEN,file="TPMEN.Rdat") working: > TPMEN<-t(apply(PMpa,c(1,3),function(x){ + kk<-lmrob(x~c("1950:2009")); + c(kk$coefficients[2],R2(kk),(1-summary(kk)$coefficients[2,4])*100,(confint(kk,level=.95)*10)[2,])})) Err...

...Use. No switching Long Distance JUST DIAL 10-15-335 1+(AREA CODE)+NUMBER At the prompt , enter this activation code 218995 (on first call only) to us this incredible rate 4 CENTS A MINUTE ANYTIME Interstate and International service is not available in the state of California and certain inde-pendent local telephone company service areas throughout the U.S. Intrastate service not avail-able in Alaska, California, Connecticut, Hawaii, Maine, N. Carolina, N. Dakota, S. Dakota, or W. Virginia. Service in Florida is provided and billed by CTS Telcom, Inc. Customers will be charged a CUSC fee of 6.9...

Hi, thx for the reply. Unfortunately that is not a simplified version of the problem. You have a function, call it and get the result (numeric in, numeric out in that case). For simplicity lets use the "return" case: ## foobar<-function(x) { return(sqrt(x)) }(2) ## which is a function (numeric in, numeric out) which is defined, then gets called and the return value is a function