Как создать документ Sweave (или pgfSweave) без угловых скобок «>» перед фрагментами кода?Я хочу, чтобы люди могли вырезать и вставлять мой код прямо из вывода PDF.Вот фрагмент моего документа с фрагментом кода:
Обратите внимание, что, поскольку наша матрица инцидентности состоит из 0 и 1, недиагональные записи представляют общее количество общих столбцов, что именно то, что мы хотели.Мы будем использовать оператор% *%, чтобы сказать R сделать это.Давайте сначала рассмотрим небольшой пример с использованием игрушечных данных людей и групп, к которым они принадлежат.Мы приведем данные к матрице инцидентности с помощью функции table (), а затем умножим матрицу инцидентности на ее транспонирование, чтобы получить число общих групп между людьми.
>\> ToyDat <- data.frame(person = c("Sam", "Sam", "Sam", "Greg", "Tom", "Tom"), group = c("a", "b", "c", "a", "b", "c"), stringsAsFactors = F)
>\> ToyDatM <- as.matrix(table(ToyDat))
>\> ToyDatM
Но я хочу, чтобы кодвыглядеть так:
> ToyDat <- data.frame(person = c("Sam", "Sam", "Sam", "Greg", "Tom", "Tom"), group = c("a", "b", "c", "a", "b", "c"), stringsAsFactors = F)
> ToyDatM <- as.matrix(table(ToyDat))
> ToyDatM