개체는 필수 경계로

Question

integg <- function(t,a,b){ 

    integrate(Vectorize(function(x){55}),lower=t-(a+b),upper=t-a) 
    } 

나는 간단한 문제 일 수 있다고 생각합니다.

달라질 수있는 상수를 통합했습니다.

이 상수를 함수로 생각하면 X 축의 값이> = 0 인 경우에만 존재합니다. 하한 == 0을 설정할 수 없습니다. 하한은> 0입니다.

어떻게 든 함수로 상수를 쓰는 것이 가장 좋습니다.

나는 데 두 번째 문제는 내가 그 때문에 내가 벡터화를 사용하고있는 기능 integg()

에 인수로 포함 할 수있는 객체 (X)로 그 값 (55)을하고자하는 것입니다 내가 상수를 통합하는 법을 아는 유일한 방법.

Answer 1

당신이 묘사 한대로 정확하게하지 마십시오. 당신이 통합하고 기능이 항상 일정 인 경우 당신은 당신의 자신의 지역 CALC를 작성할 수

integg <- function(t, a, b, intval) { 
    u <- t - a 
    l <- ifelse(u - b < 0, 0, u - b) 
    integrate(Vectorize(function(foo, x) {55}), lower=l, upper=u, x=intval) 
} 

당신의 integg 함수에 인수로 x 추가

integg2 <- function(t, a, b, intval) { 
    u <- t - a 
    l <- ifelse(u - b < 0, 0, u - b) 
    intval * (u - l) 
}