RobertF's questions

Estou usando a nearZeroVarfunção Rpara identificar variáveis ​​de variância zero no meu conjunto de dados de análise.

Um exemplo do meu código:

train1_nzv_y0 <- nearZeroVar(train1[train1$y=="no",], saveMetrics= TRUE)
train1_nzv_y0[train1_nzv_y0$zeroVar=="TRUE",]
           freqRatio percentUnique zeroVar  nzv
x1                 0  0.0001649599    TRUE TRUE
x2                 0  0.0001649599    TRUE TRUE
x3                 0  0.0001649599    TRUE TRUE
x4                 0  0.0001649599    TRUE TRUE

Depois de produzir o quadro de dados train1_nzv_y0, gostaria de extrair uma lista dos nomes de variáveis ​​x1-x4 que foram identificadas como variáveis ​​de variância zero.

Entretanto, não há cabeçalho de coluna para os nomes das variáveis ​​- eles estão "flutuando" na frente da minha primeira coluna (freqRatio), mas não há como identificá-los.

Existe algum truque padrão Rpara se referir a colunas fantasmas com cabeçalhos ausentes?

Estou com dificuldade para aplicar uma função a cada elemento de uma matriz, uma matriz de similaridade de Jaccard triangular inferior.

A função deve retornar valores da matriz com valores > .7, e reatribuir outros elementos como NA, facilitando a identificação de variáveis ​​binárias altamente similares. Idealmente, a estrutura da matriz é preservada.

Criei uma matriz de amostra simples 3x3 preenchida com valores aleatórios para teste:

N <- 3 # Observations
N_vec <- 3 # Number of vectors
set.seed(123)
x1 <- runif(N * N_vec)
mat_x1 <- matrix(x1, ncol = N_vec)
mat_x1[upper.tri(mat_x1)] <- NA
diag(mat_x1) <- NA
mat_x1
              [,1]      [,2] [,3]
    [1,]        NA        NA   NA
    [2,] 0.7883051        NA   NA
    [3,] 0.4089769 0.0455565   NA

Como aplico a seguinte função a cada elemento da matriz que retorna valores > 0,7?

y = (function(x) if (x > .7) { return(x) } else { return(NA) })

Gostaria de ver o seguinte depois de aplicar a função:

mat_x2
              [,1] [,2] [,3]
    [1,]        NA   NA   NA
    [2,] 0.7883051   NA   NA
    [3,]        NA   NA   NA