다양한 길이의 벡터 목록에서 상단 x 및 하단 x 부분의 평균 (또는 기타 요약 함수)을 계산해야합니다.
다음은 내가 작업하는 것과 형식이 비슷한 길이가 다른 3 개의 벡터 목록입니다.
t <- list(a = exp(-4:3), b = exp(-2:12), c = exp(-5:3))
이상적으로는 각 평균 유형에 대해 단일 숫자 벡터를 원합니다 (각 벡터에 대해 mean (head (t $ a), 2)) 및 mean (tail (t $ a), 2)).
각 벡터의 처음 두 요소를 의미하는 이름없는 벡터를 생성하는 이상적인 출력 :
[1] 0.2516074 1.859141 0.09256118
각 벡터의 마지막 두 항목에 대한 평균의 두 번째 벡터 :
[1] 1.859141 15064.77 1.859141
첨부 된 이름 (이 경우 a, b, c)없이 각 수단에 대한 숫자 벡터를 얻기 위해 영리한 lapply 유형 구조를 찾습니다. 감사!
는 어때
n = 2
v = lapply(t, function(i) mean(head(i, n)))
변수 v
는 목록입니다. 따라서 벡터를 얻으려면unlist
v = unlist(v)
숫자를 추출하려면 as.vector
as.vector(v)
꼬리에는
lapply(t, function(i) mean(tail(i, n)))
이 기사는 인터넷에서 수집됩니다. 재 인쇄 할 때 출처를 알려주십시오.
침해가 발생한 경우 연락 주시기 바랍니다[email protected] 삭제
몇 마디 만하겠습니다