Nothing
logDataSet <- function( data, varNames, varNamesNum = NULL ) {
if( inherits( data, "pdata.frame" ) ) {
logData <- pdata.frame( index( data ), row.names = FALSE )
} else if( inherits( data, "plm.dim" ) ) {
logData <- data[ , 1:2 ]
} else {
logData <- data.frame( no = c( 1:nrow( data ) ) )
}
for( i in seq( along = varNames ) ) {
logData[[ varNames[ i ] ]] <- log( data[[ varNames[ i ] ]] )
}
for( i in seq( along = varNamesNum ) ) {
if( is.factor( data[[ varNamesNum[ i ] ]] ) |
is.logical( data[[ varNamesNum[ i ] ]] ) ) {
logData[[ varNamesNum[ i ] ]] <- data[[ varNamesNum[ i ] ]]
} else {
logData[[ varNamesNum[ i ] ]] <-
log( data[[ varNamesNum[ i ] ]] )
}
}
if( ! "no" %in% c( varNames, varNamesNum ) ) {
logData$no <- NULL
}
return( logData )
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.