☰

Usando problema de knitr e látex

tag-icon • tag-icon r knitr
Usando problema de knitr e látex

Atualmente, estou fazendo uma estimativa de função CES usando o pacote micEconCES em R. Quero incorporar as saídas da estimativa em meu arquivo de látex, mas não consigo fazê-lo funcionar. Esta é a versão simplificada em R. Quero que seja algo assim

insira a descrição da imagem aqui

Este é o código que estou usando em R. Se eu digitar o código passo a passo em R, obtenho a saída desejada, mas se incorporá-lo ao arquivo Rnw, recebo mensagens de erro.

\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}

Mas quando compilo esse código como PDF, recebo a mensagem de erro:

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

O que estou fazendo de errado?

Responder1

Você provavelmente esqueceu de carregar a biblioteca da função read_excel. Você tem uma mensagem de erro clara na primeira linha:

konnte Funktion "readexcel"nicht finden

Você deve adicionar library(readxl)(se for o nome do pacote) no seu documento. Você pode adicionar um pedaço extra de código depois de %starting the R codecarregar todas as bibliotecas necessárias para o documento em um só lugar

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

informação relacionada