Использование knitr и проблемы с латексом

Использование knitr и проблемы с латексом

Итак, я сейчас делаю оценку функции CES, используя пакет micEconCES в R. Я хочу включить результаты оценки в свой файл latex, но, похоже, не могу заставить его работать. Это упрощенная версия в R. Я хочу, чтобы она выглядела примерно так

введите описание изображения здесь

Это код, который я использую в R. Если я ввожу код шаг за шагом в R, то получаю желаемый результат, но если вставляю его в файл Rnw, то получаю сообщения об ошибках.

\documentclass{article}
\begin{document}

#starting the R code

<<>>=

#reading in my data set from excel and changing a couple columns to 
numeric

DATA_FOR_2<- read_excel("~/Documents/DATA FOR  2.xlsx", col_types =
c("text", "text", "text","text", "text", "numeric", "numeric", 
"numeric", "numeric", "numeric", "numeric", "numeric", "numeric", 
"numeric", "numeric", "numeric", "numeric", "numeric", "numeric", 
"numeric", "numeric"))

#cutting out some unneeded rows

mydata <- DATA_FOR_2[-c(46:62), ]

#using the micEconCES code to do the Kmenta approximation

cesKmenta <- cesEst( yName = "gddp", xNames = c( "capiital", "labora" 
), data = mydata, method = "Kmenta", vrs = TRUE )

#calling summary stats

summary(cesKmenta)

#plotting the results

compPlot ( mydata$gddp, fitted( cesKmenta ), xlab = "actual values",
ylab = "fitted values" )
@

\end{document}

Но когда я компилирую этот код в PDF, я получаю сообщение об ошибке:

DATA_FOR_2<- read_excel("~/Documents/DATA FOR  2.xlsx", col_types = c("text", "text", "text","text", "text", "numeric", "numeric", "numeric", "numeric", "numeric", "numeric", "numeric", "numeric", "numeric", "numeric", "numeric", "numeric", "numeric", "numeric", "numeric", "numeric"))## Error in eval(expr, envir, enclos):  konnte Funktion "readexcel"nicht finden

mydata <- DATA_FOR_2[-c(46:62), ]## Error in eval(expr, envir, enclos):  Objekt 'DATAFOR2' nicht gefunden
cesKmenta <- cesEst( yName = "gddp", xNames = c( "capiital", "labora" ), data = mydata, method = "Kmenta", vrs = TRUE )## Error in eval(expr, envir, enclos):  konnte Funktion "cesEst" nicht finden

summary(cesKmenta)## Error in summary(cesKmenta):  Objekt 'cesKmenta' nicht gefunden

compPlot ( mydata$gddp, fitted( cesKmenta ), xlab = "actual values",ylab = "fitted values" )## Error in eval(expr, envir, enclos):  konnte Funktion "compPlot"nicht finden1

Что я делаю не так?

решение1

Вы, вероятно, забыли загрузить библиотеку для функции read_excel. У вас есть четкое сообщение об ошибке в первой строке:

konnte Funktion "readexcel"nicht finden

Вам нужно добавить library(readxl)(если это имя пакета) в ваш документ. Вы можете добавить дополнительный кусок кода после %starting the R codeзагрузки всех библиотек, которые вам нужны для документа в одном месте

<<Load library>>
library(readxl)
# Other packages
@

Связанный контент