lapply을 사용하여 비슷한 기능의 목록을 만들려고 할 때 목록의 모든 기능이 동일하고 최종 요소의 기능과 동일하다는 것을 알게되었습니다. 당신은 당신이 동일한 결과를 얻을 이러한 기능을 평가하려고 할 때 pow <- function(x,y) x^y
pl <- lapply(1:3,function(y) function(x) pow(x,y))
pl
[[
함수 DevCstat()를 만들었습니다. 인수에는 indat, mod, Covar, txtMat, PatCovar가 사용됩니다. indat가 목록이므로 목록의 각 요소에 함수를 적용하고 싶습니다. mod, Covar, txtMat, PatCovar는 함수를 호출 할 때마다 사용하려는 객체입니다. 목록 요소를 변경하지 않습니다. lapply(test, Dev
는 다음 코드 L <- lapply(urls, read.xls, sheet=1,header=T,skip=1,perl="C:/perl/bin/perl.exe",row.names=NULL)
와 웹 사이트 (주소 urls에 나열된)에서 수십 개의 파일을 검색하는 것을 시도했다 그러나 몇 성공적으로 다운로드 한 후이 오류가 수신 보관 : Trying URL '
누구든지이 문제를 해결할 수 있도록 도와 줄 수 있습니까? 나는 @Arun에서 제공하는 다음 코드 lapply을 사용하고 있습니다 : out <- lapply(1:length(f1), function(f.idx) {
df1 <- read.delim(f1[f.idx], header = T)
df2 <- read.delim(f2[f.idx],
이것은 항상 루프를 작성하는 장난감의 예입니다. 하나의 라이너를 알아 내는데 문제가 있습니다. 나는 그것을 보았다라고 확신한다. 그러나 그것은 찔리지 않았다. smallFrame <- data.frame(colA = c('A', 'B', 'C' ,'D'), colB = c(1,1,1,1))
someList <- list(A=20, B=30, C=40, D
lapply 함수 또는 루프에서 가비지 콜렉션을 수행하는 가장 빠른 방법은 무엇입니까? 내가보기에 명백한 것은 엄청나게 느려집니다. 내가 잘못하고 있니? 더 빠른 방법이 있습니까? 내 실제 유스 케이스에서는 x <- 1:10000
system.time(xx <- lapply(1:length(x), function(xi) sum(x[1:xi])))
use
데이터 프레임 목록이 있고 목록의 각 데이터 프레임에 대한 비선형 최적 점을 계산하고 가장 적합한 개체 목록을 얻으려고합니다. lapply를 사용하려고하는데 매개 변수에 문제가 있습니다. 나는 다음과 같은 오류가 발생하고이 코드를 실행하면 # define a function for D
fncTtr <- function(n,d) (d/n)*((sqrt(1+
한 번에 여러 개의 csv 파일을 작업하고 있습니다. getResult<-function(df){
c(runif(1, 0, 1), runif(1, 0, 1))
}
filenames <- list.files("temp", pattern="*.csv", full.names=TRUE)
ldf <- lapply(filenames, read.csv)
가 lapply(input, myfun);의 구문 -이 쉽게 이해할 수있다, 나는 그렇게 myfun 정의 할 수 있습니다 : input의 myfun <- function(x) {
# doing something here with x
}
lapply(input, myfun);
및 요소가 myfun-x 인수로 전달됩니다. 하지만 더 많은 인수를 my
data.frame 개체 (training_data)의 명명 된 목록이 있습니다. 각 data.frame 객체는 "x"열을 기준으로 테스트되고 테스트가 통과되면 해당 data.frame 객체의 이름이 반환됩니다. 아래의 경우 은, "는이"와 "B"를 반환 할 생각됩니다 df <- data.frame(x=1:10, y=1:10)
df1 <- data.fra