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...@hotmail.fr>
To: r-help@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@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.
______________________________________________
R-help@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.
