Execution of a function

Hi

i have  aproblem withe execution of my function

first, i wrote my function in the script of R
nom_fonction <- function(arg1[=expr1], arg2[=expr2], ...){

bloc d'instructions
}

when i want to have the result i mean the laste instruction in the bloc of
instruction ,  i try to
wrote the name of function

source(aj.fun)

Error in readLines(file, warn = FALSE) : 'con' is not a connection

source() takes a file name, not a function name.

Cheers,
Michael

return(aj.fun)

Error: no function to return from, jumping to top level

Don't use return() outside of functions.

thanks for helping
hafida, univ of algeria






--
View this message in context: http://r.789695.n4.nabble.com/Execution-of-a-function-tp4639424.html
Sent from the R help mailing list archive at Nabble.com.

______________________________________________
R-help at r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.

HI,
Suppose, I have a function like this:

fun1<-function(x){
?ifelse(x[1]<0,
?sum(x[min(which(x<0)):(which.max(x>0)-1)]),
sum(x[min(which(x<0)):max(which(x<0))])
)
?}

#And I save it as "aj.fun" (-- filename)
#Then,

source("aj.fun")
fun1

function(x){
?ifelse(x[1]<0,
?sum(x[min(which(x<0)):(which.max(x>0)-1)]),
sum(x[min(which(x<0)):max(which(x<0))])
)
?}

a1<-c(-5,-2,4,2,-4,-6,3)

fun1(a1)

#[1] -7

Hope this helps.
A.K.


----- Original Message -----
From: hafida <hafida-06 at hotmail.fr>
To: r-help at r-project.org
Cc: 
Sent: Tuesday, August 7, 2012 12:26 PM
Subject: [R] Execution of a function

Hi

i have? aproblem withe execution of my function

first, i wrote my function in the script of R 
nom_fonction <- function(arg1[=expr1], arg2[=expr2], ...){ 

bloc d'instructions
}

when i want to have the result i mean the laste instruction in the bloc of
instruction ,? i try to
wrote the name of function

source(aj.fun)

Error in readLines(file, warn = FALSE) : 'con' is not a connection

return(aj.fun)

Error: no function to return from, jumping to top level

thanks for helping
hafida, univ of algeria 






--
View this message in context: http://r.789695.n4.nabble.com/Execution-of-a-function-tp4639424.html
Sent from the R help mailing list archive at Nabble.com.

______________________________________________
R-help at r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.

HI Arun and all

my function is:
aj.fun <- function(j, i, X, z, E, beta0, beta1){

+ n <- length(X)
+ iX <- order(X)
+ iz <- order(z)
+ e1 <- -(beta)*z[ iz[1:(i - 1)] ]
+ numer <- E[j] - sum( X[ iX[1:(i - 1)] ] * exp(e1) )
+ e2 <- -(beta)*z[ iz[i:n] ]
+ denom <- sum( exp(e2) )
+ numer/denom
+ }

how excute this function

thank you 
hafida

--
View this message in context: http://r.789695.n4.nabble.com/Execution-of-a-function-tp4639424p4639469.html
Sent from the R help mailing list archive at Nabble.com.