<div dir="ltr"><p class="MsoNormal" style="margin:0cm 0cm 10pt;line-height:115%;font-size:11pt;font-family:Calibri,sans-serif"><span style="font-size:12pt;line-height:115%;font-family:"Times New Roman",serif">Pessoal, </span></p>

<p class="MsoNormal" style="margin:0cm 0cm 10pt;line-height:115%;font-size:11pt;font-family:Calibri,sans-serif"><span style="font-size:12pt;line-height:115%;font-family:"Times New Roman",serif">Estou com uma dúvida sobre a aplicação da função
density, em um banco de dados de uma distribuição normal. Após fazer uma transformação
encontrando o score (componente principal), ao aplicar a função density, eu
esperava que os valores deveriam variar de 0 a 1. Plotei até o histograma da
densidade. Por que a densidade não está no intervalo 0 a 1<span style="background-image:initial;background-position:initial;background-size:initial;background-repeat:initial;background-origin:initial;background-clip:initial">?</span></span></p>

<p class="MsoNormal" style="margin:0cm 0cm 10pt;line-height:115%;font-size:11pt;font-family:Calibri,sans-serif"><span style="font-size:12pt;line-height:115%;font-family:"Times New Roman",serif;background-image:initial;background-position:initial;background-size:initial;background-repeat:initial;background-origin:initial;background-clip:initial">Gerei um código reproduzível,
porém, minha variável que estou aplicando, não necessariamente é exatamente uma
variável normal. </span><span style="font-size:12pt;line-height:115%;font-family:"Times New Roman",serif"></span></p><p class="MsoNormal" style="margin:0cm 0cm 10pt;line-height:115%;font-size:11pt;font-family:Calibri,sans-serif"><span style="font-family:"Times New Roman",serif;font-size:12pt"><br></span></p><p class="MsoNormal" style="margin:0cm 0cm 10pt;line-height:115%;font-size:11pt;font-family:Calibri,sans-serif"><span style="font-family:"Times New Roman",serif;font-size:12pt">set.seed(23)</span><br></p><p class="MsoNormal" style="margin:0cm 0cm 10pt;line-height:115%;font-size:11pt;font-family:Calibri,sans-serif"><span style="font-size:12pt;line-height:115%;font-family:"Times New Roman",serif;background-image:initial;background-position:initial;background-size:initial;background-repeat:initial;background-origin:initial;background-clip:initial">X = cbind( 1:230, rnorm(230, 450, 20))<br><br>X[,2] <- (X[,2] - min(X[,2]))/(max(X[,2])-min(X[,2]))<br>#plot(X)<br>X[,1] <- X[,1]-mean(X[,1])<br>X[,2] <- X[,2]-mean(X[,2])<br>C <- cov(X)<br>E <- eigen(C)<br>score <- X %*% E$vectors<br>densidade = density(score[,2], n=100)  # os valores da densidade não estão dentro do intervalo [0,1]<br><br>a = hist(score[,2], freq = F)<br>lines(densidade)<br></span></p><p class="MsoNormal" style="margin:0cm 0cm 10pt;line-height:115%;font-size:11pt;font-family:Calibri,sans-serif"><span style="font-size:12pt;line-height:115%;font-family:"Times New Roman",serif;background-image:initial;background-position:initial;background-size:initial;background-repeat:initial;background-origin:initial;background-clip:initial"><br></span></p><p class="MsoNormal" style="margin:0cm 0cm 10pt;line-height:115%;font-size:11pt;font-family:Calibri,sans-serif"><br></p></div>