편집을 취소할 수 있습니다. 이 편집을 되돌리려면 아래의 바뀐 내용을 확인한 후 게시해주세요.
최신판 | 당신의 편집 | ||
39번째 줄: | 39번째 줄: | ||
#### tdm1 | #### tdm1 | ||
docs1 = c("안녕, 안녕.", "반갑다, 친구들.", "반갑다, 친구야, 친구야") | docs1 = c("안녕, 안녕.", "반갑다, 친구들.", "반갑다, 친구야, 친구야") | ||
## docs1 | #### 윈도우 R스튜디오 하드코딩 데이터입력시 인코딩 변환 | ||
tdm1 | ## docs1 <- iconv(docs1, "CP949", "UTF-8") | ||
tdm1 <- TermDocumentMatrix(Corpus(VectorSource(docs1)),control=list(removePunctuation=T,stopwords=F)) | |||
inspect(tdm1) | inspect(tdm1) | ||
</syntaxhighlight> | </syntaxhighlight> |