길이가 12 개인 값 목록이 여러 개인 목록 개체가 있습니다. 모두 길이가 12 인 것은 아닙니다 (아래 데이터 참조). 여기서 x는 목록의 수 (이 경우 50) 인 x * 12 데이터 프레임으로 값을 추출하고 싶습니다. 목록에 12 개의 값이 모두없는 경우 공백을 입력 할 수 있습니다. 따라서 행 35와 같이 하나의 값만있는 경우 35 번째 행과 1 번째
중첩 된 sapply 붙여 넣기 코드를 모든 구성 요소가 non-NA인지 확인하는 ifelse()에 배치하는 문제가 발생했습니다. 사프리는 그들이 ifelse()에 없을 때 잘 작동합니다 ... 왜 이럴까요? 을 감안할 때 일부 매개 변수 : a = c(1, 2, 3)
b = c("a", "b")
c = c("X", "Y")
가 여기에 내가 함께 모
여러 개의 빈 프레임을 여러 데이터 프레임에 추가하려고합니다. 1 데이터 프레임에 대해이 작업을 수행하는 코드는 df[,namevector] <- NA (other question)입니다. Namevector는 추가되어야하는 빈 변수의 이름을 포함하는 벡터입니다. 다음 코드가 트릭을 할 것이라고 생각 했으므로 여러 데이터 프레임 목록이 있습니다. a <-
소위 순위 통계의 이중 합계를 계산하는 R 코드를 작성했습니다. 최소 1000 번 계산을 반복해야하지만 내부에 3 개의 루프가 있으면 한 번만 수행하는 데 꽤 오랜 시간이 걸립니다. 여기 내 코드입니다 : #u, a - real numbers
l <- function(u, a) {
-sqrt((1-a)/a)*I(u>=0 & u<a) + sqrt(
필자는 몇 개의 열이있는 데이터 프레임을 가지며 요인에 대한 변수의 평균 차이를 계산해야합니다. 예를 들어 : C1 C2
3 A
5 B
9 A
10 A
12 A
9 B
20 B
그리고 싶어 : A 9
B 15
내가 aggregate(C1 ~ C2, data = df, FUN = function(x) max()-min())
을
데이터 프레임 (df < -read.csv (data, as.is = T))을 n 열로 읽었습니다. 그 중 하나는 다음과 같은 char 열입니다 : df$qual
===========
1/5
12/17
...
0/3
9/14
이 열을 모든 행의 첫 번째 요소 만 유지하면서 숫자 벡터로 변환하고 싶습니다. df$qual
===========
을 제공하는 함수를 작성하는 방법을 나는 함수 p = c(0.4, 0.6)
myfun = function(p){
sample(1:2, 1, replace = TRUE, prob = p)
}
을 썼다 그리고 나는이 5 회를 반복합니다. sapply(1:5, myfun)
그러나 이것은 나에게 sample.int 오류 (길이 (x)를, 크기,
I가 B 열의 엔트리에 기초 dataframe의 컬럼 (C)에 값 (고양이, 개 또는 토끼)를 할당하는 함수 : 지금 mydf <- data.frame(a = c(1:4), b= c(1,3,5,9))
myfunction <- function(x) {
if(x == 1 | x == 2) y <- "cat"
if(x > 2 & x < 6) y <- "do
나는 R로 읽고 목록 객체로 변환하는 json을 가지고있다. 키 "메트릭"의 경우 동일한 유형의 여러 객체로 구성된 배열이 있습니다. JSON 구조 : 나는 배열의 각 객체에 함수 (someFunc)를 적용 할 $metrics
$metrics[[1]]
$metrics[[1]]$metricName
[1] "abc"
$metrics[[1]]$metri