do.call

    4

    1답변

    do.call() 함수에 객체 이름을 전달하는 방법이 있습니까? 예를 들어 는 : #First make a function that will return the name of object itself. PrintObjectName <- function(obj){ print(deparse(substitute(obj))) } data(iris)

    1

    3답변

    입력을 기반으로 데이터 프레임의 출력에 동적 이름을 지정하려고합니다. get.max2(mtcars, mpg) name mpg Volvo 142E 33.9 내가 대답은 경기를 함께 할 수있는 뭔가가 생각 : 나는 다음과 같이 할, get.max2(mtcars, mpg) name title Volvo 142E 33.9 을하지

    1

    1답변

    함수 my.ccf는 다른 것들 중에서 플롯을 생성합니다. 제조 my.ccf <- function(dat) { require(forecast) modx <- auto.arima(dat[,1]) modx$series <- colnames(dat)[1] mody <- Arima(dat[,2], model=modx) mody$series <- colna

    12

    1답변

    에 의해 누락 된 값으로 하나 개의 데이터 프레임으로 데이터 프레임의 목록을 병합 이 .txt 특정 폴더에있는 파일, 나는 함수 작성했습니다 : 내가 원하는 파일 목록을하게 한 다음 각 파일 에 대한에 (파일을 집합 데이터를 읽고 관심있는 행과 열만 추출) 데이터에 대한 일부 계산을 수행합니다. 은 이러한 새 값을 목록에 추가합니다. 각 변수 >str(Da

    0

    1답변

    에 병합합니다. 단일 데이터 프레임으로 병합하려는 수백 개의 .csv 파일이있는 폴더가 있습니다. 이 코드는 비교적 잘 작동하지만 머리글이 일치하는 파일에만 사용되었습니다. df <- do.call(rbind, lapply(filenames , read.csv)) 두 부분 질문. 1) 나는 데이터의 각 행에 대해 .csv 파일 이름을 포함하는 추가 열을

    0

    1답변

    .call 내부에있는 onComplete 메서드가 곧 호출됩니다. 끝 부분에서만 호출되어야합니다. createjs.Tween.get(this).to({filled: 1}, duration).addEventListener("change",() => { this.renderFill(color)}).call(onComplete()); 코드는 내가 전화하기 전

    3

    2답변

    의 내가 목록에 저장된 일부 모델 있다고 가정 해 봅시다 : mods <- list() mods[[1]] <- lm(mpg ~ disp, data = mtcars) mods[[2]] <- lm(mpg ~ disp + factor(cyl), data = mtcars) mods[[3]] <- lm(mpg ~ disp * factor(cyl), data =

    0

    1답변

    저는 R 코드를 파이썬으로 번역하고 있습니다. 행을 정렬하는 data.frame에는 do.call 명령이 있습니다. 이것이 어떻게 이루어지면 나를 혼란스럽게합니다. signary = matrix(c(1, 1, 1,-1,-1,-1, 0, 0, 0, 1,-1, 0, 0, 1,-1, 0, 0, 0, 1,-1,-1,

    0

    1답변

    일부 계산 후에 하나의 날짜와 하나의 값을 목록에 저장하는 for 루프가 있습니다. 나는 두 개의 열이 테이블 (날짜 값)를 만들 싶습니다하지만 난 목록에서 값을 추출 할 때 날짜 형식으로 보존 할 수 없습니다 n <- 5 x <- factor(1:3,levels=1:3,labels=c('a','b','c')) dates <- as.Date(c('20

    0

    1답변

    여기 내 코드입니다 : >ipo_num_year<- do.call(length,list(as.name(paste0("all_data_align_",year)))) >ipo_num_year >90 >ipo_num_year<- length(as.name(paste0("all_data_align_",year))) >ipo_num_year >1 yea